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.
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
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 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 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 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
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 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.
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 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 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 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 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) 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 Private Sub klikreset_Click(sender As System.Object, e As System.EventArgs) Handles klikreset.Click 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 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”