Fungsi Terbilang di Visual Basic

FUNGSI TERBILANG DI VISUAL BASIC

Fungsi Terbilang di Visual Basic

Mungkin pada waktu kita di Minimarket/Swalayan atau tempat perbelanjaan, kita sering menerima nota, seringkali total uang kita ada fungsi terbilang seperti : Seratus Ribu Rupiah, yang tentunya akan mempermudah seorang kasir untuk menyebutkan jumlah total pembayaran kita, nah tentu anda tertarik dan ingin membuatnya, bagaimana caranya  : 

1.       Persipan

Seperti biasa buatlah form seperti gambar di bawah ini :

  Dengan Objetc Propertis:

Object	Propertis	Keterangan
Form1	Caption	Form1
Label1	Caption	Harga
Label2	Caption	Terbilang
Label3	Caption
	Name	Label_harga

2.       Implementasi

  ·         Buatlah modul1 dan masukkan code di bawah ini kedalam module yang telah kita buat tadi.

 ‘--------------------------------------------------------------------------------------------------------------------------Function terbilang(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")

  Select Case n 'keadaan

    Case 0 To 11

        terbilang = " " + satuan(Fix(n))

    Case 12 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 Else

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

  End Select

End Function

‘-------------------------------------------------------------------------------------------------------------------------

 ·         Setelah selesai membuat fungsi terbilang, masukkan code di bawah ini ke dalam form1

‘------------------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()

Text1.Text = ""

label_harga.Caption = ""

End Sub

Private Sub Text1_Change()

If Text1.Text = "" Then

    label_harga.Caption = ""

Else

    label_harga.Caption = terbilang(Text1.Text) & " Rupiah"

End If

End Sub

‘-----------------------------------------------------------------------------------------------------------------------

3.       Output

Setelah selesai, jalankan aplikasi dan masukkan total uang yang akan di conversi ke rupiah, bila berhasil akan muncul seperti gambar di bawah ini :