Angka Terbilang Indonesia dengan vb.net

Dalam tutorial vb.net berikut ini, penulis mencoba membuat angka menjadi tulisan terbilang dengan bahasa Indonesia dari besar angka yang dimasukkan ke dalam textbox. Besar angka yang dimasukkan bukan bilangan pecahan, tapi bilangan bulat.

Pada tutorial vb.net kali ini kita akan membutuhkan “Class” dari vb.net untuk membuatfungsi terbilang indonesia.

Ok langsung saja tutorial angka terbilang indonesia dengan vb.net :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Angka
Label2	Text	Terbilang
TextBox1	Text	[Dikosongkan]
	Name	TxtAngka
TextBox2	Text	[Dikosongkan]
	Name	TxtTerbilang
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Terbilang Indonesia
	Name	BtnTerbilang

4.  Sebelum Memasukkan Kode di Form1 anda harus membuat “Class” terlebih dahulu,caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”, ganti namanya dengan “TerbilangIndonesia” pada kolom “Name”, Lalu Pilih “Add” :

5.  Pada “Class” TerbilangIndonesia masukkan kode sebagai berikut ini :

Imports VB = Microsoft.VisualBasic

Public Class TerbilangIndonesia

Function Terbilang(ByRef Indx As String) As String

Dim satu(10) As String

Dim dua(10) As String

Dim tiga(10) As String

Dim ratus As String

Dim ribu As String

Dim juta As String

Dim Millyar As String

Dim Trilliun As String

satu(0) = “Nol” : satu(1) = “Satu” : satu(2) = “Dua” : satu(3) = “Tiga” : satu(4) = “Empat” : satu(5) = “Lima” : satu(6) = “Enam” : satu(7) = “Tujuh” : satu(8) = “Delapan” : satu(9) = “Sembilan”

dua(0) = “Sepuluh” : dua(1) = “Sebelas” : dua(2) = “Dua belas” : dua(3) = “Tiga belas” : dua(4) = “Empat Belas” : dua(5) = “Lima Belas” : dua(6) = “Enam Belas” : dua(7) = “Tujuh belas” : dua(8) = “Delapan belas” : dua(9) = “Sembilan belas”

tiga(2) = “Dua puluh” : tiga(3) = “Tiga puluh” : tiga(4) = “Empat puluh” : tiga(5) = “Lima puluh” : tiga(6) = “Enam Puluh” : tiga(7) = “Tujuh Puluh” : tiga(8) = “Delapan puluh” : tiga(9) = “Sembilan puluh”

ratus = “ratus” : ribu = “ribu” : juta = “juta”

Millyar = “millyar” : Trilliun = “trilliun”

Dim inp, BhsNilai As String

inp = CStr(Val(Indx))

Select Case Len(inp)

Case 1

BhsNilai = satu(CInt(Indx))

Case 2

If Int(CDbl(VB.Right(inp, 1))) > 0 And CDbl(VB.Left(inp, 1)) > 1 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 1)))))

If CDbl(VB.Left(inp, 1)) > 1 Then BhsNilai = tiga(CInt(VB.Left(inp, 1))) & BhsNilai

If CDbl(VB.Left(inp, 1)) = 1 Then BhsNilai = dua(CInt(VB.Right(inp, 1)))

BhsNilai = Replace(BhsNilai, “Satu ribu”, “Seribu”)

Case 3

BhsNilai = satu(10)

If Int(CDbl(VB.Right(inp, 2))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 2)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & ratus & BhsNilai

Case 4

If Int(CDbl(VB.Right(inp, 3))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 3)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & ribu & BhsNilai

BhsNilai = Replace(BhsNilai, “Satu ribu”, “Seribu”)

Case 5

If Int(CDbl(VB.Right(inp, 3))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 3)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & ribu & BhsNilai

Case 6

If CInt(VB.Right(inp, 3)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 3))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & ribu & BhsNilai

Case 7

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & juta & BhsNilai

Case 8

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & juta & BhsNilai

Case 9

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & juta & BhsNilai

Case 10

If CInt(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 9))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & Millyar & BhsNilai

Case 11

If CInt(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 9))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & Millyar & BhsNilai

Case 12

If Val(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 9))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & Millyar & BhsNilai

Case 13

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & Trilliun & BhsNilai

Case 14

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & Trilliun & BhsNilai

Case 15

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & Trilliun & BhsNilai

End Select

BhsNilai = Replace(BhsNilai, “Satu ratus”, “Seratus”)

BhsNilai = Trim(BhsNilai)

Terbilang = ” ” & BhsNilai & ” ”

Terbilang = Replace(Terbilang, ” “, ” “)

End Function

End Class

6. Pada “Form1” Masukkan kode berikut ini :

Public Class Form1

Dim TerBilangIndonesia As New TerbilangIndonesia

Private Sub BtnTerbilang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTerbilang.Click

TxtTerbilang.Text = TerBilangIndonesia.Terbilang(TxtAngka.Text) + “Rupiah”

End Sub

End Class

7.  Setelah itu klik “Start Debugging (F5)”

8.  Maka akan tampil form1 dan coba masukkan angka berapapun, dan klik terbilang maka di di textbox akan tampil angka terbilang indonesia

Demikian tutorial angka terbilang indonesia dengan vb.net, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.

tetap semangat dan lanjut gan !!!