SOURCE KODE TERBILANG PADA VB.NET

Fungsi terbilang merupakan hal penting untuk menghemat pekerjaan misalnya dalam membuat SPJ dan lain sebagainya, tentunya dengan fungsi terbilang sangat memudahkan kita yakni tidak perlu repot-repot mengetiknya secara berulang-ulang. Dengan dibuatkannya program seperti pada example  kali ini program terbilang dengan Visual basic.net dengan fungsi merubah dan atau mengkonversi angka menjadi Huruf ( Terbilang ) source kode ini dapat anda kembangkan sesuai kebutuhan. BERIKUT Contoh Secreen Show pada Mode JPG dan Saource Code Program :

Source Code :

Public Class KODETERBILANG
    Private Function Ubahmenjaditerbilang(ByVal nilai As Long) As String
        Dim Rupiah As String() = {"", "satu", "dua", "tiga", "empat", "lima", _
        "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
        If nilai < 12 Then
            Return " " & Rupiah(nilai)
        ElseIf nilai < 20 Then
            Return Ubahmenjaditerbilang(nilai - 10) & " belas"
        ElseIf nilai < 100 Then
            Return (Ubahmenjaditerbilang(CInt((nilai \ 10))) & " puluh") + Ubahmenjaditerbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " seratus" & Ubahmenjaditerbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (Ubahmenjaditerbilang(CInt((nilai \ 100))) & " ratus") + Ubahmenjaditerbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " seribu" & Ubahmenjaditerbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (Ubahmenjaditerbilang(CInt((nilai \ 1000))) & " ribu") + Ubahmenjaditerbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (Ubahmenjaditerbilang(CInt((nilai \ 1000000))) & " juta") + Ubahmenjaditerbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (Ubahmenjaditerbilang(CInt((nilai \ 1000000000))) & " milyar") + Ubahmenjaditerbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (Ubahmenjaditerbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Ubahmenjaditerbilang(nilai Mod 1000000000000)
        Else
            Return " "
        End If
    End Function
  
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "" Then Exit Sub
        Label2.Text = Ubahmenjaditerbilang(TextBox1.Text)
        TextBox2.Text = Ubahmenjaditerbilang(TextBox1.Text)
    End Sub