Download Source Code Aplikasi

Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

Monday, October 28th, 2019 - visual basic
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

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran
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

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic2 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran



codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic3 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran




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

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic4 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran
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

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic5 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran
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.

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic6 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

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

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic10 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

Oke Form desain sudah kodingannya juga sudah tinggal kalian coba jalankan programnya, gambar dibawah ini ialah screenshot ketika kegiatan dijalankan.

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic7 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic8 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

codingmaniak.blogspot.com%2Bprogram%2Bmenu%2Bmakanan%2Bdari%2Bvisual%2Bbasic9 - Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran
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”

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
(Telah didownload 47 kali, 1x didownload hari ini)
Download Source Code Aplikasi
Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran | Ahmad Code | 4.5

Hosting Unlimited Indonesia