Cara Membuat Terbilang di Visual Basic 6

"Kak, bisa minta contoh aplikasi atau sourcode tentang membuat terbilang di visual basic 6" 

Mahasiswa

Ya lagi lagi kembali postingan ini dibuat karena ada pejuang muda yang ingin mengembangkan aplikasinya, gpp walau masih di vb6 tetapi konsep ya sama saja dengan bahasa pemrograman lainya seperti vb.net, java, delphi dan lain-lain. Ok langsung aja ikutin tutorialnya :

1. Buat New project di visual basic kemudian tambahkan form dan desain seperti berikut :

2. Tambahkan Module - Dari menu Project pilih Add Module

3. Paste Coding dibawah ini di module tersebut :

Public Function Terbilang(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = "Ribu "
letak(2) = "Juta "
letak(3) = "Milyar "
letak(4) = "Trilyun "

If (x = 0) Then
Terbilang = "Nol"
Exit Function
End If

If (x < 2000) Then
tanda = True
End If

teks = ""

If (x >= 1E+15) Then
Terbilang = "Nilai terlalu besar"
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
Terbilang = teks & "Rupiah"
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = "Se"
angka(2) = "Dua "
angka(3) = "Tiga "
angka(4) = "Empat "
angka(5) = "Lima "
angka(6) = "Enam "
angka(7) = "Tujuh "
angka(8) = "Delapan "
angka(9) = "Sembilan "

Dim posisi(2)
posisi(1) = "Puluh "
posisi(2) = "Ratus "

bilang = ""
For j = 2 To 1 Step -1
                        tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "Belas "
Else
angka(y) = "Se"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = "Satu "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

5. Ketik coding ini untuk tombol Proses :

Text2.Text = Terbilang(Val(Text1.Text))

Ok silahkan dicoba running dan lihat hasilnya, semoga berhasil dan untuk mendapatkan penghasilan lebih melalui dunia maya bisa baca artikel ini Cari Uang lewat ekiosku.com

Artikel Terkait :