Public Class pizza1

    Private Sub SubmitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubmitButton.Click
        'Declare variables
        Dim message As String
        Dim toppings As String

        'Construct a response string
        message = ""
        message = message & "Name: " & NameTextBox.Text & vbCrLf
        message = message & "Address: " & AddressTextBox.Text & vbCrLf
        If SmallRadioButton.Checked Then
            message = message & "Size: " & SmallRadioButton.Text & vbCrLf
        ElseIf MediumRadioButton.Checked Then
            message = message & "Size: " & MediumRadioButton.Text & vbCrLf
        ElseIf LargeRadioButton.Checked Then
            message = message & "Size: " & LargeRadioButton.Text & vbCrLf
        ElseIf ExtraLargeRadioButton.Checked Then
            message = message & "Size: " & ExtraLargeRadioButton.Text & vbCrLf
        End If

        'See what toppings were checked
        toppings = ""
        If HamburgerCheckBox.Checked Then
            toppings = toppings & HamburgerCheckBox.Text
        End If
        If SausageCheckBox.Checked Then
            If toppings <> "" Then
                toppings = toppings & ", "
            End If
            toppings = toppings & SausageCheckBox.Text
        End If
        If PepperoniCheckBox.Checked Then
            If toppings <> "" Then
                toppings = toppings & ", "
            End If
            toppings = toppings & PepperoniCheckBox.Text
        End If
        If OnionsCheckBox.Checked Then
            If toppings <> "" Then
                toppings = toppings & ", "
            End If
            toppings = toppings & OnionsCheckBox.Text
        End If
        If PeppersCheckBox.Checked Then
            If toppings <> "" Then
                toppings = toppings & ", "
            End If
            toppings = toppings & PeppersCheckBox.Text
        End If
        If MushroomsCheckBox.Checked Then
            If toppings <> "" Then
                toppings = toppings & ", "
            End If
            toppings = toppings & MushroomsCheckBox.Text
        End If
        If toppings <> "" Then
            message = message & "Toppings: " & toppings & vbCrLf
        Else
            message = message & "Toppings: none " & vbCrLf
        End If

        'Response box
        MsgBox("Thank you for ordering from Purple Pizza Parlor." & vbCrLf & _
            "Your order is:" & vbCrLf & message & _
            "It will be delivered in about a half hour.")
    End Sub

    Private Sub ResetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetButton.Click
        'Reset all the fields, buttons, and boxes
        NameTextBox.Text = ""
        AddressTextBox.Text = ""
        SmallRadioButton.Checked = False
        MediumRadioButton.Checked = False
        LargeRadioButton.Checked = True
        ExtraLargeRadioButton.Checked = False
        HamburgerCheckBox.Checked = False
        SausageCheckBox.Checked = False
        PepperoniCheckBox.Checked = False
        OnionsCheckBox.Checked = False
        PeppersCheckBox.Checked = False
        MushroomsCheckBox.Checked = False
        DebugTextBox.Text = "The status of your order is:"
    End Sub

    Private Sub SausageCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SausageCheckBox.CheckedChanged
        ' Write debug information
        If SausageCheckBox.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Sausage was checked"
        Else
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Sausage was unchecked"
        End If
    End Sub

    Private Sub HamburgerCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HamburgerCheckBox.CheckedChanged
        If HamburgerCheckBox.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Hamburger was checked"
        Else
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Hamburger was unchecked"
        End If
    End Sub

    Private Sub PepperoniCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PepperoniCheckBox.CheckedChanged
        If PepperoniCheckBox.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Pepperoni was checked"
        Else
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Pepperoni was unchecked"
        End If
    End Sub

    Private Sub OnionsCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OnionsCheckBox.CheckedChanged
        If OnionsCheckBox.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Onions was checked"
        Else
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Onions was unchecked"
        End If
    End Sub

    Private Sub PeppersCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeppersCheckBox.CheckedChanged
        If PeppersCheckBox.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Peppers was checked"
        Else
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Peppers was unchecked"
        End If
    End Sub

    Private Sub MushroomsCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MushroomsCheckBox.CheckedChanged
        If MushroomsCheckBox.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Mushrooms was checked"
        Else
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Mushrooms was unchecked"
        End If
    End Sub

    Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
        Me.Dispose()
    End Sub

    Private Sub SmallRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmallRadioButton.CheckedChanged
        If SmallRadioButton.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Small was checked"
        End If
    End Sub

    Private Sub MediumRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MediumRadioButton.CheckedChanged
        If MediumRadioButton.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Medium was checked"
        End If
    End Sub

    Private Sub LargeRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LargeRadioButton.CheckedChanged
        If LargeRadioButton.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Large was checked"
        End If
    End Sub

    Private Sub ExtraLargeRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExtraLargeRadioButton.CheckedChanged
        If ExtraLargeRadioButton.Checked Then
            DebugTextBox.Text = DebugTextBox.Text & vbCrLf & "Extra Large was checked"
        End If
    End Sub
End Class