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