Visual Basic 2010 Membuat Program Menu Makanan dan Minuman
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.