Public Class FrmShawn

    Const cManual As Decimal = 10500
    Const cAutomatic As Decimal = 14500
    Const Turbo As Decimal = 6500
    Const SuperCharger As Decimal = 8500
    Const Throttles As Decimal = 5500
    Const SideDrafts As Decimal = 7500
    Const VAT As Decimal = 14%
    Dim decDiscount As Decimal
    Dim GearBox As Decimal
    Dim PerformanceParts As Decimal
    Dim Counter As Integer
    Dim decTotalAmount As Decimal
    Dim decSalesTax As Decimal
    Dim AfterTax As Decimal
    Dim strName As String
    Dim strSurname As String
    Dim decTotalItems As Decimal
    Private Sub ExitApp()
        Me.close()
    End Sub
    Private Sub ClearingControls()
        txtName.Text = Nothing
        txtSurname.Text = Nothing
        txtID.Text = Nothing
        lblTotalItems.Text = Nothing
        lblDiscountDisplay.Text = Nothing
        lblSalesDisplay.Text = Nothing
        lblTotalDisplay.Text = Nothing
        cboCarBrand.Text = Nothing
        radManual.Checked = False
        radAutomatic.Checked = False
        chkSideDrafts.Checked = False
        chkThrottles.Checked = False
        chkTurbo.Checked = False
        chkSuperCharger.Checked = False
        lstItems.Items.Clear()
    End Sub
    Function TotalItems() As Decimal
        Dim decTotalItems As Decimal

        decTotalItems = GearBox + PerformanceParts


        Return decTotalItems
    End Function

    Function SalesTax() As Decimal
        Dim decSalesTax As Decimal
        decSalesTax = GearBox + PerformanceParts / 14 * 100

        Return decSalesTax
    End Function
    Function Discount() As Decimal
        Dim decDiscount As Decimal
        If Counter = 8 Then
            decDiscount = decTotalItems - (decTotalItems * (1 / 100))
        ElseIf Counter = 10 Then
            decDiscount = decTotalItems - (decTotalItems * (2 / 100))
        ElseIf Counter = 11 Then
            decDiscount = decTotalItems - (decTotalItems * (3 / 100))
        ElseIf Counter = 13 Then
            decDiscount = decTotalItems - (decTotalItems * (4 / 100))
        End If
        Return decDiscount
    End Function
    Function TotalAmount() As Decimal
        Dim decTotalAmount As Decimal

        decTotalAmount = (decTotalItems + decSalesTax) - decDiscount

        Return decTotalAmount
    End Function
    Private Sub FrmShawn_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cboCarBrand.SelectedIndex = 0
        txtName.Focus()


    End Sub

    Private Sub btnPromotion_Click(sender As Object, e As EventArgs) Handles btnPromotion.Click
        'Displaying names
        strName = CStr(txtName.Text)
        strSurname = CStr(txtSurname.Text)
        Dim ID As Long
        If IsNumeric(txtID.Text) = False Then
            MessageBox.Show("Enter Numeric Number")
            txtID.Focus()
            Exit Sub
        Else
            ID = txtID.Text
        End If

        'STUFSS
        decTotalItems = TotalItems()
        decSalesTax = SalesTax()
        decDiscount = Discount()
        decTotalAmount = TotalAmount()



        lstItems.Items.Add("ID NUMBER:" & " " & ID.ToString())
        lstItems.Items.Add("Name of Customer:" & " " & strName.ToString())
        lstItems.Items.Add("Surname of Customer:" & " " & strSurname.ToString())

        If cboCarBrand.SelectedIndex = 1 Then
            lstItems.Items.Add("VW")
        ElseIf cboCarBrand.SelectedIndex = 2 Then
            lstItems.Items.Add("Honda")
        ElseIf cboCarBrand.SelectedIndex = 3 Then
            lstItems.Items.Add("BMW")
        ElseIf cboCarBrand.SelectedIndex = 4 Then
            lstItems.Items.Add("FORD")
        End If

        If radManual.Checked = True Then
            lstItems.Items.Add("Manual")
        ElseIf radAutomatic.Checked = True Then
            lstItems.Items.Add("Automatic")
        End If


        If chkTurbo.Checked = True Then
            lstItems.Items.Add("Turbo")
        ElseIf chkSuperCharger.Checked = True Then
            lstItems.Items.Add("Super Charger")
        End If
        If chkThrottles.Checked = True Then
            lstItems.Items.Add("Throttles")
        ElseIf chkSideDrafts.Checked = True Then
            lstItems.Items.Add("Side Drafts")

        End If


        lblTotalItems.Text = decTotalItems.ToString("C2")
        lblSalesDisplay.Text = decSalesTax.ToString("C2")
        lblDiscountDisplay.Text = decDiscount.ToString("C2")
        lblTotalDisplay.Text = decTotalAmount.ToString("C2")


    End Sub

    Private Sub radManual_CheckedChanged(sender As Object, e As EventArgs) Handles radManual.CheckedChanged
        If radManual.Checked = True Then
            GearBox = GearBox + cManual

        End If
    End Sub

    Private Sub radAutomatic_CheckedChanged(sender As Object, e As EventArgs) Handles radAutomatic.CheckedChanged
        If radAutomatic.Checked = True Then
            GearBox = GearBox + cAutomatic
        End If
    End Sub
    Private Sub chkTurbo_CheckedChanged(sender As Object, e As EventArgs) Handles chkTurbo.CheckedChanged
        If chkTurbo.Checked = True Then
            PerformanceParts = PerformanceParts + Turbo
            Counter = Counter + 2

        End If
    End Sub
    Private Sub chkSuperCharger_CheckedChanged(sender As Object, e As EventArgs) Handles chkSuperCharger.CheckedChanged
        If chkSuperCharger.Checked = True Then
            PerformanceParts = PerformanceParts + SuperCharger
            Counter = Counter + 4
        End If
    End Sub

    Private Sub chkThrottles_CheckedChanged(sender As Object, e As EventArgs) Handles chkThrottles.CheckedChanged
        If chkThrottles.Checked = True Then
            PerformanceParts = PerformanceParts + Throttles
            Counter = Counter + 6
        End If
    End Sub

    Private Sub chkSideDrafts_CheckedChanged(sender As Object, e As EventArgs) Handles chkSideDrafts.CheckedChanged
        If chkSideDrafts.Checked = True Then
            PerformanceParts = PerformanceParts + SideDrafts
            Counter = Counter + 9
        End If
    End Sub


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

    End Sub

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