Program Visual Basic Cafe Of Yunfa

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Sintaknya :

Private Sub Form_Load()
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbmenu.AddItem ("Makan Malam")
cmbpaket.AddItem ("Paket 1")
cmbpaket.AddItem ("Paket 2")
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttobay = Val(txtjumbel) * Val(Val(txthargamenu.Text) + Val(txthargafasilitas.Text) + Val(txthargaminuman))
txtubay.SetFocus
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")
txthargamenu = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur Mata Sapi")
List1.AddItem ("Tempe Goreng")
txthargamenu = 7000
End Select
Else
If cmbmenu.Text = "Makan Siang" Then
Select Case (cmbpaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
txthargamenu = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sambal Ijo")
txthargamenu = 10000
End Select
Else
If cmbmenu.Text = "Makan Malam" Then
Select Case (cmbpaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Soto Makassar")
List1.AddItem ("Kerupuk Udang")
List1.AddItem ("Sambal Ijo")
txthargamenu = 12000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ikan Bakar")
List1.AddItem ("Kerupuk Udang")
List1.AddItem ("Sambal Terasi")
txthargamenu = 15000
End Select
End If
End If
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 Then
txthargaminuman = 3000
ElseIf Check1 = 1 And Check2 = 0 Then
txthargaminuman = 2500
ElseIf Check1 = 0 And Check2 = 1 Then
txthargaminuman = 500
Else
txthargaminuman = 0
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 1 Then
txthargaminuman = 3000
ElseIf Check1 = 1 And Check2 = 0 Then
txthargaminuman = 2500
ElseIf Check1 = 0 And Check2 = 1 Then
txthargaminuman = 500
Else
txthargaminuman = 0
End If
End Sub

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

Private Sub Option1_Click()
txthargafasilitas = 5000
End Sub

Private Sub Option2_Click()
txthargafasilitas = 0
End Sub

Private Sub cmdclear_Click()
cmbmenu.Text = " "
cmbpaket.Text = " "
txthargamenu = " "
txthargafasilitas.Text = " "
txthargaminuman.Text = " "
txtjumbel.Text = " "
txttobay.Text = " "
txtubay.Text = " "
txtukem.Text = " "
cmbmenu.SetFocus
End Sub

Private Sub cmdexit_Click()
x = MsgBox("Anda Akan Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Program Visual Basic Cafe Of Yunfa, Diterbitkan oleh scodeaplikasi pada Selasa, 11 Oktober 2011. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.