APLIKASI UANG TERBILANG DENGAN PROGRAM APLIKASI m fvr9.0
Beberapa logika program yang dapat dibantu oleh fungsi standar dari m vfr9.0 diantaranya, fungsi VAL, STR, dan fungsi String lainya seperti Left, Right, dan SubStr yang merupakan fungsi penting pula.
Dalam Program ini pemakai diminta untuk memasukaan nilai atau jumlah uang dan dalam pecahan Decimal (sen), Program kemudian akan menampilkan hurup terbilangnya, Langkah pembuatanya adalah seperti di bawah ini :
1.Buka Project baru dan bikin sebuah form :
OBJEK PROPERTI NILAI
Form Caption Prg Uang
Label1 Caption Angka Uang
Label1 AutoSize T (true)
Label1 FontBold T (true)
Text1 Name Txt1
Label2 Caption Jumlah Rp
Label2 AotuSize F (False)
Label3 Caption Terbilang
Label3 AotuSize F (False)
Cmd1 Caption Selesai
2.Isi perintah pada LostFocos Event Text1 sebagai berikut :
SET TALK OFF
SET STATUS OFF
SET Score OFF
angka0=” “
angka1=”satu”
angka2=”dua”
angka3=”tiga”
angka4=”empat”
angka5=”lima”
angka6=”enam”
angka7=”tujuh”
angka8=”delapan”
angka9=”sembilan”
angka10=”sepuluh”
angka11”sebelas”
angka12=”duabelas”
angka13=”tigabelas”
angka14=”empatbelas”
angka15=”limabelas”
angka16=”enambelas”
angka17=”tujuhbelas”
angka18=”delapanbelas”
angka19=”sembilanbelas”
Num=0
Num=VAL(Thisform.Text1.value)
IF Num=0 Then
RETURN
ENDIF
Kata=” “
M=STR(Num,15, 2)
Pertama=1
Kedua=2
Ketiga=3
Hit=1
DO WHILE Hit<5
Satu=SUBSTR(M,Pertama, 1)
Dua=SUBSTR(M,Kedua, 1)
Tiga=SUBSTR(M,Ketiga, 1)
Gab=Satu+Dua+Tiga
IF VAL(Satu)=1 Then
Kata=Kata+”Seratus”
ENDIF
IF VAL(satu)>1 Then
Kata=Kata+angka&Satu+”Ratus”
ENDIF
IF VAL(Dua)>1 Then
Belas=Dua+Tiga
Kata=Kata+angka&belas
ELSE
IF VAL(Dua)>1 Then
Kata=Kata+angka&Dua+”Puluh”+angka&Tiga
ELSE
IF VAL(Dua)=0 AND VAL(Tiga)>0 Then
IF (Hit=3 AND Gab=”001”) ;
OR (Hit=3 AND Gab=” 1”) Then
Kata=Kata+”seribu”
ELSE
Kata=Kata+angka&Tiga
ENDIF
ENDIF
ENDIF
ENDIF
IF Hit=1 AND VAL(Gab)>0 Then
Kata=Kata+”Milyard”
ENDIF
IF Hit=2 AND VAL(Gab)>0 Then
Kata=kata+”Juta”
ENDIF
IF Hit=3 AND VAL(Gab)>0 Then
IF Gab=”001” OR Gab=” 1” Then
Kata=Kata+” “
ELSE
Kata=Kata+”Ribu”
ENDIF
ENDIF
Hit=Hit+1
Pertama=Pertama+3
Kedua=Kedua+3
Ketiga=Ketiga+3
ENDD HIT
Sen1=SUBSTR(M,14, 1)
Sen2=SUBSTR(M,15, 1)
Sen=Sen1+Sen2
IF LEN(Kata)>1 Then
Kata=Kata+”Rupiah”
ENDIF
IF VAL(sen)>0 AND VAL(sen)<20 Then
IF VAL(sen)<10 Then
Sen=SUBSTR(sen, 2, 1)
ENDIF
Kata=Kata+angka&sen+”sen”
ELSE
IF VAL(sen)>19 Then
Kata=Kata+angka&Sen1+”Puluh”+angka&sen2+”Sen”
ENDIF
ENDIF
Thisform.Label3.Caption=”(“ +kata+”)”
3.Isi perintah pada InteractiveChange Event Untuk Text1 sebagai Berikut :
SET TALK OFF
SET STATUS OFF
SET Score OFF
angka0=” “
angka1=”satu”
angka2=”dua”
angka3=”tiga”
angka4=”empat”
angka5=”lima”
angka6=”enam”
angka7=”tujuh”
angka8=”delapan”
angka9=”sembilan”
angka10=”sepuluh”
angka11=”sebelas”
angka12=”duabelas”
angka13=”tigabelas”
angka14=”empatbelas”
angka15=”limabelas”
angka16=”enambelas”
angka17=”tujuhbelas”
angka18=”delapanbelas”
angka19=”sembilanbelas”
Num=0
Num=VAL(Thisform.Text1.value)
IF Num=0 Then
RETURN
ENDIF
Kata=” “
M=STR(Num, 15, 2)
Pertama=1
Kedua=2
Ketiga=3
Hit=1
DO WHILE Hit<5
Satu=SUBSTR(M, Pertama, 1)
Dua=SUBSTR(M, Kedua, 1)
Tiga=SUBSTR(M, Ketiga, 1)
Gab=Satu+dua+Tiga
IF VAL(Satu)=1 Then
Kata=Kata”seratus”
ENDIF
IF VAL(Satu)>1 Then
Kata=Kata+angka&satu+”Ratus”
ENDIF
IF VAL(Dua)=1 Then
Belas=Dua+Tiga
Kata=Kata+angka&belas
ELSE
IF VAL(Dua)>1 Then
Kata=Kata+angka&Dua+”Puluh”+angka&Tiga
ELSE
IF VAL(Dua)=0 AND VAL(Tiga)>0 Then
IF (Hit=3 AND Gab=” 001”) ;
OR (Hit=3 AND Gab=” 1”) Then
Kata=Kata+”seribu”
ELSE
Kata=Kata+angka&Tiga
ENDIF
ENDIF
ENDIF
ENDIF
IF Hit=1 AND VAL(Gab)>0 Then
Kata=Kata+”Milyard”
ENDIF
IF Hit=2 AND VAL(Gab)>0 Then
Kata=Kata+”Juta”
ENDIF
IF Hit=3 AND VAL(Gab)>0 Then
IF Gab=”001” OR Gab=” 1” Then
Kata=Kata+” “
ELSE
Kata=Kata+”Ribu”
ENDIF
ENDIF
Hit=Hit+1
Pertama=Pertama+3
Kedua=Kedua+3
Ketiga=Ketiga+3
ENDD HIT
Sen1=SUBSTR(M, 14, 1)
Sen2=SUBSTR(M, 15, 1)
Sen=sen1+sen2
IF LEN(Kata)>1 Then
Kata=Kata+”Rupiah”
ENDIF
IF VAL(sen)>0 AND VAL(sen)<20 Then
IF VAL(sen)<10 Then
Sen=SUBSTR(sen, 2, 1)
ENDIF
Kata=Kata+angka&sen+”sen”
ELSE
IF VAL(sen)>19 Then
Kata=Kata+angka&sen1+”Puluh”+angka&sen2+”sen”
ENDIF
ENDIF
Thisform.Label3.Caption=”( “+ kata +” )”
4.Kemudian beralih pada CommandButton1 atau CmdSelesai, klik dua kali pada CmdSelesai dan ketikkan perintahnya.
Thisform.Release
5.Kemudian simpan project tersebut dengan nama Program Uang.
mariberbagi......ihklas.....
