Submitted by: Submitted by boop3
Views: 100
Words: 350
Pages: 2
Category: Other Topics
Date Submitted: 06/30/2013 11:14 AM
Private Sub BtnMeal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMeal.Click
Dim entree As Integer = 0
If chbBurgers.Checked Or chbFries.Checked Or chbDrinks.Checked Then
entree += 0
End If
If chbBurgers.Checked Or chbFries.Checked Or chbDrinks.Checked Then
grpBurgers.Visible = True
End If
If chbBurgers.Checked Then
grpBurgers.Visible = True
Else
grpBurgers.Visible = False
End If
If chbFries.Checked Then
grpFries.Visible = True
Else
grpFries.Visible = False
End If
If chbDrinks.Checked Then
grpDrinks.Visible = True
Else
grpDrinks.Visible = False
End If
Dim count As Double = 0
If radReg.Checked Then
count += 4.19
End If
If radwCheese.Checked Then
count += 4.79
End If
If radwBacon.Checked Then
count += 4.79
End If
If radwBC.Checked Then
count += 5.39
End If
If radSmall.Checked Then
count += (2.39)
End If
If radMedium.Checked Then
count += (3.09)
End If
If radLarge.Checked Then
count += (4.99)
End If
If radSoda.Checked Then
count += (1.69)
End If
If radWater.Checked Then
count += (1.49)
End If
txtMeal.Text = FormatCurrency(count)
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtMeal.Clear()
If chbBurgers.Checked Then
chbBurgers.Checked = False
End If
If chbFries.Checked Then
chbFries.Checked = False
End If
If chbDrinks.Checked Then
chbDrinks.Checked = False
End If
If grpBurgers.Visible = False Then
grpBurgers.Visible = True
End If
If grpFries.Visible = False Then
grpFries.Visible = True
End If
If grpDrinks.Visible = False Then
grpDrinks.Visible = True
End If
If radReg.Checked Then
radReg.Checked = False
End If
If radReg.Checked Then
radReg.Checked = False
End If
If radwCheese.Checked Then
radwCheese.Checked = False
End If
If radwBacon.Checked Then
radwBacon.Checked = False
End If
If radwBC.Checked Then
radwBC.Checked = False
End If
If radSmall.Checked Then
radSmall.Checked = False...