Angka Terbilang Pada VB

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

Nah klo yang ini letakan pada form :

Private Sub Text1_Change()

Label1.Caption = Terbilang(Val(Text1.Text)) & " Rupiah"

End Sub

Jalankan Program dan coba hasilnya.......

Posted in: visual basic