Program Visual Basic Dalam Toko

KODE TOMBOL HITUNG TOTAL BELANJA

Private Sub CmdHitung_Click()

TxtTotal.Text = Val(TxtJumlahbarang.Text) * Val(TxtHarga.Text) - Val(TxtDiskon.Text)

End Sub

KODE TOMBOL KELUAR  

Private Sub CmdKeluar_Click()

Unload Me

End Sub

KODE TOMBOL BELANJA LAGI  

Private Sub CmdLagi_Click()

TxtNomor.Text = ""

TxtPembeli.Text = ""

TxtBarang.Text = ""

TxtHarga.Text = ""

TxtJumlahbarang = ""

TxtDiskon = ""

TxtTotal.Text = ""

TxtNomor.SetFocus

End Sub