Visual Basic 2010 Membuat Program Menu Makanan dan Minuman

//lh3.googleusercontent.com/-K5UKWzgJhmU/AAAAAAAAAAI/AAAAAAAACdI/CN3nwiBZsGE/s512-c/photo.jpg
October 20, 2017





kali ini kita belajar membuat sebuah program pada vb 2010 yaitu menu makanan dan minuman, ini bisa di kembangangkan khususnhya bagi orang yang mempunyai usaha kuliner, 

misalnya orang hanya memesan melalui table dan akan langsung terhubung ke penjual tersebut, tentunya ini juga mengurangi tenaga kerja. langsung aja semoga anda berhasil dalam mencobanya ya.


 Public Class Form1

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

        Me.BackColor = Color.Aquamarine

        GroupBox1.Text = "Menu Makanan"

        RadioButton1.Text = "Bakso "

        RadioButton2.Text = "Sate"

        RadioButton3.Text = "Pizza"

        RadioButton4.Text = "Nasgor"

        GroupBox4.Text = "Harga"

        CheckBox1.Text = "Cincau"

        CheckBox2.Text = "Jus Mangga"

        CheckBox3.Text = "Es Kelapa"

        CheckBox4.Text = "Jus Alpokat"

        GroupBox3.Text = "Menu Makanan"

        GroupBox2.Text = "Menu yang dipesan"

    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 = "Bakso"

            TextBox9.Text = "Rp.10.000"

        Else

            TextBox1.Text = ""

            TextBox9.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

            TextBox2.Text = "Sate"

            TextBox10.Text = "Rp.15.000"

        Else

            TextBox2.Text = ""

            TextBox10.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

            TextBox3.Text = "Pizza"

            TextBox11.Text = "Rp.25.000"

        Else

            TextBox3.Text = ""

            TextBox11.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

            TextBox4.Text = "Nasi Goreng"

            TextBox12.Text = "Rp.12.000"

        Else

            TextBox4.Text = ""

            TextBox12.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

            TextBox5.Text = "Cincau"

            TextBox15.Text = "Rp.8.000"

        Else

            TextBox5.Text = ""

            TextBox15.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

            TextBox6.Text = "Jus Mangga"

            TextBox14.Text = "Rp.13.000"

        Else

            TextBox6.Text = ""

            TextBox14.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

            TextBox7.Text = "Es kelapa"

            TextBox13.Text = "Rp.10.000"

        Else

            TextBox5.Text = ""

            TextBox13.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

            TextBox8.Text = "Jus Alpokat"

            TextBox16.Text = "Rp.10.000"

        Else

            TextBox8.Text = ""

            TextBox16.Text = ""

        End If

    End Sub

End Class 


Sekian share di atas jika ada yang kurang jelas silahkan tinggalkan comment dibawah, Jangan lupa share keteman kalian dan orang terdekat kalian.


Related Post

SUBSCRIBE TO OUR NEWSLETTER

closed