Public Class Form1

    Dim Adult As Integer
    Dim Child As Integer
    Dim OAP As Integer

    Const SeatGrade1 As Integer = 150
    Const SeatGrade2 As Integer = 120
    Const SeatGrade3 As Integer = 87.5

    Const GoldMember As Double = 0.1
    Const SilverMember As Double = 0.09
    Const BronzeMember As Double = 0.08

    Const CardCredit As Double = 0.0225
    Const Installment As Double = 0.0375

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Discount, Subtotal, Credit, Total As Decimal

        If radRugby.Checked = True Then
            Adult = 175
            Child = 85
            OAP = 105
        End If

        If radFootball.Checked = True Then
            Adult = 175
            Child = 85
            OAP = 105
        End If

        If radAdultTicket.Checked = True Then
            Subtotal += Adult
        End If
        If radChildTicket.Checked = True Then
            Subtotal += Child
        End If
        If radOADTicket.Checked = True Then
            Subtotal += OAP
        End If

        If radSeatGuide1.Checked = True Then
            Subtotal += SeatGrade1
        End If
        If radSeatGrade2.Checked = True Then
            Subtotal += SeatGrade2
        End If
        If radSeatGrade3.Checked = True Then
            Subtotal += SeatGrade3
        End If

        If radGoldMember.Checked = True Then
            Discount = Subtotal * GoldMember
        End If
        If radSilverMember.Checked = True Then
            Discount = Subtotal * SilverMember
        End If
        If radBronzeMember.Checked = True Then
            Discount = Subtotal * BronzeMember
        End If

        If chkCardPayment.Checked = True Then
            Credit = Subtotal * CardCredit
        End If

        'If chkInstallmentPayment.Checked = True Then

        ' End If

        Total = (Subtotal - Discount) + Credit

        lblDiscount.Text = FormatCurrency(Discount)
        lblSubTotal.Text = FormatCurrency(Subtotal)
        lblSurcharge.Text = FormatCurrency(Credit)
        lblTotal.Text = FormatCurrency(Total)

    End Sub


End Class