Tugas Ke-4 (Cafe Of Yunfa)

Programnya :

Listingnya :

Private Sub Cmdclear_Click()
Option1 = False
Option2 = False
Check1 = False
Check2 = False
List1.Clear
Txthrgmenu = ""
Txthrgfasilitas = ""
Txthrgminum = ""
Txtjumbel = ""
Txtubay = ""
Txttotbay = ""
Txtukem = ""
Cmbmenu.Clear
Cmbpaket.Clear
End Sub

Private Sub Cmdkeluar_Click()
x = MsgBox("Get Out?", vbQuestion + vbOKCancel, "Konfirmasi")
If x = vbOK Then
End
End If
End Sub

Private Sub Form_Load()
Cmbmenu.AddItem ("Sarapan Pagi")
Cmbmenu.AddItem ("Makan Siang")
Cmbpaket.AddItem ("Paket 1")
Cmbpaket.AddItem ("Paket 2")

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 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 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 Txtubay_Change()
Txtukem = Val(Txtubay) - (Txttotbay)

End Sub