Tutorial Membuat Function Terbilang

Selamat malam sahabat blogger kali ini saya ingin memberi contoh sebuah function terbilang.. hal ini biasanya sangat diperlukan dalam applikasi penjualan atau minimarket.. nah langsung saja kita ke kasusnya.

Berikut function nya :

Function terbilang(ByVal n As Double) As String
        Dim satuan As String() = {"", " Satu", " Dua", " Tiga", " Empat", " Lima", " Enam", " Tujuh", " Delapan", " Sembilan", "Sepuluh", "Sebelas"}

        Select Case n
            Case 0 To 11
                terbilang = "" + satuan(Fix(n))
            Case 11 To 19
                terbilang = terbilang(n Mod 10) + " Belas"
            Case 20 To 99
                terbilang = terbilang(Fix(n / 10)) + " Puluh" + terbilang(n Mod 10)
            Case 100 To 199
                terbilang = " Seratus" + terbilang(n - 100)
            Case 200 To 999
                terbilang = terbilang(Fix(n / 100)) + " Ratus" + terbilang(n Mod 100)
            Case 1000 To 1999
                terbilang = " Seribu" + terbilang(n - 1000)
            Case 2000 To 999999
                terbilang = terbilang(Fix(n / 1000)) + " Ribu" + terbilang(n Mod 1000)
            Case 1000000 To 999999999
                terbilang = terbilang(Fix(n / 1000000)) + " Juta" + terbilang(n Mod 1000000)
            Case 1000000000 To 999999999999
                terbilang = terbilang(Fix(n / 1000000000)) + " Milyar" + terbilang(n Mod 1000000000)
            Case Else
                terbilang = terbilang(Fix(n / 1000000000000)) + " Triliyun" + terbilang(n Mod 1000000000000)
        End Select
    End Function

Cara Penggunaan :

1.  Siapkan sebuah label = label29.text
2. Siapkan sebuah textbox = textbox25.text
3. lalu panggil function tersebut dengan coding berikut
   Label29.Text = Format(TextBox25.Text, "Rp ###,###,###,##")      
   Label29.Text = UCase(terbilang(TextBox25.Text)) & " RUPIAH"
   
   Nah catatanya adalah sesuaikan di event mana pemanggil function ini anda letakan..
   Happy Coding.. klo raggu bisa chat admin