Program Aplikasi Dalam Toko

Kode Program Tombol Hitung Total Belanja :

Private Sub CmdHitung_Click()
TxtTotal.Text = Val(TxtJumlahbarang.Text) * Val(TxtHarga.Text) - Val(TxtDiskon.Text)
End Sub

Kode Program Tombol Keluar :
Private Sub CmdKeluar_Click()
Unload Me
End Sub

Kode Program Tombol Belanja Lagi :
Private Sub CmdLagi_Click()
TxtNomor.Text = ""
TxtPembeli.Text = ""
TxtBarang.Text = ""
TxtHarga.Text = ""
TxtJumlahbarang = ""
TxtDiskon = ""
TxtTotal.Text = ""
TxtNomor.SetFocus
End Sub