Membuat Program dengan Check
Listing Progam
Pada Text2 ubah procedure pada interactive change dan ketikan code sebagai berikut
with thisform
.text3.value=val(.text1.value)*val(.text2.value)
endwith
Pada Button1(Mulai) ketikan code sebagai berikut
with thisform
.text1.value=""
.text2.value=""
.text3.value=""
.text4.value=""
.text5.value=""
.text6.value=""
.check1.enabled=.T.
.check1.value=0
.check2.enabled=.T.
.check2.value=0
.check3.enabled=.T.
.check3.value=0
.text1.setfocus
endwith
Pada Button2(selesai) ketikan code sebagai berikut
thisform.release
Pada Check1 (anggota) ketikan code sebagai berikut
with thisform
.text4.value="Diskon 30%"
.text5.value=val(.text1.value)*val(.text2.value)-val(.text1.value)*val(.text2.value)*0.3
.text6.value=val(.text1.value)*val(.text2.value)*0.3
.check2.enabled=.F.
.check3.enabled=.F.
Endwith
Pada Check2 (Umum) ketikan code sebagai berikut
with thisform
.text4.value="Diskon 10%"
.text5.value=val(.text1.value)*val(.text2.value)-val(.text1.value)*val(.text2.value)*0.1
.text6.value=val(.text1.value)*val(.text2.value)*0.1
.check1.enabled=.F.
.check3.enabled=.F.
Endwith
Pada Check3 (Karyawan) ketikan code sebagai berikut
with thisform
.text4.value="Diskon 20%"
.text5.value=val(.text1.value)*val(.text2.value)-val(.text1.value)*val(.text2.value)*0.2
.text6.value=val(.text1.value)*val(.text2.value)*0.2
.check1.enabled=.F.
.check2.enabled=.F.
endwith
0 komentar:
Posting Komentar