PENGGUNAAN IF PADA FOXPRO
Pada CommandButton1 ketikan kode SBB
with thisform
if val(.edit1.value)>val(.edit2.value)
.edit3.value="A lebih besar dari B"
Else
.edit3.value="A lebih kecil dari B"
Endif
endwith
Pada CommandButton2 ketikan code SBB
With thisform
.edit1.value=’ ‘
.edit2.value=’ ’
.edit3.value=’ ’
Endwith
Pada CommandButton3 ketikan code SBB
Thisform.release
CONTOH 2
Pada command button1(hitung) isikan source code sebagai berikut :
with thisform
if val(.text2.value)>10
.text3.value="10%"
.text4.value=val(.text1.value)*val(.text2.value)-0.1*val(.text1.value)
.text5.value="Anda Mendapat Diskon 10%"
else
.text3.value="0%"
.text4.value=val(.text1.value)*val(.text2.value)
.text5.value="Anda Tidak Mendapatkan Diskon"
endif
endwith
Pada Command button2(clear) isikan source code sebagai berikut:
with thisform
.text1.value=""
.text2.value=""
.text3.value=""
.text4.value=""
.text5.value=""
Endwith
Pada Command button3(exit) isikan source code sebagai berikut:
thisform.release
0 komentar:
Posting Komentar