• FACEBOOK

    Welcome to my blog

    Senang bisa membantu kalian semua

    dan Semoga tulisan saya bermanfaat,

    Sekenannya komentar anda supaya saya bisa

    mengerti apa yang di dapatkan oleh pembaca

  • Twitter

    Twitter

  • Do NOT REPOST

    Do Not Repost Any Content Here Thanks

  • MYSHOP

    Gadget Mania !! Welcome to my shop ^.^

Membuat Program dengan Check


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