Embedded Files
Membership Form
Public Class Form1
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
Const decDiscount4to6 As Decimal = 0.05D
Const decDiscount7to9 As Decimal = 0.08D
Const decDiscount10orMore As Decimal = 0.1D
Dim decBaseFee As Decimal
Dim decDiscount As Decimal
Dim decTotalFee As Decimal
Dim intMonths As Integer
Try
intMonths = CInt(txtMonths.Text)
Catch ex As Exception
MsgBox("months must be a valid integer")
Return
End Try
If (intMonths < 1) Or (intMonths > 24) Then
MsgBox("Months must be a valid integer")
Return
End If
'radio buttons
If radAdult.Checked = True Then
decBaseFee = 40
ElseIf radChild.Checked = True Then
decBaseFee = 20
ElseIf radStudent.Checked = True Then
decBaseFee = 25
ElseIf radSenior.Checked = True Then
decBaseFee = 30
End If
'check boxes
If chkYoga.Checked = True Then
decBaseFee += 10
End If
If chkKarate.Checked = True Then
decBaseFee += 30
End If
If chkTrainer.Checked = True Then
decBaseFee += 50
End If
'determine the math
Select Case intMonths
Case Is <= 3
decDiscount = 0
Case 4 To 6
decDiscount = decBaseFee * decDiscount4to6
Case 7 To 9
decDiscount = decBaseFee * decDiscount7to9
Case Is >= 10
decDiscount = decBaseFee * decDiscount10orMore
End Select
'calculate total fee
decBaseFee -= decDiscount
decTotalFee = decBaseFee * intMonths
lblMonthlyFee.Text = FormatCurrency(decBaseFee)
lblTotalFee.Text = FormatCurrency(decTotalFee) End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
radAdult.Checked = True
chkYoga.Checked = False
chkKarate.Checked = False
chkTrainer.Checked = False
txtMonths.Clear()
lblMonthlyFee.Text = ""
lblTotalFee.Text = ""
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub radAdult_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
radAdult.CheckedChanged
End Sub
End Class
Page updated
Google Sites
Report abuse