Public Class Form1 Private Sub btnPricing_Click(sender As Object, e As EventArgs) Handles btnPricing.Click ' The btnPricing event handler calculates the estimated cost for ' each attendee to attend the conference.

' Declaration Section Dim decAttendeeCost As Decimal Dim decPrice As Decimal Dim decNumAttend As Decimal

If IsNumeric(txtNumAttend.Text) Then decNumAttend = Convert.ToDecimal(txtNumAttend.Text) Else ' Display error message if input is nonnumeric MsgBox("Please enter a number between 1 and 16 in the text box.", , "Input Error") txtNumAttend.Clear() txtNumAttend.Focus() lblPrice.Text = "$000.00" End If

' Is the input between 1 and 16 If decNumAttend < 1 Then MsgBox("Please enter a number between 1 and 16 in the text box.", , "Input Error") txtNumAttend.Clear() txtNumAttend.Focus() lblPrice.Text = "$000.00" ElseIf decNumAttend > 16 Then MsgBox("Please enter a number between 1 and 16 in the text box.", , "Input Error") txtNumAttend.Clear() txtNumAttend.Focus() lblPrice.Text = "$000.00"

End If

' Is a radio button selected If radPrevAttend1.Checked = False And radPrevAttend2.Checked = False Then MsgBox("Has an attendee previously attended? Please select Yes or No.", , "Unchecked Option") lblPrice.Text = "$000.00" End If

' Determine the cost of attendance per attendee. Select Case decNumAttend Case Is = 1 decAttendeeCost = 895D Case 2 To 4 decAttendeeCost = 645D Case 5 To 8 decAttendeeCost = 480D Case 9 To 16 decAttendeeCost = 395D End Select

' Determine if an attendee has previously attended. A ' 15% discount is applied if "Yes" is checked. If radPrevAttend1.Checked Then decPrice = decAttendeeCost - (decAttendeeCost * 0.15) ElseIf radPrevAttend2.Checked Then decPrice = decAttendeeCost End If

' Calculated price is displayed with lblPrice. lblPrice.Text = decPrice.ToString("C") _ & " Per Attendee" End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

' This event handler is executed when ' the user clicks the Clear button. It ' resets the label displaying the price ' and the text box, sets focus on the ' text box, and resets the radio buttons. lblPrice.Text = "$000.00" txtNumAttend.Clear() radPrevAttend1.Checked = False radPrevAttend2.Checked = False txtNumAttend.Focus() End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

' This event handler is executed when ' the user clicks the Exit button. It ' closes the program. Close() End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' This event handler is executed when ' the form is loaded at the start of ' the program. It deselects the radio ' buttons and sets focus on the text ' box.

txtNumAttend.Focus()

End Sub
End Class