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

From Biodata Dasar-Dasar Visual Basic

CONTOH GAMBAR




LISTINGAN

Private Sub cmdinput_Click()
txtktp: txtktp.Text = ""
txtnama: txtnama.Text = ""
optlaki: optlaki.Value = False
optwanita: optwanita.Value = False
cbagama: cbagama.Text = ""

End Sub

Private Sub cmdkeluar_Click()
p = MsgBox("Keluar", vbYesNo, "Informasi")
If p = vbYes Then
End
End If
End Sub

SELAMAT MENCOBA