Hallo Coding Maniak Sudahkah Anda Ngoding Hari Ini ??
Yang akan kita coba buat hari ini ialah membuat Program sajian kuliner memakai visual basic, programnya cukup sederhana dan codingnya juga sedikit jadi aku yakin kalian cepat dapat lah, aku juga akan coba jelaskan sedetail mungkin.
Dalam program sajian makanan ini akan ada nama restoran, daftar sajian kuliner dan minuman, bab untuk menghitung harga kuliner dan minuman dan total keseluruhan, setiap kita memasukan jenis pesanan dan porsi harga akan otomatis tertera dan diinputkan sesuai dengan yang ada di daftar sajian baiklah kita pribadi lihat gambarannya dibawah untuk lebih jelasnya.
Ini ialah tampilan programnya
Untuk background, jenis font, dan posisi dapat diadaptasi lah ya sesuai selera saja.
Dan ini ialah bagian-bagian yang harus ada dan harus kalian masukan, untuk membuat tampilan ibarat diatas dan semoga 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 ibarat label,
textbox, groupbox dll dapat dilihat di toolbox sebelah kiri dan untuk name, text dan item ada di properties sebelah kanan, sehabis semua lengkap ada dan sesuai ibarat gambar pertama.
Kita lanjut kebagian codingnya, double klik di textbox jmak1
|
Add caption |
Lalu masukan code ibarat dibawah
If mak1.Text = “Mie Ayam” Then
hrgmak1.Text = Val(jmak1.Text) * 10000
ElseIf mak1.Text = “Mie Goreng” Then
hrgmak1.Text = Val(jmak1.Text) * 8000
ElseIf mak1.Text = “Mie Aceh” Then
hrgmak1.Text = Val(jmak1.Text) * 15000
ElseIf mak1.Text = “Mie Tek Tek” Then
hrgmak1.Text = Val(jmak1.Text) * 12000
ElseIf mak1.Text = “Pasta” Then
hrgmak1.Text = Val(jmak1.Text) * 25000
ElseIf mak1.Text = “Bihun Goreng” Then
hrgmak1.Text = Val(jmak1.Text) * 10000
End If
Lalu double klik textbox mak2 masukan juga code diatas, ibarat yang tadi.
Kodingan diatas berfungsi untuk menyesuaikan menu, porsi dan harganya, jadi ketika kita menentukan sajian dan memasukan jumlah porsi textbox harga akan terisi secara otomatis.
Lanjut double klik textbox jmin1, kemudian masukan code dibawah ini
If min1.Text = “Es Teh” Then
hrgmin1.Text = Val(jmin1.Text) * 5000
ElseIf min1.Text = “Jus Buah” Then
hrgmin1.Text = Val(jmin1.Text) * 8000
ElseIf min1.Text = “Es Kelapa” Then
hrgmin1.Text = Val(jmin1.Text) * 5000
End If
Masukan juga code diatas di textbox jmin2.
Seperti bab sajian makanan, kodingan mempunyai fungsi yang sama hanya kali ini untuk di bab sajian 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 mempunyai fungsi untuk menghitung total harga dari semua sajian 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)
If total.Text > bayar.Text Then
If MsgBox(“Uangnya Kurang”, vbCritical + vbOKOnly + vbDefaultButton1, “Perhatian”) = vbOK Then
bayar.Text = “”
kembali.Text = “”
End If
End If
Koding diatas berfungsi untuk menghitung total harga dan uang yang dibayarkan, kalau uang yang dibayarkan kurang maka akan muncul notifikasi ibarat gambar dibawah, dan textbox Bayar dan textbox Kembali akan kembali kosong untuk mengulang kembali.
Double klik di button/tombol Reset, masukan aba-aba 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 kalau user mengklik tombol keluar akan muncul notifikasi untuk menanyakan kembali apakah user benar-benar akan keluar, ibarat gambar dibawah
Oke Form desain sudah kodingannya juga sudah tinggal kalian coba jalankan programnya, gambar dibawah ini ialah screenshot ketika kegiatan dijalankan.
Dan ini ialah source code lengkapnya.
Public Class Form1
Private Sub jmak1_TextChanged(sender As System.Object, e As System.EventArgs) Handles jmak1.TextChanged
If mak1.Text = “Mie Ayam” Then
hrgmak1.Text = Val(jmak1.Text) * 10000
ElseIf mak1.Text = “Mie Goreng” Then
hrgmak1.Text = Val(jmak1.Text) * 8000
ElseIf mak1.Text = “Mie Aceh” Then
hrgmak1.Text = Val(jmak1.Text) * 15000
ElseIf mak1.Text = “Mie Tek Tek” Then
hrgmak1.Text = Val(jmak1.Text) * 12000
ElseIf mak1.Text = “Pasta” Then
hrgmak1.Text = Val(jmak1.Text) * 25000
ElseIf mak1.Text = “Bihun Goreng” Then
hrgmak1.Text = Val(jmak1.Text) * 10000
End If
End Sub
Private Sub jmak2_TextChanged(sender As System.Object, e As System.EventArgs) Handles jmak2.TextChanged
If mak2.Text = “Mie Ayam” Then
hrgmak2.Text = Val(jmak2.Text) * 10000
ElseIf mak2.Text = “Mie Goreng” Then
hrgmak2.Text = Val(jmak2.Text) * 8000
ElseIf mak2.Text = “Mie Aceh” Then
hrgmak2.Text = Val(jmak2.Text) * 15000
ElseIf mak2.Text = “Mie Tek Tek” Then
hrgmak2.Text = Val(jmak2.Text) * 12000
ElseIf mak2.Text = “Pasta” Then
hrgmak2.Text = Val(jmak2.Text) * 25000
ElseIf mak2.Text = “Bihun Goreng” Then
hrgmak2.Text = Val(jmak2.Text) * 10000
End If
End Sub
Private Sub jmin1_TextChanged(sender As System.Object, e As System.EventArgs) Handles jmin1.TextChanged
If min1.Text = “Es Teh” Then
hrgmin1.Text = Val(jmin1.Text) * 5000
ElseIf min1.Text = “Jus Buah” Then
hrgmin1.Text = Val(jmin1.Text) * 8000
ElseIf min1.Text = “Es Kelapa” Then
hrgmin1.Text = Val(jmin1.Text) * 5000
End If
End Sub
Private Sub jmin2_TextChanged(sender As System.Object, e As System.EventArgs) Handles jmin2.TextChanged
If min2.Text = “Es Teh” Then
hrgmin2.Text = Val(jmin2.Text) * 5000
ElseIf min2.Text = “Jus Buah” Then
hrgmin2.Text = Val(jmin2.Text) * 8000
ElseIf min2.Text = “Es Kelapa” Then
hrgmin2.Text = Val(jmin2.Text) * 5000
End If
End Sub
Private Sub kliktotal_Click(sender As System.Object, e As System.EventArgs) Handles kliktotal.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 As System.Object, e As System.EventArgs) Handles klikhitung.Click
kembali.Text = Val(bayar.Text) – Val(total.Text)
If total.Text > bayar.Text Then
If MsgBox(“Uangnya Kurang”, vbCritical + vbOKOnly + vbDefaultButton1, “Perhatian”) = vbOK Then
bayar.Text = “”
kembali.Text = “”
End If
End If
End Sub
Private Sub klikreset_Click(sender As System.Object, e As System.EventArgs) Handles klikreset.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 As System.Object, e As System.EventArgs) Handles klikkeluar.Click
If MsgBox(“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 kalau ada yang salah atau ada yang kurang jelas, kita disini sama-sama belajar.
“Dari Newbie oleh newbie dan untuk newbie”