Perintah Membuat Percabangan Cafe Mas Bagus

Pada blog ini saya bang Amin akan menjelaskan tutorial "Perintah Membuat Percabangan Cafe Mas Bagus" di visual basic. ok langsung saja ikuti totorialnya. 

jadi tampilan finishnya akan tampil seperti berikut :

Pertama yang harus dilakukan adalah memilih label ,text box, dan command button.

Lalu susun seperti gambar di bawah ini, lalu kita dapat merubah nama objek pada property objek. Seperti gambar berikut :

pada command button "Hitung"l ketiklah kodenya sebagai berikut copy-paste aja hehe... :

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 "paket1"
  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 "Paket1"
    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 CMDKELUAR_Click()
End
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 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()
txttukem = Val(txtubay) - (txttotbay)
End Sub

hehe....program mu soedah jadie :)

Gampang kan....