Program Terbilang (Konversi Angka Menjadi Huruf) Dengan Menggunakan Microsoft Visual Basic 6.0

Program Terbilang (Konversi Angka Menjadi Huruf) biasanya digunakan untuk mengubah nilai uang dalam angka menjadi huruf.

Langkah- langkah pembuatan Program Terbilang (Konversi Angka Menjadi Huruf) adalah sbb :

·           Buka proyek Standard EXE yang baru

·           Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox, CommandButton

 Gbr 1

·          Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Caption      Font ForeColor	txt_angka (dikosongkan) MS Sans Serif, Bold, 10 &H00400040&
CommandButton1	Name         Caption	cmd_exit E&xit
Label1	Caption Font ForeColor	Angka maximum yang dapat dikonversi ke dalam huruf : 2.147.483.647 MS Sans Serif, Bold, 10 &H00FF0000&
Label2	Caption Font ForeColor	Angka MS Sans Serif, Bold, 10 &H00000040&
Label3	Caption Font ForeColor	Terbilang MS Sans Serif, Bold, 10 &H00000040&
Label3	Caption Font ForeColor	Palatino Linotype, Bold, 12 &H00FF0000&

Form1

Name Caption

Frm_Numeric2Word Program Terbilang (Konversi Angka Ke Dalam Huruf)

·           Klik View  =>  Code lalu copy paste (copas) kode program dibawah ini :

Function Num2Word(ByVal n As Currency) As String 'max 2.147.483.647

Dim Satuan As Variant

Satuan = Array("", "Satu ", "Dua ", "Tiga ", "Empat ", "Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ", "Sepuluh ", "Sebelas ", "Dua Belas ")

Select Case n

    Case 0 To 11

        Num2Word = Satuan(Fix(n))

    Case 12 To 19

        Num2Word = Num2Word(n Mod 10) + " Belas "

    Case 20 To 99

        Num2Word = Num2Word(Fix(n / 10)) + " Puluh " + Num2Word(n Mod 10)

    Case 100 To 199

        Num2Word = "Seratus " + Num2Word(n - 100)

    Case 200 To 999

        Num2Word = Num2Word(Fix(n / 100)) + " Ratus " + Num2Word(n Mod 100)

    Case 1000 To 1999

        Num2Word = "Seribu " + Num2Word(n - 1000)

    Case 2000 To 999999

        Num2Word = Num2Word(Fix(n / 1000)) + " Ribu " + Num2Word(n Mod 1000)

    Case 1000000 To 999999999

        Num2Word = Num2Word(Fix(n / 1000000)) + " Juta " + Num2Word(n Mod 1000000)

    Case Else

        Num2Word = Num2Word(Fix(n / 1000000000)) + " Milyar " + Num2Word(n Mod 1000000000)

End Select

End Function

Private Sub cmd_exit_Click()

End

End Sub

Private Sub txt_angka_Change()

If Me.txt_angka.Text = "" Then

    Me.lbl_terbilang.Caption = ""

ElseIf Me.txt_angka.Text <= 2147483647 Then

    Me.lbl_terbilang.Caption = Num2Word(Me.txt_angka.Text) + "Rupiah"

ElseIf Me.txt_angka.Text > 2147483647 Then

    MsgBox "Angka tidak boleh melebihi 2.147.483.647", vbOKOnly + vbInformation, ""

    Me.txt_angka.Text = ""

    Me.lbl_terbilang.Caption = ""

    Me.txt_angka.SetFocus

End If

End Sub

·           Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·           Hasilnya ketika program dijalankan :

Gbr 2

Gbr 3

Ketika angka yang diinput lebih besar (>) dari 2.147.483.647, maka akan muncul pesan seperti gambar di bawah ini :

Gbr 4

Download Program Terbilang (Konversi Angka Menjadi Huruf)  disini