Visual Basic 6.0 : Basic concept Cashiering

Sample Codes Here:

Private Sub Command1_Click()

lblDisplay.Caption = "Item Code:  " & " " & txtIC.Text & " Item Name:  " & " " & txtName.Text & " Item Price:  " & " " & txtPrice.Text

End Sub

Private Sub Command2_Click()

If txtIC.Text = "10001" Then

txtName.Text = "Colgate"

txtPrice.Text = "7"

ElseIf txtIC.Text = "10002" Then

txtName.Text = "Tinapa"

txtPrice.Text = "15"

ElseIf txtIC.Text = "10003" Then

txtName.Text = "Shampoo"

txtPrice.Text = "6.50"

Else

txtName.Text = ""

txtPrice.Text = ""

lblDisplay.Caption = ""

End If

End Sub

Watch video below