Latihan 5 Sistem Basis Data

 

Hitung

with thisform
if val(.text2.value) > 10
    .text3.value="10%"
    .text4.value= val(.text1.value)*val(.text2.value)-0.1*val(.text1.value)*val(.text2.value)
    .text5.value="Anda mendapatkan diskon sebanyak 10%"
else
    .text3.value="0%"
    .text4.value= val(.text1.value)*val(.text2.value)
    .text5.value="Anda tidak mendapatkan diskon"
endif
endwith

Clear

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

Endwith

Exit

thisform.release()