'SAALIGAH ABRAHAMS
    '9610280104081
    'Declare stuff
    Dim decTotalPrice As Decimal
    Dim decVAT As Decimal
    Dim decTotalNumber As Decimal
    Dim decSubTotal As Decimal
    Dim strName As String
    Dim decDiscount As Decimal


    Const intBracelet As Integer = 15
    Const intEarrings As Integer = 10
    Const intNecklace As Integer = 20

    Const intVAT As Integer = 0.14

    Dim intOccasion As Integer
    Dim intJewellery As Integer

    'clear sub procedure
    Private Sub Clear()
        'List Box
        lstListOfJewellery.Items.Clear()

        'displaying decimals
        lblDiscount.Text = Nothing
        lblSubTotal.Text = Nothing
        lblTotalPrice.Text = Nothing
        lblTotalNumber.Text = Nothing
        lblVAT.Text = Nothing
        txtName.Text = Nothing

        chkBracelet.Checked = False
        chkEarings.Checked = False
        chkNecklace.Checked = False

        radCasual.Checked = False
        radFormal.Checked = False


    End Sub

    'number of jewellery
    Function CalcNumberJewellery() As Integer
        Dim decTotalNumber As Decimal
        decTotalNumber = intBracelet + intEarrings + intNecklace
        Return decTotalNumber
    End Function

    'SubTotal
    Function CalcSubTotal() As Integer
        Dim decSubTotal As Integer
        decSubTotal = intJewellery + intOccasion

        Return decSubTotal
    End Function

    'Discount
    Function CalcDiscount() As Integer
        Dim decDiscount As Decimal
        If radFormal.Checked = True Then
            decDiscount = decTotalPrice - (decTotalPrice * 2 / 100)

        ElseIf radCasual.Checked = True Then
            decDiscount = decTotalPrice

        End If

        Return decDiscount


    End Function

    'TotalPrice
    Function CalcTotalPrice() As Integer
        Dim decTotalPrice As Integer
        decTotalPrice = intJewellery + intOccasion + intVAT * decDiscount

        Return decTotalPrice
    End Function




    'check boxes
    Private Sub chkNecklace_CheckedChanged(sender As Object, e As EventArgs) Handles chkNecklace.CheckedChanged
        If chkNecklace.Checked = True Then
            intJewellery = intJewellery + intNecklace

        End If
    End Sub

    Private Sub chkEarings_CheckedChanged(sender As Object, e As EventArgs) Handles chkEarings.CheckedChanged
        If chkEarings.Checked = True Then
            intJewellery = intJewellery + intEarrings

        End If
    End Sub

    Private Sub chkBracelet_CheckedChanged(sender As Object, e As EventArgs) Handles chkBracelet.CheckedChanged
        If chkBracelet.Checked = True Then
            intJewellery = intJewellery + intBracelet

        End If
    End Sub




    'radio buttons
    Private Sub radFormal_CheckedChanged(sender As Object, e As EventArgs) Handles radFormal.CheckedChanged
        If radFormal.Checked = True Then
            intOccasion = intOccasion + 5

        End If
    End Sub

    Private Sub radInformal_CheckedChanged(sender As Object, e As EventArgs) Handles radCasual.CheckedChanged
        If radCasual.Checked = True Then
            intOccasion = intOccasion + 0
        End If
    End Sub

    Private Sub btnPromotion_Click(sender As Object, e As EventArgs) Handles btnPromotion.Click
        decSubTotal = CalcSubTotal()
        decDiscount = CalcDiscount()
        decTotalPrice = CalcTotalPrice()
        decTotalNumber = CalcNumberJewellery()



        'declaring Name Of Customer
        strName = CStr(txtName.Text)

        'List Box
        lstListOfJewellery.Items.Add("Name of Customer:" & txtName.Text)
        lstListOfJewellery.Items.Add("Subtotal:" & decSubTotal.ToString)
        lstListOfJewellery.Items.Add("Discount:" & decDiscount.ToString)
        lstListOfJewellery.Items.Add("Total Price:" & decTotalPrice.ToString)

        'displaying decimals
        lblDiscount.Text = decDiscount.ToString()
        lblSubTotal.Text = decSubTotal.ToString()
        lblTotalPrice.Text = decTotalPrice.ToString()
        lblTotalNumber.Text = decTotalNumber.ToString()
        lblVAT.Text = decVAT.ToString()


    End Sub

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

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


End Class