Cara Membuat Data Base Restoran Menggunakan Visual Basic 6.0 (VB)

Cara Membuat Data Base Restoran Menggunakan Visual Basic 6.0 (VB)

Oleh

Nama : Renotua Bagariang

Npm: 17150013

Dosen Pengampuh 

Januardi Rosyidi, S.Kom., M.Kom

 gambar 1 : Cara Membuat data base kasir restoran menggunakan vb 6.0

gambar 2 : Cara membuat huruf atau judul di atas disini cara membuat judul atas yang pertama pilih di samping kiri huruf A lalu klik di laman kerja lalu si samping pojok tanda biru disini dipilih atau ganti nama yang ingin di gunakan

gamabar 3: disini kita membuat atau memasukkan rumus setelah kita membuat daftar menu makanan dan minuman caranya klik dua kali pada salah satu menu makanan dini akan muncul semua mulai dari menu makanan dan minum dan rumusmnya akan saya copy di bawah gambar

Rumus Daftar Menu

Dim makanan As Currency
Dim minuman As Currency
Dim total As Currency
Dim bayar As Currency
Dim kembali As Currency
Private Sub Command1_Click()
makanan = Text1.Text
minuman = Text2.Text
bayar = Text3.Text
total = makanan + minuman
Text4.Text = total
kembali = bayar - total
Text5.Text = kembali
End Sub
Private Sub Label6_Click()

End Sub
Private Sub Option1_Click()
Text1.Text = 20000
End Sub
Private Sub Option10_Click()
Text1.Text = 5000
End Sub
Private Sub Option11_Click()
Text1.Text = 10000
End Sub
Private Sub Option12_Click()
Text1.Text = 10000
End Sub
Private Sub Option13_Click()
Text2.Text = 12000
End Sub
Private Sub Option14_Click()
Text2.Text = 12000
End Sub
Private Sub Option15_Click()
Text2.Text = 12000
End Sub
Private Sub Option16_Click()
Text1.Text = 12000
End Sub
Private Sub Option17_Click()
Text2.Text = 5000
End Sub
Private Sub Option18_Click()
Text2.Text = 10000
End Sub
Private Sub Option19_Click()
Text2.Text = 5000
End Sub
Private Sub Option2_Click()
Text1.Text = 25000
End Sub
Private Sub Option20_Click()
Text2.Text = 12000
End Sub
Private Sub Option3_Click()
Text1.Text = 15000
End Sub
Private Sub Option4_Click()
Text1.Text = 15000
End Sub
Private Sub Option5_Click()
Text1.Text = 20000
End Sub
Private Sub Option6_Click()
Text1.Text = 10000
End Sub
Private Sub Option7_Click()
Text1.Text = 15000
End Sub

Private Sub Option8_Click()
Text1.Text = 15000
End Sub
Private Sub Option9_Click()
Text1.Text = 10000
End Sub 

gambar 4 : gambar ini sama dengan gamabar ke tiga dan keterangannya sama cuman hal bedanya di gambar atas itu pada munu makanan di bagian ini menu minuman 

 

gambar 5: pada bagian ini kita megisi rumus pada bagian hitung atau menu tanda di atas disini kita mengisi rumus seperti di atas dan saya akan membuat rumusnya di bawah 

Rumus pada bagian menu HITUNG

Private Sub Command1_Click()
makanan = Text1.Text
minuman = Text2.Text
bayar = Text3.Text
total = makanan + minuman
Text4.Text = total
kembali = bayar - total
Text5.Text = kembali

gambar 6: dini si setelah kita selesai mengisi rumus kita lakukan RUN/RUNNING untuk run kita pilih tanda play diatas atau berwarna biru kecil disini kita mencoba mengisi sesuai pesanan atau seperti gambar di atas kita contohkan 

pilih menu makanan lalu pilih menu minuman setelah itu masukkan jumlah uang pelanggan lalu klik HITUNG otomatis akan nmuncul berapa biaya pelanggan berapa kembalian untuk pelanggan 

SEKIAN TERIMA KASIH SEMOGA BERMANFAAT 

jangan lupa kunjungi youtube kita di 

https://www.youtube.com/channel/UCn7qag_vobQ457A63bNBmFg
jangan lupa 
Like, Comen dan Subscribe 
salam "@Yt Delevery
Conten Creator

Padangsidimpuan Oktober 2019

Penulis 

Renotua Bagariang

(yt delivery)