Rabu, 21 Agustus 2013

CARA MEMBUAT APLIKASI CAFE RESTAURAN MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0



 
Cara membuatnya:
1)      Buka  aplikasi vb 6.0 kemudian dan open project
2)       buatlah seperti di atas dengan memasukan label, combobox, checkbox, optionbutton,listbox,frame, textbox,commandbutton.
3)      Ganti pada :
 combo1  =>     cmdmenu
combo2   =>     cmdpaket
text 1      =>        txthmenu
text2       =>        txthfasilitas
text3       =>        txthminuman
txt4         =>         txtjbeli
text5       =>         txttbayar
text6      =>          txtkembali
command1  =>     cmdkeluar
4)      Untuk pilih menu kita akan memberi 3 pilihan yaitu : sarapan pagi, makan siang dan  nakan malam . sedangkan untuk pilihan paket kita akan memberi 4 pilihan yaitu: paket 1, paket 2, paket 3 ,dan paket 4
5)      Isikan scripnya seperti ini :
Private Sub Check1_Click()
'disini kita masukan angkayang bila di klik salah satu akan muncul harganya
If Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "4000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "3000"


ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "9500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "13500"
Else
Txthminuman.Text = "0"
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "4000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "9500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "13500"
Else
Txthminuman.Text = "0"
End If
End Sub

Private Sub Check3_Click()
If Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "4000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "9500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "13500"
Else
Txthminuman.Text = "0"
End If
End Sub

Private Sub Check4_Click()
If Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "4000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "3000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 0 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "6000"
ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "7000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 0 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 And Check4 = 1 Then
Txthminuman.Text = "9500"
ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10500"
ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "10000"
ElseIf Check1 = 1 And Check2 = 1 And Check3 = 1 And Check4 = 1 Then
Txthminuman.Text = "13500"
Else
Txthminuman.Text = "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")
Txthmenu.Text = "5000"
Case "paket 2"
List1.Clear
List1.AddItem ("nasi goreng")
List1.AddItem ("telur mata sapi")
List1.AddItem ("tempe goreng")
Txthmenu.Text = "8000"
Case "paket 3"
List1.Clear
List1.AddItem ("nasi pecel")
List1.AddItem ("daging sapi")
List1.AddItem ("tempe orek")
Txthmenu.Text = "11000"
Case Else
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("sambel tempe bakar")
List1.AddItem ("telur mata sapi")
Txthmenu.Text = "6000"
End Select
ElseIf Cmbmenu.Text = "makan siang" Then
Select Case (Cmbpaket.Text)
Case "paket 1"
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("sayur tahu")
List1.AddItem ("sambal kecap")
List1.AddItem ("daging ayam")
Txthmenu.Text = "12000"
Case "paket 2"
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("sambal ikan")
List1.AddItem ("krupuk asin")
List1.AddItem ("tempe goreng")
Txthmenu.Text = "11000"
Case "paket 3"
List1.Clear
List1.AddItem ("nasi jagung")
List1.AddItem ("bothok ikan asin")
List1.AddItem ("krupuk asin")
List1.AddItem ("sambal terasi")
Txthmenu.Text = "7000"
Case Else
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("sate kambing")
List1.AddItem ("krupuk ikan")
Txthmenu.Text = "15000"
End Select
Else
Select Case (Cmbpaket.Text)
Case "paket 1"
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("pecel lel")
List1.AddItem ("tempe penyet")
Txthmenu.Text = "12000"
Case "paket 2"
List1.Clear
List1.AddItem ("bakso")
List1.AddItem ("krupuk ikan")
Txthmenu.Text = "9000"
Case "paket 3"
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("bothok kacang")
List1.AddItem ("peyek udang")
List1.AddItem ("sambal terasi")
Txthmenu.Text = "8000"
Case Else
List1.Clear
List1.AddItem ("nasi putih")
List1.AddItem ("sate kambing")
Txthmenu.Text = "13000"
End Select
End If
End Sub

Private Sub Cmdkeluar_Click()
x = MsgBox("Anda yakin ingin keluar dari form ini?", vbQuestion + vbOKCancel, "informasi")
If x = vbOK Then
End
End If
End Sub

Private Sub Form_Load()
'agar saat di load jam tanggal ,cmb menu dan cmb paket bisa tampil
Ltanggal.Caption = Date
Cmbmenu.AddItem ("sarapan pagi")
Cmbmenu.AddItem ("makan siang")
Cmbmenu.AddItem ("makan malam")
Cmbpaket.AddItem ("paket 1")
Cmbpaket.AddItem ("paket 2")
Cmbpaket.AddItem ("paket 3")
Cmbpaket.AddItem ("paket 4")
End Sub

Private Sub Option1_Click()
'untuk harga fasilitas antar 5000
Txthfasilitas.Text = "5000"
End Sub

Private Sub Option2_Click()
Txthfasilitas.Text = "0"
End Sub

Private Sub Timer1_Timer()
'untuk jam kita masukan timer dan di beri interval 1000
ljam.Caption = Time
End Sub

Private Sub txtjbeli_keypress(keyascii As Integer)
'menggunakan keyascii agar saat di enter hasilnya langsung tampil
If keyascii = 13 Then
Txttbayar.Text = Val(Txtjbeli.Text) * (Val(Txthmenu.Text) + Val(Txthfasilitas.Text) + Val(Txthminuman.Text))
Txtubayar.SetFocus
End If
End Sub

Private Sub Txtubayar_Change()
Txtukembali.Text = Val(Txtubayar.Text) - Val(Txttbayar.Text)
End Sub
      
Diposting oleh di

1 komentar:

Langganan: Posting Komentar (Atom)