Latihan 9 Sistem Basis Data

 

Text2

with thisform

.text3.value=val(.text1.text)*val(.text2.text)

Endwith

Check1

with thisform

.text4.value="Anda mendapat diskon 30%"

.text5.value=val(.text3.text)-val(.text3.text)*0.3

.text6.value=val(.text3.text)*0.3

.check2.enabled=.f.

.check3.enabled=.f.

Endwith

Check2

with thisform

.text4.value="Anda mendapat diskon 10%"

.text5.value=val(.text3.text)-val(.text3.text)*0.1

.text6.value=val(.text3.text)*0.1

.check1.enabled=.f.

.check3.enabled=.f.

Endwith

Check3

with thisform

.text4.value="Anda mendapat diskon 20%"

.text5.value=val(.text3.text)-val(.text3.text)*0.2

.text6.value=val(.text3.text)*0.2

.check1.enabled=.f.

.check2.enabled=.f.

Endwith

Mulai

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

.text6.value=""

Endwith

Selesai

thisform.release()