CARA MEMBUAT MENU MAKANAN DAN MENU MINUMAN BESERTA HARGA NYA MENGGUNAKAN VISUAL BASIK DAN BESERTA KODING

Nama    : MUSLEH

Kelas     : MI.A (Semester 2)

CARA MEMBUAT MENU MAKANAN DAN MENU  MINUMAN BESERTA HARGA NYA MENGGUNAKAN VISUAL BASIK DAN BESERTA KODING

Baiklah disini kita akan membahas cara pembuatan menu makanan dan minuman melalui visual basik beserta pengkodingannya.

Dan untuk pertama kita akan membahasa cara pembuatan MENU MAKANAN DAN MENU MINUMAN.

Adapun langkah-langkah yang harus di lakukan:

1.       Buatlah FORM baru.  

2.       Munculkan TOOLBOX untuk memilih dan pembuatan menunya.

3.       Pilih di toolbox tersebut RADIO BUTTON sesuai yang kamu inginkan.

4.       Kemudian pilih LABEL sesuai yang kamu perlukan.

5.       Lalu pilih TEXTBOX sesuai yang kamu butuhkan.

6.       Setelah itu pilih GROUPBOX untuk membuat kotak dalam satu menu.

Setelah semua itu ada kemudian KLIK FORM untuk membuka menu koding dan disini saya akan memberrikan sebuah contoh menu kodingnya seperti yang di bawah:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "LATIHANKU"

        GroupBox1.Text = "MENU MAKANAN"

        GroupBox2.Text = "MENU MINUMAN"

        Label1.Text = "MAKANAN"

        Label2.Text = "HARGA"

        Label3.Text = "MINUMAN"

        Label4.Text = "HARGA"

        RadioButton1.Text = "Nasi Goreng"

        RadioButton2.Text = "Pecel Lele"

        RadioButton3.Text = "Ayam Bakar"

        RadioButton4.Text = "Sate Pusut"

        CheckBox1.Text = "Es Teler"

        CheckBox2.Text = "Es Alpukat"

        CheckBox3.Text = "Kopi"

        CheckBox4.Text = "Teh Manis"

    End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            TextBox1.Text = "Nasi Goreng"

            TextBox2.Text = "7.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            TextBox1.Text = "Pecel Lele"

            TextBox2.Text = "15.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked = True Then

            TextBox1.Text = "Ayam Bakar"

            TextBox2.Text = "20.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        If RadioButton4.Checked = True Then

            TextBox1.Text = "Sate Pusut"

            TextBox2.Text = "10.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            TextBox3.Text = "Es Teler"

            TextBox4.Text = "6.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            TextBox3.Text = "Es Alpukat"

            TextBox4.Text = "9.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            TextBox3.Text = "Kopi"

            TextBox4.Text = "2.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            TextBox3.Text = "Teh Manis"

            TextBox4.Text = "2.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

End Class

Setelah proses pengkodingan selesai maka silahkan untuk di RUN untuk melihat hasil nya, lihatlah seperti gambar di bawah ini:

sekian dan terima kasih

selamat mencoba....!!!