New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

Membuat program terbilang pada Microsoft visual foxpro 9.0

Sedikit ilmu dari sang pemula, disini aku akan mengajarkan bagi anda yang ga tahu atau sudah susah payah mencari literatur membuat program terbilang… anda ga salah masuk diblog ini cuz disini ga ada yang disembunyikan, sejauh apa yang aku tahu wajib aku ajarkan….. tapi mohon maaf jika cara penyampaiaannya kurang begitu memuaskan cuz semua ini diluar kehendaku, sebab aku bukan guru yang baik…. Hik…hik….upz sebelumnya mohon maaf bagi rekan-rekan yang masih lebih pemula dari aku, untuk belajar ini anda harus mengetahui dasar pemrograman visual foxpro, search aja di blog ini dengan kata kunci menjadi mahir tanpa guru…… “promosi lagi jadinya….he..he…”
Kita mulai aja yach buatlah project dengan nama prjterbilang seperti gambar dibawah:



Disini kita akan membuat prg terlebih script program sebagai berikut :
*-------------------
Function fnterbilang
*-------------------

Lparameter mNumerik
Private MCHASIL,MNLOOP,MCUANG,MNONE,MNTWO,MNTREE
Private MCANGKA0,MCANGKA1,MCANGKA2,MCANGKA3
Private MCANGKA4,MCANGKA5,MCANGKA6,MCANGKA7
Private MCANGKA8,MCANGKA9
Private MCSATU,MCDUA,MCTIGA,MCGABUNG,MCSEN1,MCSEN2

MCHASIL=''
MCUANG=STR(MNUMERIK,15,2)
MNONE=1
MNTWO=2
MNTREE=3
MCANGKA0=''
MCANGKA1="Satu "
MCANGKA2="Dua "
MCANGKA3="Tiga "
MCANGKA4="Empat "
MCANGKA5="Lima "
MCANGKA6="Enam "
MCANGKA7="Tujuh "
MCANGKA8="Delapan "
MCANGKA9="Sembilan "
MCGABUNG=""

FOR MNLOOP = 1 To 4

MCSATU=SUBSTR(MCUANG,MNONE,1)
MCDUA=SUBSTR(MCUANG,MNTWO,1)
MCTIGA=SUBSTR(MCUANG,MNTREE,1)
MCGABUNG=MCSATU+MCDUA+MCTIGA
IF VAL(MCSATU)=1
MCHASIL=MCHASIL+ "Seratus "
ELSE
IF VAl(MCSATU)>1
MCHASIL=MCHASIL+MCANGKA&MCSATU+ "Ratus "
ENDIF
ENDIF
DO CASE
CASE VAL(MCDUA)=1
DO CASE
CASE VAL(MCTIGA)=0
MCHASIL=MCHASIL+"Sepuluh "
CASE VAL(MCTIGA)=1
MCHASIL=MCHASIL+"Sebelas "
OTHER
MCHASIL=MCHASIL+ALLTRIM(MCANGKA&MCTIGA)+;
"belas "
ENDCASE
CASE VAL(MCDUA)>1
MCHASIL=MCHASIL+MCANGKA&MCDUA+"Puluh "+;
MCANGKA&MCTIGA
CASE VAL(MCDUA)=0.AND.VAL(MCTIGA)>0
IF (MNLOOP=3.AND.MCGABUNG="001") .OR. ;
(MNLOOP=3.AND.MCGABUNG=" 1")
MCHASIL=MCHASIL+"Seribu "
ELSE
MCHASIL=MCHASIL+MCANGKA&MCTIGA
ENDIF
ENDCASE

DO CASE
CASE MNLOOP=1.AND.VAL(MCGABUNG)>0
MCHASIL=MCHASIL+"Milyar "
CASE MNLOOP=2.AND.VAL(MCGABUNG)>0
MCHASIL=MCHASIL+"Juta "
CASE MNLOOP=3.AND.VAL(MCGABUNG)>0
IF MCGABUNG="001".OR.MCGABUNG=" 1"
MCHASIL=MCHASIL+""
ELSE
MCHASIL=MCHASIL+"Ribu "
ENDIF
ENDCASE
MNONE=MNONE+3
MNTWO=MNTWO+3
MNTREE=MNTREE+3
NEXT MNLOOP
MCSEN1=SUBSTR(MCUANG,14,1)
MCSEN2=SUBSTR(MCUANG,15,1)
IF LEN(MCHASIL)>1
MCHASIL=MCHASIL+"Rupiah "
ENDIF

DO CASE
CASE VAL(MCSEN1)=0.AND.VAL(MCSEN2)>0
MCHASIL=MCHASIL+MCANGKA&MCSEN2+"Sen"
CASE VAL(MCSEN1)=1
DO CASE
CASE VAL(MCSEN2)=0
MCHASIL=MCHASIL+"Sepuluh Sen"
CASE VAL(MCSEN2)=1
MCHASIL=MCHASIL+"Sebelas Sen"
CASE VAL(MCSEN2)>1
MCHASIL=MCHASIL+ALLTRIM(MCANGKA&MCSEN2)+;
"belas Sen"
ENDCASE
CASE VAL(MCSEN1)>1
MCHASIL=MCHASIL+MCANGKA&MCSEN1+ "Puluh "+;
MCANGKA&MCSEN2 + "Sen "
ENDCASE
RETURN MCHASIL

Setelah anda membuat simpanlah dengan nama terbilang.prg, selanjutnya rancanglah sebuah form dengan ketentuan seperti berikut :

No Object Properti Nilai
1 Form1 Caption Unit Terbilang
Windowtype 1 – Modal
showwindow 1 – In Top-Level Form
2 Label1 Caption Jumlah Dana
3 Label2 Caption Terbilang
4 Text4 Alignment 3 – Automatic
5 Edit1 Enabled .F. – False
6 Command1 Caption Keluar




Script program
Object : Form1 procedure : Init
Set Proc to
SET PROCEDURE TO terbilang ADDITIVE

With Thisform
.text4.value=0
.text4.inputmask='999,999,999,999.99'
.edit1.value=''
Endwith

Object : Form1 procedure : Refresh
a=thisform.text4.value
thisform.edit1.value=fnterbilang(a)

Object : Text4 procedure :LostFocus
thisform.Refresh()

Object : Edit1 procedure :Refresh
a=thisform.text4.value
thisform.edit1.value=fnterbilang(a)

Object : command1 procedure :Click
thisform.Release()

jalankan program dan lihat hasilnya


download program

Aku panjatkan rasa syukurku kepada Allah SWT yang telah memberikan nikmat kehidupan sehingga aku
masih bisa bernafash untuk tetap berkarya, rasa syukurkulah yang bisa membuat aku tetap bertahan
berada didunia yang penuh kemunafikan dan rasa syukurku pula yang membuat aku tetap berdiri tegar
meskipun aku ada sedikit masalah perasaan ma someone… Terimakasih ya Allah telah menitipkan ilmu
yang bisa kuberikan kepada mereka yang membutuhkan…….
Terimakasihku untuk kedua orang tuaku tercinta, kedua kakakku yang tersayang, ke empat sahabatku yang saat ini berada jauh dariku.

Membuat program terbilang pada Microsoft visual foxpro 9.0SocialTwist Tell-a-Friend
Computers Web Directory
Blog Directory Dr.5z5 Open Feed Directory Computers (Linux) - TOP.ORG blog search directory Blog Search: The Source for Blogs free web site traffic and promotion
MyFreeCopyright.com Registered & Protectedintellectual property