Tutorial Visual Basic | Program Menu Makanan Restoran

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”

Subscribe to receive free email updates: