Dim sizepizza. crust. drinks. tops1. tops2. tops3. tops4. tops5. tops6. pricepizza. pricetops. pricedrink. totprice As Single Dim sp. crst. drnk. drinking. toping1. toping2. toping3. toping4. toping5. toping6. dt As String.

Private Sub btnCompute_Click ( ByVal transmitter As System. Object. ByVal e As System. EventArgs ) Handles btnCompute. Click ”Size
If radSmall. Checked Then
sizepizza = 100
ElseIf radMed. Checked Then
sizepizza = 150
ElseIf radLarge. Checked Then
sizepizza = 200
End If.






We Will Write a Custom Essay Specifically
For You For Only $13.90/page!


order now

”Crust
If radThin. Checked Then
crust = sizepizza
ElseIf radThick. Checked Then
crust = sizepizza + ( sizepizza * 0. 5 )
End If.




pricepizza = crust
txtPizza. Text = FormatNumber ( pricepizza. 2 )

”Drinks
If radDrink. Checked Then
drinks = 20
ElseIf radJuice. Checked Then
drinks = 15
ElseIf radChoco. Checked Then
drinks = 25
End If






pricedrink = drinks
txtDrinks. Text = FormatNumber ( pricedrink. 2 )

If chkCheese. Checked = True Then
tops1 = 10
Else
tops1 = 0
End If
If chkMush. Checked = True Then
tops2 = 10
Else
tops2 = 0
End If
If chkOlv. Checked = True Then
tops3 = 10
Else
tops3 = 0
End If
If chkOnion. Checked = True Then
tops4 = 10
Else
tops4 = 0
End If
If chkPep. Checked = True Then
tops5 = 10
Else
tops5 = 0
End If
If chkTom. Checked = True Then
tops6 = 10
Else
tops6 = 0
End If




























pricetops = tops1 + tops2 + tops3 + tops4 + tops5 + tops6
txtTop. Text = FormatNumber ( pricetops. 2 )

totprice = pricepizza + pricetops + pricedrink
txtTot. Text = FormatNumber ( totprice. 2 )
End Bomber

Private Sub btnBuilt_Click ( ByVal transmitter As System. Object. ByVal e As System. EventArgs ) Handles btnBuilt. Click If radSmall. Checked Then
sp = radSmall. Text + vbNewLine
ElseIf radMed. Checked Then
sp = radMed. Text + vbNewLine
ElseIf radLarge. Checked Then
sp = radLarge. Text + vbNewLine
End If





If radDine. Checked Then
dt = radDine. Text + vbNewLine
ElseIf radTG. Checked Then
dt = radTG. Text + vbNewLine
End If



If radChoco. Checked Then
drnk = radChoco. Text + vbNewLine
ElseIf radDrink. Checked Then
drnk = radDrink. Text + vbNewLine
ElseIf radJuice. Checked Then
drnk = radJuice. Text + vbNewLine
End If
If radThin. Checked Then
crst = radThin. Text + vbNewLine
ElseIf radThick. Checked Then
crst = radThick. Text + vbNewLine
End If
If chkCheese. Checked = True Then
toping1 = chkCheese. Text + vbNewLine
Else
toping1 = “”
End If
If chkMush. Checked = True Then
toping2 = chkMush. Text + vbNewLine
Else
toping2 = “”
End If
If chkOlv. Checked = True Then
toping3 = chkOlv. Text + vbNewLine
Else
toping3 = “”
End If
If chkOnion. Checked = True Then
toping4 = chkOnion. Text + vbNewLine
Else
toping4 = “”
End If
If chkPep. Checked = True Then
toping5 = chkPep. Text + vbNewLine
Else
toping5 = “”
End If
If chkTom. Checked = True Then
toping6 = chkTom. Text + vbNewLine
Else
toping6 = “”
End If








































drinking = toping1 + toping2 + toping3 + toping4 + toping5 + toping6 MessageBox. Show ( “” + dt + “Size” + sp + “Crust” + crst + drinking. “Your Pizza” ) Me. btnCompute. Enabled = True

End Bomber

Private Sub btnClrTop_Click ( ByVal transmitter As System. Object. ByVal e As System. EventArgs ) Handles btnClrTop. Click Dim ans As Byte

autonomic nervous systems = MessageBox. Show ( “Are you sure you want to unclutter all Toppings? ” . “KhEn Pizza” . MessageBoxButtons. YesNo. MessageBoxIcon. Question ) If autonomic nervous systems = DialogResult. Yes Then
chkCheese. Checked = False
chkMush. Checked = False
chkOlv. Checked = False
chkOnion. Checked = False
chkPep. Checked = False
chkTom. Checked = False
End If
End Bomber







Private Sub Form1_Load ( ByVal transmitter As System. Object. ByVal e As System. EventArgs ) Handles MyBase. Load btnCompute. Enabled = False
End Bomber
End Class.