Latihan 8 Sistem Basis Data

Text box harga

with thisform

.jumlah.value=val(.lama.value)*val(.harga.value)

Endwith

Diskon Umum

Diskon1

thisform.diskon.value=thisform.jumlah.value * .3

thisform.keterangan.value="Anda Mendapat Diskon"

thisform.bayar.value=thisform.jumlah.value - thisform.diskon.value

Diskon2

thisform.diskon.value=thisform.jumlah.value * .2

thisform.keterangan.value="Anda mendapat Diskon"

thisform.bayar.value=thisform.jumlah.value - thisform.diskon.value

Diskon3

thisform.diskon.value=thisform.jumlah.value * .1

thisform.keterangan.value="Anda Mendapat Diskon"

thisform.bayar.value=thisform.jumlah.value - thisform.diskon.value

Diskon4

thisform.diskon.value=thisform.jumlah.value * .0

thisform.keterangan.value="Tidak Dapat Diskon"

thisform.bayar.value=thisform.jumlah.value - thisform.diskon.value

Command Button Clear

thisform.lama.value=""

thisform.harga.value=""

thisform.jumlah.value=""

thisform.keterangan.value=""

thisform.diskon.value=""

thisform.bayar.value=""

thisform.lama.setfocus()

Command Button Selesai

thisform.release()

Hasil Run