Program Kasir Cafe Gue dengan VB.NET
Selamat datang di blog saya ,dan selamat berjumpa kembali setelah 2 semester tidak bertemu. Di semester 4 kali ini saya membuat program kasir sebuah Cafe. Dimana dalam program ini ,saya memakai Software Visual Studio dan juga saya memakai banyak toolbox di antaranya :
- Label
- TextBox
- DateTimePicker
- ComboBox
- ListBox
- Button
Tampilan form tampilan awal :
Tampilan Form Main Course dan Table sama ,hanya berbeda di seksi Jasa dan Table.
Tampilan Word Table dan Main Course
Tampilan Excel Main Course dan Table
Source Code Pada Form Tampilan Awal
Terdapat 3 Button pada tampilan awal yaitu Main Course ,Table dan Exit.
Public Class FormWelcome
Private Sub ButtonMainCourse_Click(sender As Object, e As EventArgs) Handles ButtonMainCourse.Click
FormMainCourse.Visible = True
Me.Hide()
End Sub
Private Sub Table_Click(sender As Object, e As EventArgs) Handles Table.Click
FormTable.Visible = True
Me.Hide()
End Sub
Private Sub Keluar_Click(sender As Object, e As EventArgs) Handles Keluar.Click
Dim x = MsgBox("Apakah Anda yakin", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Warning")
If x = MsgBoxResult.Ok Then
Me.Close()
End If
End Sub
End Class
Source Code untuk Form Main Course
Terdapat beberapa toolbox yang di beri kode di form ini. namun sebelumnya jangan lupa untuk menambahkan preference di Menu bar Project > Add Preference. Lalu pilih COM > Libraries .. Lalu centang Microsoft Word 16.0 Library dan Microsoft Excel 16.0 Library.
Lalu ketik code seperti ini :
Jika sudah ,Masukkan Code seperti ini di From_Main Course. Untuk mengisi item pada combobox yang saya gunakan.
Private Sub FormMainCourse_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Jasa.Items.Add("Pilih")
Jasa.Items.Add("GO-JEK")
Jasa.Items.Add("GRAB")
Cashier.Items.Add("Pilih")
Cashier.Items.Add("Sinta")
Cashier.Items.Add("Nuri")
Cashier.Items.Add("Asri")
For No = 1 To 40
NoAntri.Items.Add(No)
Next
Makanan.Items.Add("None")
Makanan.Items.Add("Fried Rice Special")
Makanan.Items.Add("Fried Rice Chicken")
Makanan.Items.Add("Fried Rice Seafood")
Makanan.Items.Add("Meatball Noodle")
Makanan.Items.Add("Steak Chicken")
Makanan.Items.Add("Steak Beef")
Minuman.Items.Add("None")
Minuman.Items.Add("Mineral Water")
Minuman.Items.Add("Milkshake Choco")
Minuman.Items.Add("Milkshake Vanilla")
Minuman.Items.Add("Milkshake Mocca")
Minuman.Items.Add("Hot Green Tea")
Minuman.Items.Add("Iced Green Tea")
Dessert.Items.Add("None")
Dessert.Items.Add("Oreo Cake")
Dessert.Items.Add("Soy Milk Pudding")
Dessert.Items.Add("Ice Cream Waffle")
End Sub
Dan Kode yang saya sisipkan di beberapa toolbox sebagai berikut :
Private Sub Jasa_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Jasa.SelectedIndexChanged
Select Case Jasa.Text
Case "GO-JEK"
PictureJasa.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\gojek.jpeg")
Case "GRAB"
PictureJasa.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\grab.png")
End Select
End Sub
Private Sub Makanan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Makanan.SelectedIndexChanged
Select Case Makanan.Text
Case "None"
HargaMakanan.Text = "0"
QtyMakanan.Text = "0"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\none.jpg")
Case "Fried Rice Special"
HargaMakanan.Text = "20000"
QtyMakanan.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\fried rice special.jpg")
Case "Fried Rice Chicken"
HargaMakanan.Text = "25000"
QtyMakanan.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\fried rice chicken.jpg")
Case "Fried Rice Seafood"
HargaMakanan.Text = "30000"
QtyMakanan.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\fried rice seafood.jpg")
Case "Meatball Noodle"
HargaMakanan.Text = "25000"
QtyMakanan.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\meatball noodle.jpg")
Case "Steak Chicken"
HargaMakanan.Text = "35000"
QtyMakanan.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\steak chicken.jpg")
Case "Steak Beef"
HargaMakanan.Text = "40000"
QtyMakanan.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\steak beef.jpg")
End Select
End Sub
Private Sub Minuman_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Minuman.SelectedIndexChanged
Select Case Minuman.Text
Case "None"
HargaMinuman.Text = "0"
QtyMinuman.Text = "0"
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\none.jpg")
Case "Mineral Water"
HargaMinuman.Text = "5000"
QtyMinuman.Text = ""
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\mineral water.jpg")
Case "Milkshake Choco"
HargaMinuman.Text = "15000"
QtyMinuman.Text = ""
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\milkshake choco.jpg")
Case "Milkshake Vanilla"
HargaMinuman.Text = "15000"
QtyMinuman.Text = ""
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\milkshake vanilla.jpg")
Case "Milkshake Mocca"
HargaMinuman.Text = "15000"
QtyMinuman.Text = ""
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\milkshake mocca.jpg")
Case "Hot Green Tea"
HargaMinuman.Text = "10000"
QtyMinuman.Text = ""
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\hot green tea.jpg")
Case "Iced Green Tea"
HargaMinuman.Text = "10000"
QtyMinuman.Text = ""
PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\iced green tea.jpg")
End Select
End Sub
Private Sub Dessert_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Dessert.SelectedIndexChanged
Select Case Dessert.Text
Case "None"
HargaDessert.Text = "0"
QtyDessert.Text = "0"
PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\none.jpg")
Case "Oreo Cake"
HargaDessert.Text = "25000"
QtyDessert.Text = ""
PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\oreo cake.jpg")
Case "Ice Cream Waffle"
HargaDessert.Text = "30000"
QtyDessert.Text = ""
PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\ice cream waffle.jpg")
Case "Soy Milk Pudding"
HargaDessert.Text = "20000"
QtyDessert.Text = ""
PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\soy milk pudding.png")
End Select
End Sub
Private Sub Cek_Click(sender As Object, e As EventArgs) Handles Cek.Click
TotalBayar.Text = (HargaMakanan.Text * QtyMakanan.Text) + (HargaMinuman.Text * QtyMinuman.Text) + (HargaDessert.Text * QtyDessert.Text)
ListBox1.Items.Add("Welcome to Cafe Gue")
ListBox1.Items.Add("")
ListBox1.Items.Add("Memakai Jasa : " + Jasa.Text)
ListBox1.Items.Add("Cashier : " + Cashier.Text)
ListBox1.Items.Add("No Antrian : " + NoAntri.Text)
ListBox1.Items.Add("Tanggal pemesanan : " + tanggal.Text)
ListBox1.Items.Add("Makanan yang di pesan : " + QtyMakanan.Text + " " + Makanan.Text)
ListBox1.Items.Add("Minuman yang di pesan : " + QtyMinuman.Text + " " + Minuman.Text)
ListBox1.Items.Add("Dessert yang di pesan : " + QtyDessert.Text + " " + Dessert.Text)
ListBox1.Items.Add("Total bayar : Rp." + TotalBayar.Text)
End Sub
Private Sub Hitung_Click(sender As Object, e As EventArgs) Handles Hitung.Click
Kembalian.Text = Bayar.Text - TotalBayar.Text
ListBox1.Items.Add("Uang yang di bayarkan : Rp." + Bayar.Text)
ListBox1.Items.Add("Uang kembalian : Rp." + Kembalian.Text)
End Sub
Private Sub ButtonWord_Click(sender As Object, e As EventArgs) Handles ButtonWord.Click
dokumennya = appnya.Documents.Open("D:\UTS Steffi\Main Course.docx")
dokumennya.Bookmarks("Jasa").Select()
appnya.Selection.TypeText(Jasa.Text)
dokumennya.Bookmarks("Cashier").Select()
appnya.Selection.TypeText(Cashier.Text)
dokumennya.Bookmarks("Tanggal").Select()
appnya.Selection.TypeText(tanggal.Text)
dokumennya.Bookmarks("NoAntrian").Select()
appnya.Selection.TypeText(NoAntri.Text)
dokumennya.Bookmarks("Makanan").Select()
appnya.Selection.TypeText(Makanan.Text)
dokumennya.Bookmarks("JumlahMakanan").Select()
appnya.Selection.TypeText(QtyMakanan.Text)
dokumennya.Bookmarks("HargaMakanan").Select()
appnya.Selection.TypeText(HargaMakanan.Text)
dokumennya.Bookmarks("Minuman").Select()
appnya.Selection.TypeText(Minuman.Text)
dokumennya.Bookmarks("JumlahMinuman").Select()
appnya.Selection.TypeText(QtyMinuman.Text)
dokumennya.Bookmarks("HargaMinuman").Select()
appnya.Selection.TypeText(HargaMinuman.Text)
dokumennya.Bookmarks("Dessert").Select()
appnya.Selection.TypeText(Dessert.Text)
dokumennya.Bookmarks("JumlahDessert").Select()
appnya.Selection.TypeText(QtyDessert.Text)
dokumennya.Bookmarks("HargaDessert").Select()
appnya.Selection.TypeText(HargaDessert.Text)
dokumennya.Bookmarks("Total").Select()
appnya.Selection.TypeText(TotalBayar.Text)
dokumennya.Bookmarks("Bayar").Select()
appnya.Selection.TypeText(Bayar.Text)
dokumennya.Bookmarks("Kembalian").Select()
appnya.Selection.TypeText(Kembalian.Text)
MsgBox("Berhasil")
dokumennya.SaveAs("D:\UTS Steffi\Main Course.docx")
appnya.Visible = True
End Sub
Private Sub ButtonExcel_Click(sender As Object, e As EventArgs) Handles ButtonExcel.Click
dokumenexcel = appexcelnya.Workbooks.Open("D:\UTS Steffi\Main Course.xlsx")
appexcelnya.Range("E5").Value = NoAntri.Text
appexcelnya.Range("E6").Value = tanggal.Text
appexcelnya.Range("K5").Value = Cashier.Text
appexcelnya.Range("K6").Value = Jasa.Text
appexcelnya.Range("D11").Value = QtyMakanan.Text
appexcelnya.Range("D12").Value = QtyMinuman.Text
appexcelnya.Range("D13").Value = QtyDessert.Text
appexcelnya.Range("F11").Value = Makanan.Text
appexcelnya.Range("F12").Value = Minuman.Text
appexcelnya.Range("F13").Value = Dessert.Text
appexcelnya.Range("I11").Value = HargaMakanan.Text
appexcelnya.Range("I12").Value = HargaMinuman.Text
appexcelnya.Range("I13").Value = HargaDessert.Text
appexcelnya.Range("I14").Value = TotalBayar.Text
appexcelnya.Range("I15").Value = Bayar.Text
appexcelnya.Range("I16").Value = Kembalian.Text
dokumenexcel.SaveAs("D:\UTS Steffi\Main Course.xlsx")
appexcelnya.Visible = True
End Sub
Private Sub Clear_Click(sender As Object, e As EventArgs) Handles Clear.Click
Jasa.SelectedItem = "Pilih"
Cashier.SelectedItem = "Pilih"
NoAntri.Text = "1"
Makanan.SelectedItem = "None"
Minuman.SelectedItem = "None"
Dessert.SelectedItem = "None"
ListBox1.Items.Clear()
TotalBayar.Text = ""
Bayar.Text = ""
Kembalian.Text = ""
PictureJasa.Visible = False
End Sub
Private Sub Back_Click(sender As Object, e As EventArgs) Handles Back.Click
FormWelcome.Visible = True
Me.Hide()
End Sub
Sekiranya saya hanya menampilkan source code dari Form Main Course karena perbedaan Form Main Course dan Form Table ,hanya terletak pada bagian ComboBox yang menampilkan Jasa dan Table.
Inilah hasil running programnya :
Terimakasih atas kesempatan yang telah di berikan kepada saya untuk dapat mengerjakan tugas UTS kali ini. Sampai berjumpa di kesempatan selanjutnya .. Bye bye
