Cara Membuat Angka Terbilang di VB.NET

Berikut ini, Saya jelaskan cara dan langkah-langkah untuk membuat angka terbilang di VB. NET (Visual Studio).

Langkah:

1. Buat Form seperti contoh di bawah ini:

Cara Membuat Angka Terbilang di VB.NET

*TextBox1 = Angka
*TextBox2 = Terbilang

2. Buat Fungsi Terbilang seperti di bawah ini:

Public Function Terbilang(ByVal nilai As Long) As String
Dim bilangan As String() = {"", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas"}
If nilai < 12 Then
Return " " & bilangan(nilai)
ElseIf nilai < 20 Then
Return Terbilang(nilai - 10) & " Belas"
ElseIf nilai < 100 Then
Return (Terbilang(CInt((nilai \ 10))) & " Puluh") + Terbilang(nilai Mod 10)
ElseIf nilai < 200 Then
Return " Seratus" & Terbilang(nilai - 100)
ElseIf nilai < 1000 Then
Return (Terbilang(CInt((nilai \ 100))) & " Ratus") + Terbilang(nilai Mod 100)
ElseIf nilai < 2000 Then
Return " Seribu" & Terbilang(nilai - 1000)
ElseIf nilai < 1000000 Then
Return (Terbilang(CInt((nilai \ 1000))) & " Ribu") + Terbilang(nilai Mod 1000)
ElseIf nilai < 1000000000 Then
Return (Terbilang(CInt((nilai \ 1000000))) & " Juta") + Terbilang(nilai Mod 1000000)
ElseIf nilai < 1000000000000 Then
Return (Terbilang(CInt((nilai \ 1000000000))) & " Milyar") + Terbilang(nilai Mod 1000000000)
ElseIf nilai < 1000000000000000 Then
Return (Terbilang(CInt((nilai \ 1000000000000))) & " Trilyun") + Terbilang(nilai Mod 1000000000000)
Else
Return ""
End If
End Function

3. Klik 2x pada TexBox1 dan isikan skrip seperti di bawah ini:

If TextBox1.Text = "" Then Exit Sub
TextBox2.Text = Terbilang(TextBox1.Text)

4. Debug program dan akan menghasilkan seperti di bawah ini: