CAFE OF YUNFA

Membuat form Kasir CAFE OF YUNFA Dengan VB6

Listing Code nya :

Private Sub Form_Load()
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbpaket.AddItem ("Paket 1")
cmbpaket.AddItem ("Paket 2")
End Sub

Private Sub Option1_Click()
txthrgfasilitas = 5000
End Sub
Private Sub Option2_Click()
txthrgfasilitas = 0
End Sub

Private Sub txtjumbel_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txttotbay = Val(txtjumbel) * (Val(txthrgmenu) + Val(txthrgfasilitas) + Val(txthrgminum))
txtubay.SetFocus
End If
End Sub

Private Sub cmbpaket_Click()
If cmbmenu.Text = "Sarapan Pagi" Then
Select Case (cmbpaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
txthrgmenu = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur Mata Sapi")
List1.AddItem ("Tempe goreng")
txthrgmenu = 7000
End Select
Else
Select Case (cmbpaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
txthrgmenu = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayur")
List1.AddItem ("Sambal Ijo")
txthrgmenu = 10000
End Select
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 Then
txthrgminum = 3000
ElseIf Check1 = 1 And Check2 = 0 Then
txthrgminum = 2500
ElseIf Check1 = 0 And Check2 = 1 Then
txthrgminum = 500
Else
txthrgminum = 0
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 1 Then
txthrgminum = 3000
ElseIf Check1 = 1 And Check2 = 0 Then
txthrgminum = 2500
ElseIf Check1 = 0 And Check2 = 1 Then
txthrgminum = 500
Else
txthrgminum = 0
End If
End Sub

Private Sub txtubay_change()
txtukem = Val(txtubay) - (txttotbay)
End Sub

Cafe Of Yunfa VB6