Konversi Angka Ke Huruf Di VB 6.0

Oleh Pengetahuan Populer

Saturday, 12 July 2014

Bagikan :

Tweet

 

          Pada bahasan kali ini saya akan mencoba membahas mengenai pengkonversian angka ke huruf, kasus pengkonversian angka ke huruf ini biasa nya di butuhkan dalam kwitansi atau nukti kas keluar dan bukti kas masuk kalau dalam istilah perusahaan keuangan.namun pada kesempatan ini saya akan memberi contoh yang simpel aja yaitu membuat kwitansi.

         adapun langkah-langkah yang harus di lakukan adalah sebagai berikut :

1. Siapkan 6 buah label,enam buah text box,dan 3 buah Command Button
2. Bentuklah hingga seperti pada gambar di bawah ini

    3.  Double klik pada form 1 kemudian tambahkan scrift sebagai berikut :

Function num2word(ByVal N As Currency) As String  ' max 2.147.483.647
Dim Satuan As Variant
Satuan = Array("", "Satu ", "Dua ", "Tiga ", "Empat ", "Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ", "Sepuluh ", "Sebelas ", "Dua Belas ")
Select Case N
    Case 0 To 11
        num2word = Satuan(Fix(N))
    Case 12 To 19
        num2word = num2word(N Mod 10) + " Belas "
    Case 20 To 99
        num2word = num2word(Fix(N / 10)) + " Puluh " + num2word(N Mod 10)
    Case 100 To 199
        num2word = "Seartus " + num2word(N - 100)
    Case 200 To 999
        num2word = num2word(Fix(N / 100)) + "Ratus " + num2word(N Mod 100)
    Case 1000 To 1999
        num2word = "Seribu " + num2word(N - 1000)
    Case 2000 To 999999
        num2word = num2word(Fix(N / 1000)) + "Ribu " + num2word(N Mod 1000)
    Case 1000000 To 999999999
          num2word = num2word(Fix(N / 1000000)) + "Juta " + num2word(N Mod 1000000)
    Case Else
          num2word = num2word(Fix(N / 1000000000)) + "Milyar " + num2word(N Mod 1000000000)
    End Select
    End Function

    4.   Pada kolom TERBILANG atau text4.text tambahkan scrift di bawah ini :

If Me.Text3.Text = "" Then
    Me.Text4.Text = ""
ElseIf Me.Text3.Text <= 2147483647 Then
    Me.Text4.Text = num2word(Me.Text1.Text) + "Rupiah "
ElseIf Me.Text3.Text > 2147483647 Then
    MsgBox " Anda Tidak Boleh melebihi  2.147.483.647", vbOKOnly + vbInformation, ""
    Me.Text3 = ""
    Me.Text4 = ""
    Me.Text3.SetFocus
    End If

Keterangan :

Sebenarnya aplikasi ini membutuhkan sebuah database untuk menyimpan data hasil inputan, tetapi berhubung yang di tekankan di sini adalah hanya pembahasan Konversi Angka ke huruf  saja, jadi untuk tombol simpan dan keluar itu koding nya sama dengan koding simpan dan keluar di aplikasi yang lain.

SELAMAT MENCOBA !!!