PENGGUNAAN IF BERTINGKAT PADA FOXPRO
Pada Command1 button (Proses) ketikan kode SBB
nilai=val(thisform.txtnilai.value)
if nilai >= 90
hasil = "A"
else
if nilai >= 70
hasil = "B"
else
if nilai >=60
hasil = "C"
else
if nilai >=50
hasil = "D"
else
hasil = "E"
endif
endif
endif
endif
thisform.txtgrade.value = hasil
Pada Command2 button (Clear) ketikan code SBB
with thisform
.txtnilai.value=""
.txtgrade.value=""
.txtnilai.setfocus
endwith
Pada Command3 button (Selesai) ketikan code SBB
Thisform.release
IF PADA OPTION GROUP BUTTON
Pada TextBox Hrg ketikan kode sebagai berikut
with thisform
.jml.value=val(.lm.value)*val(.hrg.value)
Endwith
Pada Command1 button (clear) ketikan kode sebagai berikut
thisform.lm.value=""
thisform.hrg.value=""
thisform.jml.value=""
thisform.ket.value=""
thisform.dis.value=""
thisform.byr.value=""
thisform.lm.setfocus()
Pada Option Group button (bagian dis1 dengan 30%) ketikan kode sebagai berikut
thisform.dis.value=thisform.jml.value * .3
thisform.ket.value="Dapat Diskon"
thisform.byr.value=thisform.jml.value - thisform.dis.value
Pada Option Group button (bagian dis2 dengan 20%) ketikan kode sebagai berikut
thisform.dis.value=thisform.jml.value * .2
thisform.ket.value="Dapat Diskon"
thisform.byr.value=thisform.jml.value - thisform.dis.value
Pada Option Group button (bagian dis3 dengan caption 10%) ketikan kode sebagai berikut
thisform.dis.value=thisform.jml.value * .1
thisform.ket.value="Dapat Diskon"
thisform.byr.value=thisform.jml.value - thisform.dis.value
Pada Option Group button (bagian dis4 dengan caption 0%) ketikan kode sebagai berikut
thisform.dis.value=thisform.jml.value * .0
thisform.ket.value="Tidak Dapat Diskon"
thisform.byr.value=thisform.jml.value - thisform.dis.value
Pada Command2 button (Selesai) ketikan code SBB
Thisform.release
0 komentar:
Posting Komentar