individual task :))

 Di Comic Cafe Ranco Indah :D

Hi , mau tau cara bikin project ini ? ini Listing Program nya , dicoba yah , hehe


Private Sub Form_Load()
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbpaket.AddItem ("Paket1")
cmbpaket.AddItem ("Paket2")
End Sub


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

Private Sub Option1_Click()
txthrgfasilitas = 7000
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 "Paket1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
txthrgmenu = 7000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur Mata Sapi")
List1.AddItem ("Tempe Goreng")
txthrgmenu = 10000
End Select
Else
Select Case (cmbpaket.Text)
Case "Paket1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
txthrgmenu = 15000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayur")
List1.AddItem ("Sambel ijo")
txthrgmenu = 20000
End Select
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 Then
txthrgminum = 5000
ElseIf Check1 = 1 And Check2 = 0 Then
txthrgminum = 4000
ElseIf Check1 = 0 And Check2 = 1 Then
txthrgminum = 1000
Else
txthrgminum = 0
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 1 Then
txthrgminum = 5000
ElseIf Check1 = 1 And Check2 = 0 Then
txthrgminum = 4000
ElseIf Check1 = 0 And Check2 = 1 Then
txthrgminum = 1000
Else
txthrgminum = 0
End If
End Sub


Private Sub txtubay_Change()
txtukem.Text = Val(txtubay) - (txttobay)
End Sub


Private Sub cmdkeluar_Click()
x = MsgBox("Keluar Dari Form?", vbYesNo + vbQuestion, "Konfirmasi")
If x = vbYes Then
Unload Me
End If
End Sub