CARA MEMBUAT APLIKASI RESTAURANT
SEDERHANA
SEDERHANA
VISUAL BASIC 6.0
Tampilan program Warung Ndueso
Visual basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa pemrograman. Visual basic yang dikembangankan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner's All=purpose Syimbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual basic merupakan salah satu Development Toll yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows.
Visual basic 6.0 ini sering juga di gunakan dalam perhitungan gaji, penjualan barang dan lain-lain. visual basic ini support dengan operating sistem windows. dan untuk databasenya bisa menggunakan microsoft access, SQL server dan oracle.
Visual basic 6.0 ini sering juga di gunakan dalam perhitungan gaji, penjualan barang dan lain-lain. visual basic ini support dengan operating sistem windows. dan untuk databasenya bisa menggunakan microsoft access, SQL server dan oracle.
Langkah-langkah membuat program:
1. Menyiapkan aplikasi Visual Basic 6.0
2. Membuat Desain programnya sesuai dengan keinginan.
Coding untuk aplikasi Warung NDUESO DERMOJAYAN
HITUNG
Private Sub Command1_Click()
Txtbayar=Val(txtharga)*Val(txtjumlah)
Txtubay.SetFocus
End Sub
BERSIH
Private Sub Command2_Click()
Option1 = 0
Option2 = 0
Option3 = 0
Option4 = 0
Option5 = 0
Option6 = 0
txtharga = “”
txtjumlah = “”
txtbayar= “”
txtbonus = “”
txtpot = “”
txtppn = “”
txttotal = “”
txtubay = “”
txtukem = “”
End Sub
KELUAR
Private Sub Command3_Click()
a = MsgBox(“Yakin Ingin Keluar Dari form ini?”,vbYesNo +
vbInformation, “PESAN”)
If a = vbYes Then End
End Sub
FORM LOAD
Private sub Form_Load()
Option1 = 0
Option2 = 0
Option3 = 0
Option4 = 0
Option5 = 0
Option6 = 0
End Sub
JAM
Private Sub Timer1_Timer()
lbljam.Caption = Format(Time, “hh:mm:ss AM/PM”)
End Sub
UANG BAYAR
Private Sub txtubay_Change()
Txtukem = Val(txtubay) – Val(txtbayar)
End Sub
