Java Code

Public Class Form1 Dim sizepizza, crust, drinks, tops1, tops2, tops3, tops4, tops5, tops6, pricepizza, pricetops, pricedrink, totprice As Single Dim sp, crst, drnk, toping, toping1, toping2, toping3, toping4, toping5, toping6, dt As String

Private Sub btnCompute_Click(ByVal sender 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

''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)