Merubah Angka Menjadi Huruf di Visual Basic

Ok all, pada postingan pertama saya ini saya akan membahas cara membuat sebuah konverter. Fungsi konverter ini nantinya adalah merubah angka menjadi huruf, ok langsung saja let’s start !!! ini hasil akhirnya :

Merubah Angka Menjadi Huruf di Visual Basic

1.Pertama – tama buka dulu vb anda.
2.kalau udah terbuka buat 1 buah TextBox, 1 buah Label, dan 2 buah Command, atur posisinya seperti gambar berikut

Merubah Angka Menjadi Huruf di Visual Basic

3.Klik Text 1, dan hapus isi caption Text 1 yang berisi tulisan “Text 1″

Merubah Angka Menjadi Huruf di Visual Basic

4.Lalu klik Label 1 atur properties Label 1, sesuai dengan settingan berikut ini :
a.Caption => dikosongkan
b.BackColor => isi dengan &H80000009&
c.BorderStyle => 1-Fixed Single

Merubah Angka Menjadi Huruf di Visual Basic

Merubah Angka Menjadi Huruf di Visual Basic

5.Atur juga properties Command 1, ganti isi Captionnya menjadi Rubah

Merubah Angka Menjadi Huruf di Visual Basic

6.Untuk memasukkan kode programnya klik View Code

Merubah Angka Menjadi Huruf di Visual Basic

7.Masukkan kode berikut ini :

'Source code untuk pengubah angka menjadi huruf
'http://postinganane.wordpress.com/
Option Explicit
Private Function conv(ByVal uang As Double) As String
Dim uangx As String: Dim i As Integer
uangx = Format(uang, "000000000")
i = 1
Do While i <= 9
If Val(Mid(uangx, i, 3)) > 0 Then
Select Case i
Case 1: conv = conv & conv1(Mid(uangx, i, 3)) & "JUTA "
Case 4
conv = conv & conv1(Mid(uangx, i, 3)) & "RIBU "
If Val(Mid(uangx, i, 3)) = 1 Then conv = Replace(conv, "ATU R", "ER")
Case 7: conv = conv & conv1(Mid(uangx, i, 3))
End Select
End If
i = i + 3
Loop
End Function
Private Function conv1(lvl1 As String) As String
Dim A(2): Dim i As Integer: Dim j As Integer
For i = 0 To 2
Select Case Mid(lvl1, i + 1, 1)
Case 1: A(i) = "SE"
Case 2: A(i) = "DUA "
Case 3: A(i) = "TIGA "
Case 4: A(i) = "EMPAT "
Case 5: A(i) = "LIMA "
Case 6: A(i) = "ENAM "
Case 7: A(i) = "TUJUH "
Case 8: A(i) = "DELAPAN "
Case 9: A(i) = "SEMBILAN "
End Select
Next i
If A(0) <> "" Then A(0) = A(0) & "RATUS "
If A(1) = "SE" And A(2) <> "" Then
A(1) = A(2) & "BELAS ": A(2) = ""
GoTo konversi
Else
If A(1) <> "" Then A(1) = A(1) & "PULUH "
End If
If Mid(lvl1, 3, 1) = 1 Then A(2) = "SATU "
konversi:
conv1 = A(0) & A(1) & A(2)
End Function
'Kode yg berguna ketika Command1 di klik namun Text1 masih kosong
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Isi angkanya dulu bro !!!", vbExclamation
Text1.SetFocus
Exit Sub
Else
'Jika Text1 bukan angka maka akan keluar pesan
If Not IsNumeric(Text1.Text) Then
MsgBox "Hey yo dude, are you sick ? Ini bukan angka bro !!!", vbExclamation
Text1.SetFocus
Exit Sub
End If
End If
Label1.Caption = conv(Val(Text1.Text))
End Sub

8.Sebagai tambahan saja anda bisa menambahkan 2 buah label, dengan properties sebagai berikut :
a.Properties Label 2 => Caption = Angka >>
b.Properties Label 3 => Caption = Huruf >>

Merubah Angka Menjadi Huruf di Visual Basic

About these ads

6 comments on “Merubah Angka Menjadi Huruf di Visual Basic

  1. Pingback: Penggunaan SyntaxHighlighter di Wordpress « Hanya Sekedar Blog Sederhana

      • bagian kode yang gak biasa font.a merah knpa ya gan

        Do While i <= 9
        If Val(Mid(uangx, i, 3)) > 0 Then
        Case 1: conv = conv & conv1(Mid(uangx, i, 3)) & “JUTA ”
        conv = conv & conv1(Mid(uangx, i, 3)) & “RIBU ”
        Case 7: conv = conv & conv1(Mid(uangx, i, 3))

        dan
        If A(0) <> “” Then A(0) = A(0) & “RATUS ”
        If A(1) = “SE” And A(2) <> “” Then
        A(1) = A(2) & “BELAS “: A(2) = “”
        If A(1) <> “” Then A(1) = A(1) & “PULUH ”
        conv1 = A(0) & A(1) & A(2)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s