latihan visual basic "Cafe Of Yunfa"

kali ini gue masih posting visual basic ni guys hehe..
setelah yang sebelumnya semacam kalkulator sederhana gitu kali ini mengenai penjualan ni guys.
begini tampilan form nya..
dan jangan lupa pembrian nama pada textbox, commandbutton, combobox disamakan dengan di listingnya ya guys.

setelah design selesai, copy aja ni guys listingannya.
lalu periksa penamaan pada texbox commandbutton dll nya udah sesuai list nya belum.
jika sudah, silahkan di running guys..

Private Sub air_Click()
If tehmanis = 1 And air = 1 Then
harga2 = 3000
ElseIf tehmanis = 1 And air = 0 Then
harga2 = 2500
ElseIf tehmanis = 0 And air = 1 Then
harga2 = 500
Else harga2 = 0
End If
End Sub

Private Sub Command1_Click()
menu.Text = ""
paket.Text = ""
daftarmenu.Clear
harga1.Text = ""
delivery.Value = False
ditempat.Value = False
tehmanis.Value = False
air.Value = False
harga2.Text = ""
harga3.Text = ""
jumbel.Text = ""
totbay.Text = ""
ubay.Text = ""
ukem.Text = ""
End Sub

Private Sub Command2_Click()
z = MsgBox("Anda yakin akan keluar dari form ini??", vbQuestion + vbOKCancel, "informasi")
If z = vbOK Then
End
End If
End Sub

Private Sub delivery_Click()
If delivery = 1 Then
harga3 = 5000
Else harga3 = 0
End If
End Sub

Private Sub ditempat_Click()
If delivery = 1 Then
harga3 = 5000
Else harga3 = 0
End If
End Sub

Private Sub Form_Load()
menu.AddItem ("Sarapan Pagi")
menu.AddItem ("Makan Siang")
paket.AddItem ("paket 1")
paket.AddItem ("paket 2")
End Sub

Private Sub jumbel_Change()
totbay.Text = Val(jumbel.Text) * Val(harga1.Text) + (Val(jumbel.Text) * Val(harga2.Text)) + Val(harga3.Text)
ubay.SetFocus
End Sub

Private Sub paket_Click()
If menu.Text = "Sarapan Pagi" Then
Select Case (paket.Text)
Case "paket 1"
daftarmenu.Clear
daftarmenu.AddItem ("Nasi uduk")
daftarmenu.AddItem ("Telur")
daftarmenu.AddItem ("Tempe orek")
harga1 = 5000
Case Else
daftarmenu.Clear
daftarmenu.AddItem ("Nasi Goreng")
daftarmenu.AddItem ("Telur Mata Sapi")
daftarmenu.AddItem ("Tempe Goreng")
harga1 = 7000
End Select
Else
Select Case (paket.Text)
Case "paket 1"
daftarmenu.Clear
daftarmenu.AddItem ("Nasi Putih")
daftarmenu.AddItem ("Ayam Bakar")
daftarmenu.AddItem ("Lalapan")
harga1 = 8000
Case Else
daftarmenu.Clear
daftarmenu.AddItem ("Nasi Putih")
daftarmenu.AddItem ("Rendang")
daftarmenu.AddItem ("Sayur")
daftarmenu.AddItem ("Sambal Ijo")
harga1 = 10000
End Select
End If
End Sub

Private Sub tehmanis_Click()
If tehmanis = 1 And air = 1 Then
harga2 = 3000
ElseIf tehmanis = 1 And air = 0 Then
harga2 = 2500
ElseIf tehmanis = 0 And air = 1 Then
harga2 = 500
Else
harga2 = 0
End If
End Sub

Private Sub ubay_Change()
ukem.Text = Val(ubay.Text) - Val(totbay.Text)
End Sub