Tugas Cafe Of Yunfa

script:

Private Sub Form_Load()

cmbmenu.AddItem ("Sarapan Pagi")

cmbmenu.AddItem ("Makan Siang")

cmbpaket.AddItem ("Paket 1")

cmbpaket.AddItem ("Paket 2")

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 Option1_Click()

txthrgfasilitas = 5000

End Sub

Private Sub Option2_Click()

txthrgfasilitas = 0

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.Text) - Val(txttotbay.Text)

End Sub

Private Sub cmdbersih_Click()

Option1 = False

Option2 = False

Check1 = False

Check2 = False

Me.txthrgmenu = ""

Me.txthrgfasilitas = ""

Me.txthrgminum = ""

Me.txtjumbel = ""

Me.txttotbay = ""

Me.txtubay = ""

Me.txtukem = ""

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Apakah Anda ingin keluar dari Form ini?", vbQuestion + vbOKCancel, "informasi")

If X = vbOK Then

End

End If

End Sub