Pembuatan From Kasir Visual Basic

COTOH GAMBAR




LISTINGAN

Sub nonaktif()
cmbcode.Enabled = False
txtbarang.Enabled = False
txtharga.Enabled = False
End Sub
Sub aktif()
cmbcode.Enabled = True
txtbarang.Enabled = True
txtharga.Enabled = True
End Sub
Sub bersih()
txtbarang.Text = ""
txtharga.Text = ""
txtjumlah.Text = ""
cmbcode.Text = ""
Text2.Text = ""
End Sub



Private Sub cmbcode_Click()
If cmbcode.Text = "A01" Then
txtbarang.Text = "SEPATU JELLY"
txtharga.Text = 150000
End If
End Sub

Private Sub cmdhitung_Click()
Text2 = Val(txtjumlah.Text) * Val(txtharga.Text)

End Sub

Private Sub cmdinput_Click()
aktif
bersih

End Sub

Private Sub cmdkeluar_Click()
p = MsgBox("Anda sudah selesai belanja", vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub

SELAMAT MENCOBA