Question

Book - Introduction to Programming Using Visual Basic 11th Edition by David I. Schneider

Programming Language - Visual Studio 2017

RESTAURANT MENU Write a program to place an order from the restaurant menu in Table 4.13. Use the form in Fig. 4.70, and write the program so that each group box is invisible and becomes visible only when its corresponding check box is checked. After the button is clicked, the cost of the meal should be calculated. (NOTE: The Checked property of the first radio button in each group box should be set to True in its Properties window. This guarantees that a selection is made in each visible group box. Of course, when the cost of the meal is calculated, only the visible group boxes should be considered.)

See Fig. 4.71.

Table 4.13 Menu of Oceanside Burgers & Fries.

Burgers	Fries	Drinks
Regular (4.19)	Small (2.39)	Soda (1.69)
w/ cheese (4.79)	Medium (3.09)	Bottled water (1.49)
w/ bacon (4.79)	Large (4.99)
w/ bacon and cheese (5.39)

Figure 4.70 Form for Programming Project 5.

Answer 1

Write the Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

' Project: Restaurant Menu ' Description: Simulates a burger shop from user input. '    User decides from a menu of burgers, fries and a drink '    Total cost is calculated and output to the screen with proper formatting Public Class frmMenu     ' declare global variables     Dim totalCost As Double = 0     Dim burgerCost As Double = 0     Dim friesCost As Double = 0     Dim drinkCost As Double = 0     ' Make menu items visible when boxes are checked     Private Sub chkBurgers_CheckedChanged(sender As Object, e As EventArgs) Handles chkBurgers.CheckedChanged         If chkBurgers.Checked = True Then             grpBurgers.Visible = True         Else             grpBurgers.Visible = False         End If     End Sub     Private Sub chkFries_CheckedChanged(sender As Object, e As EventArgs) Handles chkFries.CheckedChanged         If chkFries.Checked = True Then             grpFries.Visible = True         Else             grpFries.Visible = False         End If     End Sub     Private Sub chkDrinks_CheckedChanged(sender As Object, e As EventArgs) Handles chkDrinks.CheckedChanged         If chkDrinks.Checked = True Then             grpDrinks.Visible = True         Else             grpDrinks.Visible = False         End If     End Sub     ' Calculate total cost of order     Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click         totalCost = 0         If chkBurgers.Checked = True Then             If radRegular.Checked = True Then                 burgerCost = 4.19             ElseIf (radCheese.Checked = True) Or (radBacon.Checked = True) Then                 burgerCost = 4.79             ElseIf (radBoth.Checked = True) Then                 burgerCost = 5.39             End If             totalCost += burgerCost         End If         If chkFries.Checked = True Then             If radSmall.Checked = True Then                 friesCost = 2.39             ElseIf (radMedium.Checked = True) Then                 friesCost = 3.09             ElseIf (radLarge.Checked = True) Then                 friesCost = 4.99             End If             totalCost += friesCost         End If         If chkDrinks.Checked = True Then             If radSoda.Checked = True Then                 drinkCost = 1.69             ElseIf radWater.Checked = True Then                 drinkCost = 1.49             End If             totalCost += drinkCost         End If         ' output cost of order         txtCompute.Text = CStr(totalCost.ToString("C"))     End Sub End Class