Bagi para vb lover yang ingin cari source code angka terbilang pada vb ada disini. Menampilkan angka terbilang sangat sering kita jumpai saat kita membuat program vb. Langsung aja...buka vb dan buat tampilan form seperti gambar diatas. Disini kita hanya membutuhkan sebuah textbox dan label untuk menampilkan angka terbilang. Selain itu saya menggunakan sebuah module untuk memasukan source codenya.
Untuk source code yang di letakan pada module :
Public Function Terbilang(ByVal x As Long) As String
Dim abil As Variant
abil = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
If x <>
Terbilang = "" & abil(x)
ElseIf x <>
Terbilang = Terbilang(x - 10) & " Belas "
ElseIf x <>
Terbilang = Terbilang(x \ 10) & " Puluh " & Terbilang(x Mod 10)
ElseIf x <>
Terbilang = "Seratus " & Terbilang(x - 100)
ElseIf x <>
Terbilang = Terbilang(x \ 100) & " Ratus " & Terbilang(x Mod 100)
ElseIf x <>
Terbilang = "Seribu " & Terbilang(x - 1000)
ElseIf x <>
Terbilang = Terbilang(x \ 1000) & " Ribu " & Terbilang(x Mod 1000)
ElseIf x <>
Terbilang = Terbilang(x \ 1000000) & " Juta " & Terbilang(x Mod 1000000)
End If
End Function
Private Sub Text1_Change()
Label1.Caption = Terbilang(Val(Text1.Text)) & " Rupiah"
End Sub
Jalankan Program dan coba hasilnya.......
