- ComboBox : 2
- Button : 1
- Radio Button : 2
- Label : 4
- GroupBox :2 ( Note Pesanan & Pesanan )
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case “Pelecing Kangkung”
Label2.Text = “Rp. 4000”
Label2.Text = 4000
Case “Sate Lilit”
Label2.Text = “Rp. 8000”
Label2.Text = 8000
Case “Ayam Taliwang”
Label2.Text = “Rp. 12000”
Label2.Text = 12000
Case “Nasi Balap”
Label2.Text = “Rp. 15000”
Label2.Text = 15000
Case “Bebalung”
Label2.Text = “Rp. 10000”
Label2.Text = 10000
End Select
If CheckBox1.Enabled = False Then
ComboBox2.Visible = False
End If
If CheckBox1.Enabled = True Then
ComboBox2.Visible = True
Label3.Visible = True
End If
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case “Es Jeruk”
Label4.Text = “Rp. 3000”
Label4.Text = 3000
Case “Jus Alpukat”
Label4.Text = “Rp. 6000”
Label4.Text = 6000
Case “Jus Mangga”
Label4.Text = “Rp. 7000”
Label4.Text = 7000
Case “Es Teh Manis”
Label4.Text = “Rp. 4000”
Label4.Text = 4000
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim porsimkn, porsimnm, jumlah, hrgmakanan, hrgminuman As Integer
porsimkn = txtMKN.Text
porsimnm = txtMNM.Text
hrgmakanan = Label2.Text
hrgminuman = Label4.Text
jumlah = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm)
txtJM.Text = jumlah
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
Dim lb2 As Integer
lb2 = Label2.Text
End Sub
Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
Dim lb4 As Integer
lb4 = Label4.Text
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked Then
MsgBox(“Terima Kasih — Telah datang di Resto GUPAG kami”)
End If
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked Then
MsgBox(“Silahkan melakukan pembayaran terlebih dahulu”)
End If
End Sub
End Class
By : Umi Salamah
