Pertemuan 3

RUMUS MENCARI TOTAL HARGA

Total = Hargajual X Jumlah
Kembali = Bayar - Total

Text6==> Jumlah
Object:Text6 Procedure:InteractiveChange
*TotalBayar = HargaJual X Jumlah
Thisform.text7.Value=Thisform.Text5.Value*Thisform.tect6.value

TOMBOL : BATAL
Object : Command1 Procedure:Click
* Mengosongkan isi Text1 s/d Text9 (Kalau tipe Data Character-->"";kalau numeric-->0)
Thisform.Tex1.value=""
Thisform.Tex2.value=""
Thisform.Tex3.value=""
Thisform.Tex4.value=""
Thisform.Tex5.value=""
Thisform.Tex6.value=""
Thisform.Tex7.value=""
Thisform.Tex8.value=""
Thisform.Tex9.value=""

Tombol : KELUAR
Object : Command2 Procedure : Click
Thisfom.Release()