English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified

22 Juni 2009

Konversi Mata Uang Ke Penulisan Huruf

Pada tulisan kali ini akan saya bagi2 programming sedikit mengenai konversi mata uang ke bentuk penulisan huruf

Fungsi terbilang nilai mata uang ini biasanya digunakan pada aplikasi-aplikasi yang berkaitan dengan penjualan atau sejenisnya. Sebagai gambaran, Operator/admin hanya memasukkan nilai mata uang maka secara otomatis aplikasi tersebut mengkonversnya ke huruf. Selain itu juga mempermudah pengucapan nilai mata uang.

Ikuti langkah berikut:

  • Buat 1 Modul dan satu form. Nama modul dan form terserah anda
  • Sisipkan kode berikut pada modul

Function Cur2Int(str_ As String) As Long

Dim s As String
Dim D As String
Dim dd As String
Dim I As Byte
Dim J As Byte
On Error GoTo hancuR
s = str_
D = ""
For I = 0 To Len(s) - 1
dd = Mid(s, Len(s) - I, 1)
If dd <> "." Then
D = dd + D
End If
Next I
If dd <> "" Then
Cur2Int = Val(D)
Else
Cur2Int = 0
End If
Exit Function
hancuR:
'//Nama text terbilang
Txtterbilang.Text = "0"
End Function


'// fungsi terbilang
Public Function Terbilang(strAngka As String) As String

Dim strJmlHuruf$, intPecahan As Integer, strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X, Y, z As Integer

If strAngka = "" Then Exit Function
strJmlHuruf = LTrim(strAngka)
intPecahan = Val(Mid(strAngka, 15, 2))
If (intPecahan = 0) Then
strPecahan = ""
Else
strPecahan = LTrim(Str(intPecahan)) + "/100 "
End If
X = 0
Y = 0
Urai = ""
While (X < x =" X" strtot =" Mid(strJmlHuruf," y =" Y" z =" Len(strJmlHuruf)" z =" 1" z =" 7" z =" 10" z =" 13)" bil1 = "Satu " z =" 4)" x =" 1)" bil1 = "Se" bil1 = "Satu " z =" 2" z =" 5" z =" 8" z =" 11" z =" 14)" x =" X" strtot =" Mid(strJmlHuruf," z =" Len(strJmlHuruf)" bil2 = "" bil1 = "Sepuluh " bil1 = "Sebelas " bil1 = "Dua Belas " bil1 = "Tiga Belas " bil1 = "Empat Belas " bil1 = "Lima Belas " bil1 = "Enam Belas " bil1 = "Tujuh Belas " bil1 = "Delapan Belas " bil1 = "Sembilan Belas " bil1 = "Se" bil1 = "Dua " bil1 = "Tiga " bil1 = "Empat " bil1 = "Lima " bil1 = "Enam " bil1 = "Tujuh " bil1 = "Delapan " bil1 = "Sembilan " bil1 = ""> 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "Puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "ratus "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If

If (Y > 0) Then
Select Case z
Case 4
Bil2 = Bil2 + "Ribu "
Y = 0
Case 7
Bil2 = Bil2 + "Juta "
Y = 0
Case 10
Bil2 = Bil2 + "Milyar "
Y = 0
Case 13
Bil2 = Bil2 + "Triliun "
Y = 0
End Select
End If

Urai = Urai + Bil1 + Bil2
Wend
Urai = Urai + strPecahan
Terbilang = Urai & "Rupiah"
End Function

  • Sisipkan 2 buah text box pada form, dan beri nama textbox tadi :

* txtangka -> untuk inputan bilangan
* txtTerbilang -> untuk menampilkan hasil konversi

  • Sisipkan 1 buah Command button. Klik 2 kali Command Button dan sisipkan kode berikut :

If TxtAngka.Text = "" Then
MsgBox "Inputan Angka masih kosong", vbQuestion, "Kesalahan | inputan kosong"
TxtAngka.SetFocus
Else
TxtTerbilang.Text = Terbilang(Str(Cur2Int(TxtAngka.Text)))
End If

Langkah-langkah diatas merupakan langkah peng-Codingan. Sekarang saatnya kita melakukan pengujian pada aplikasi ini.

  • Jalankan Script yang telah dibuat pada menu RUN
  • Masukkan angka/bilangan pada txtAngka.
  • Klik Command button, maka hasil konversi akan tampil pada txtTerbilang.

Untuk source yang sudah jadi dapat di download pada Halaman Download.
Okey.. Selamat mencoba.

Tidak ada komentar: