How would you put this code together in a basic flowchart? Public Class frmMenuO

Question

How would you put this code together in a basic flowchart?

Public Class frmMenuOrder
Private Sub frmMenuOrder_Load(sender As Object, e As EventArgs) Handles MyBase.Load
grpBurgers.Visible = False
grpDrinks.Visible = False
grpFries.Visible = False
End Sub
Private Sub chkBurgers_CheckedChanged(sender As Object, e As EventArgs) Handles chkBurgers.CheckedChanged
If chkBurgers.Checked Then
grpBurgers.Visible = True
radRegular.Checked = 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 Then
grpFries.Visible = True
radSmall.Checked = 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 Then
grpDrinks.Visible = True
radSoda.Checked = True
Else
grpDrinks.Visible = False
End If
End Sub
Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click
Dim Sum As Double
If chkBurgers.Checked Then
If radRegular.Checked Then
Sum += 4.19
ElseIf radCheese.Checked Or radBacon.Checked Then
Sum += 4.79
ElseIf radBaconCheese.Checked Then
Sum += 5.39
End If
End If

If chkFries.Checked Then
If radSmall.Checked Then
Sum += 2.39
ElseIf radMedium.Checked Then
Sum += 3.09
ElseIf radLarge.Checked Then
Sum += 4.99
End If
End If
If chkDrinks.Checked Then
If radSoda.Checked Then
Sum += 1.69
ElseIf radWater.Checked Then
Sum += 1.49
End If
End If

txtOutput.Text = Sum.ToString("C")
End Sub
End Class

Explanation / Answer

Public Class frmMenuOrder
Private Sub frmMenuOrder_Load(sender As Object, e As EventArgs) Handles MyBase.Load
grpBurgers.Visible = False
grpDrinks.Visible = False
grpFries.Visible = False
End Sub
Private Sub chkBurgers_CheckedChanged(sender As Object, e As EventArgs) Handles chkBurgers.CheckedChanged
If chkBurgers.Checked Then
grpBurgers.Visible = True
radRegular.Checked = 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 Then
grpFries.Visible = True
radSmall.Checked = 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 Then
grpDrinks.Visible = True
radSoda.Checked = True
Else
grpDrinks.Visible = False
End If
End Sub
Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click
Dim Sum As Double
If chkBurgers.Checked Then
If radRegular.Checked Then
Sum += 4.19
ElseIf radCheese.Checked Or radBacon.Checked Then
Sum += 4.79
ElseIf radBaconCheese.Checked Then
Sum += 5.39
End If
End If

If chkFries.Checked Then
If radSmall.Checked Then
Sum += 2.39
ElseIf radMedium.Checked Then
Sum += 3.09
ElseIf radLarge.Checked Then
Sum += 4.99
End If
End If
If chkDrinks.Checked Then
If radSoda.Checked Then
Sum += 1.69
ElseIf radWater.Checked Then
Sum += 1.49
End If
End If

txtOutput.Text = Sum.ToString("C")
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse H
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.