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

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
Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran


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

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
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.
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
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.
Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran

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.
Download Source Code Aplikasi
Tutorial Visual Basic | Kegiatan Hidangan Makanan Restoran | Ahmad Code | 4.5