salam belajar....
Buat teman-teman Yang mungkin semester sekarang dapat Mata kuliah Pemrograman Foxpro nih saya bantu meringankan tugasnya..
sebenarnya ini juga tugas kuliah saya di semester 4 kemarin, saya posting saja mudah-mudahan bisa membantu teman-teman yang membutuhkanya...
untuk pertemuan ini kita belajar dulu yang dasarnya seperti perhitungan aritmatika di foxpro dan kondisi(IF THEN ELSE).
bahasa Pemrograman Foxpro sendiri tidak jauh beda dengan Pemrograman Visual Basic yang membedakan mungkin dari segi dialegnya..
intinya kita harus tahu dasar dari pemrograman OOP itu(Object Oriented Programming)
aplikasi yang akan kita buat adalah untuk konversi valuta asing..
pertama teman-teman desain dulu tampilan formnya, kontrol yang di gunakan label, button, combobox dan textbox.
desain seperti tanpilan berikut ini :
kemudian ketikan code ini pada button hitung procedure click
IF EMPTY(thisform.njumlah.Value ) then
MESSAGEBOX("Jumlah Harap di isi",0+64,"Info")
thisform.njumlah.SetFocus
RETURN
ENDIF
WITH thisform
.nhasil.value = (.nkurs.value * .njumlah.value)
endwith
dan ini untuk button ulangi procedure click:
thisform.Init
thisform.cvaluta.value=""
thisform.nkurs.Value= 0
thisform.njumlah.value=""
thisform.nhasil.value=""
thisform.cvaluta.setfocus
untuk button keluar procedure click cukup ketikan kodenya thisform.Release
di object form1 procedure init isikan kodenya seperti ini :
&& memasukan item ke combobox
WITH thisform
.nkurs.value=0
.nhasil.inputmask =("##,###,###,###")
.cvaluta.additem ("US DOLLAR")
.cvaluta.additem ("POUNSTERLING")
.cvaluta.additem ("YEN JEPANG")
.cvaluta.additem ("DOLLAR SINGAPURA")
ENDWITH
dan object form1 procedure load :
&& menset mata uang ke format rupiah
SET CURRENCY TO "Rp"
SET TALK OFF
SET CONFIRM OFF
code untuk object cvaluta procedure InterActiveChange
WITH thisform
&& kondisikan untuk setiap mata uang
IF .cvaluta.VALUE="US DOLLAR"
.nkurs.value=11000
ELSE
IF .cvaluta.value="POUNSTERLING"
.nkurs.value=17000
ELSE
IF .cvaluta.value="YEN JEPANG"
.nkurs.value=110
ELSE
IF .cvaluta.value="DOLLAR SINGAPURA"
.nkurs.value=2300
ENDIF
ENDIF
ENDIF
ENDIF
ENDWITH
..selamat belajar........
Senin, 16 Mei 2011
Microsoft Visual Foxpro
05.49
Akbar...
No comments
0 komentar:
Posting Komentar