Hallo Coding Maniak Sudahkah Anda Ngoding Hari Ini ??
Yang akan kita coba buat hari ini adalah membuat Program menu makanan menggunakan visual basic, programnya cukup sederhana dan codingnya juga sedikit jadi saya yakin kalian cepat bisa lah, saya juga akan coba jelaskan sedetail mungkin.
Dalam program menu makananini akan ada nama restoran, daftar menu makanan dan minuman, bagian untuk menghitung harga makanan dan minuman dan total keseluruhan, setiap kita memasukan jenis pesanan dan porsi harga akan otomatis tertera dan diinputkan sesuai dengan yang ada di daftar menu oke kita langsung lihat gambarannya dibawah untuk lebih jelasnya.
Ini adalah tampilan programnya
Untuk background, jenis font, dan posisi bisa disesuaikan lah ya sesuai selera saja.
Dan ini adalah bagian-bagian yang harus ada dan harus kalian masukan, untuk membuat tampilan seperti diatas dan agar programnya berjalan sukses tentunya.
| Jenis | Name | Text | Item |
| Label | Label1 | Nama Restoran kalian | |
| GroupBox | Groupbox1 | Makanan | |
| Label | Label2 | Pesanan | |
| Label | Label3 | Porsi | |
| Label | Label4 | Harga | |
| Label | Label5 | Total Harga | |
| ComboBox | mak1 | | Mie Ayam Mie Goreng Mie Aceh Mie Tek Tek Pasta Bihun Goreng |
| ComboBox | mak2 | | Mie Ayam Mie Goreng Mie Aceh Mie Tek Tek Pasta Bihun Goreng |
| TextBox | jmak1 | | |
| TextBox | jmak2 | ||
| TextBox | hrgmak1 | ||
| TextBox | hrgmak2 | ||
| TextBox | totmak | ||
| GroupBox | Groupbox2 | Minuman | |
| Label | Label6 | Pesanan | |
| Label | Label7 | Porsi | |
| Label | Label8 | Harga | |
| Label | Label9 | Total Harga | |
| ComboBox | min1 | | Es Teh Jus Buah Es Kelapa |
| ComboBox | min2 | | Es Teh Jus Buah Es Kelapa |
| TextBox | jmin1 | | |
| TextBox | jmin2 | ||
| TextBox | hrgmin1 | ||
| TextBox | hrgmin2 | ||
| TextBox | totmin | ||
| Panel | Panel1 | ||
| Label | Label10 | Total | |
| Label | Label11 | Bayar | |
| Label | Label12 | Kembali | |
| TextBox | total | | |
| TextBox | bayar | ||
| TextBox | kembali | ||
| Button | kliktotal | Total | |
| Button | klikhitung | HITUNG | |
| Button | klikreset | Reset | |
| Button | klikkeluar | Keluar | |
| Groupbox | Daftar Menu | | |
| Label | Label13 | Mie Ayam Rp. 10.000 | |
| Label | Label14 | Mie Goreng Rp. 8000 | |
| Label | Label15 | Mie Aceh Rp. 15.000 | |
| Label | Label16 | Mie Tek Tek Rp. 12.000 | |
| Label | Label17 | Pasta Rp. 25.000 | |
| Label | Label18 | Bihun Goreng Rp. 10.000 | |
| Label | Label19 | Es Teh Rp. 5000 | |
| Label | Label20 | Jus Buah Rp. 8000 | |
| Label | Label21 | Es Kelapa Rp. 5000 |
Untuk jenis-jenisnya seperti label, textbox, groupbox dll bisa dilihat di toolbox sebelah kiri dan untuk name, text dan item ada di properties sebelah kanan, setelah semua lengkap ada dan sesuai seperti gambar pertama.
Kita lanjut kebagian codingnya, double klik di textbox jmak1
 |
| Add caption |
Lalu masukan code seperti dibawah
If mak1.Text = "Mie Ayam" Then
hrgmak1.Text = Val(jmak1.Text) * 10000
ElseIfmak1.Text = "Mie Goreng" Then
hrgmak1.Text = Val(jmak1.Text) * 8000
ElseIfmak1.Text = "Mie Aceh" Then
hrgmak1.Text = Val(jmak1.Text) * 15000
ElseIfmak1.Text = "Mie Tek Tek" Then
hrgmak1.Text = Val(jmak1.Text) * 12000
ElseIfmak1.Text = "Pasta" Then
hrgmak1.Text = Val(jmak1.Text) * 25000
ElseIfmak1.Text = "Bihun Goreng" Then
hrgmak1.Text = Val(jmak1.Text) * 10000
End If
Lalu double klik textbox mak2 masukan juga code diatas, seperti yang tadi.
Kodingan diatas berfungsi untuk menyesuaikan menu, porsi dan harganya, jadi saat kita memilih menu dan memasukan jumlah porsi textbox harga akan terisi secara otomatis.
Lanjut double klik textbox jmin1, lalu masukan code dibawah ini
If min1.Text = "Es Teh" Then
hrgmin1.Text = Val(jmin1.Text) * 5000
ElseIfmin1.Text = "Jus Buah" Then
hrgmin1.Text = Val(jmin1.Text) * 8000
ElseIfmin1.Text = "Es Kelapa" Then
hrgmin1.Text = Val(jmin1.Text) * 5000
End If
Masukan juga code diatas di textbox jmin2.
Seperti bagian menu makanan, kodingan memiliki fungsi yang sama hanya kali ini untuk di bagian menu minuman.
Selanjutnya double klik di button/tombol Total, masukan code berikut.
totmak.Text = Val(hrgmak1.Text) + Val(hrgmak2.Text)
totmin.Text = Val(hrgmin1.Text) + Val(hrgmin2.Text)
total.Text = Val(totmak.Text) + Val(totmin.Text)
Kode diatas memiliki fungsi untuk menghitung total harga dari semua menu yang telah dipilih dan menampilkannya di textbox ketika kita menekan tombol Total.
double klik di button/tombol HITUNG, masukan code dibawah ini
kembali.Text = Val(bayar.Text) - Val(total.Text)
Iftotal.Text > bayar.Text Then
If MsgBox("Uangnya Kurang", vbCritical + vbOKOnly + vbDefaultButton1, "Perhatian") = vbOK Then
bayar.Text = ""
kembali.Text = ""
EndIf
End If
Koding diatas berfungsi untuk menghitung total harga dan uang yang dibayarkan, jika uang yang dibayarkan kurang maka akan muncul notifikasi seperti gambar dibawah, dan textbox Bayar dan textbox Kembali akan kembali kosong untuk mengulang kembali.
Double klik di button/tombol Reset, masukan kode berikut
mak1.ResetText()
mak2.ResetText()
jmak1.ResetText()
jmak2.ResetText()
hrgmak1.ResetText()
hrgmak2.ResetText()
totmak.ResetText()
min1.ResetText()
min2.ResetText()
jmin1.ResetText()
jmin2.ResetText()
hrgmin1.ResetText()
hrgmin2.ResetText()
totmin.ResetText()
total.ResetText()
bayar.ResetText()
kembali.ResetText()
Koding ini untuk mereset semua proses, mengkosongkan kembali textbox dll untuk mengulang kembali.
Yang terakhir double klik di button/tombol Keluar masukan codenya
If MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion + vbDefaultButton1, "keluar") = vbYes Then
Me.Close()
End If
Kodingan ini berfungsi jika user mengklik tombol keluar akan muncul notifikasi untuk menanyakan kembali apakah user benar-benar akan keluar, seperti gambar dibawah
Oke Form desain sudah kodingannya juga sudah tinggal kalian coba jalankan programnya, gambar dibawah ini adalah screenshot ketika program dijalankan.
Dan ini adalah source code lengkapnya.
Public Class Form1
Private Sub jmak1_TextChanged(sender AsSystem.Object, e AsSystem.EventArgs) Handlesjmak1.TextChanged
Ifmak1.Text = "Mie Ayam" Then
hrgmak1.Text = Val(jmak1.Text) * 10000
ElseIfmak1.Text = "Mie Goreng" Then
hrgmak1.Text = Val(jmak1.Text) * 8000
ElseIfmak1.Text = "Mie Aceh" Then
hrgmak1.Text = Val(jmak1.Text) * 15000
ElseIfmak1.Text = "Mie Tek Tek" Then
hrgmak1.Text = Val(jmak1.Text) * 12000
ElseIfmak1.Text = "Pasta" Then
hrgmak1.Text = Val(jmak1.Text) * 25000
ElseIfmak1.Text = "Bihun Goreng" Then
hrgmak1.Text = Val(jmak1.Text) * 10000
End If
End Sub
Private Sub jmak2_TextChanged(sender AsSystem.Object, e AsSystem.EventArgs) Handlesjmak2.TextChanged
Ifmak2.Text = "Mie Ayam" Then
hrgmak2.Text = Val(jmak2.Text) * 10000
ElseIfmak2.Text = "Mie Goreng" Then
hrgmak2.Text = Val(jmak2.Text) * 8000
ElseIfmak2.Text = "Mie Aceh" Then
hrgmak2.Text = Val(jmak2.Text) * 15000
ElseIfmak2.Text = "Mie Tek Tek" Then
hrgmak2.Text = Val(jmak2.Text) * 12000
ElseIfmak2.Text = "Pasta" Then
hrgmak2.Text = Val(jmak2.Text) * 25000
ElseIfmak2.Text = "Bihun Goreng" Then
hrgmak2.Text = Val(jmak2.Text) * 10000
End If
End Sub
Private Sub jmin1_TextChanged(sender AsSystem.Object, e AsSystem.EventArgs) Handlesjmin1.TextChanged
Ifmin1.Text = "Es Teh" Then
hrgmin1.Text = Val(jmin1.Text) * 5000
ElseIfmin1.Text = "Jus Buah" Then
hrgmin1.Text = Val(jmin1.Text) * 8000
ElseIfmin1.Text = "Es Kelapa" Then
hrgmin1.Text = Val(jmin1.Text) * 5000
End If
End Sub
Private Sub jmin2_TextChanged(sender AsSystem.Object, e AsSystem.EventArgs) Handlesjmin2.TextChanged
Ifmin2.Text = "Es Teh" Then
hrgmin2.Text = Val(jmin2.Text) * 5000
ElseIfmin2.Text = "Jus Buah" Then
hrgmin2.Text = Val(jmin2.Text) * 8000
ElseIfmin2.Text = "Es Kelapa" Then
hrgmin2.Text = Val(jmin2.Text) * 5000
End If
End Sub
Private Sub kliktotal_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handleskliktotal.Click
totmak.Text = Val(hrgmak1.Text) + Val(hrgmak2.Text)
totmin.Text = Val(hrgmin1.Text) + Val(hrgmin2.Text)
total.Text = Val(totmak.Text) + Val(totmin.Text)
End Sub
Private Sub klikhitung_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikhitung.Click
kembali.Text = Val(bayar.Text) - Val(total.Text)
Iftotal.Text > bayar.Text Then
IfMsgBox("Uangnya Kurang", vbCritical + vbOKOnly + vbDefaultButton1, "Perhatian") = vbOK Then
bayar.Text = ""
kembali.Text = ""
EndIf
End If
End Sub
Private Sub klikreset_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikreset.Click
mak1.ResetText()
mak2.ResetText()
jmak1.ResetText()
jmak2.ResetText()
hrgmak1.ResetText()
hrgmak2.ResetText()
totmak.ResetText()
min1.ResetText()
min2.ResetText()
jmin1.ResetText()
jmin2.ResetText()
hrgmin1.ResetText()
hrgmin2.ResetText()
totmin.ResetText()
total.ResetText()
bayar.ResetText()
kembali.ResetText()
End Sub
Private Sub klikkeluar_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikkeluar.Click
IfMsgBox("Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion + vbDefaultButton1, "keluar") = vbYes Then
Me.Close()
End If
End Sub
End Class
Semoga postingan kali ini juga bermanfaat, silahkan tuliskan komentar dan pertanyaannya dibawah jika ada yang salah atau ada yang kurang jelas, kita disini sama-sama belajar.
“Dari Newbie oleh newbie dan untuk newbie”
0 Post a Comment: