Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer

        Dim OrderNumber As Decimal

        Dim SIMSelection As Decimal

        Dim CaseSelection As Decimal

        Dim ChargerSelection As Decimal

        Dim TransactionPrice As Decimal = 0.0

        Dim DiscountIndicator As Boolean = False 'This Is To Detect Whether It Is The First Device Or Not To Apply Discounts

        Dim DiscountPrice As Decimal = 0.0

        Dim FinalDiscount As Decimal = 0.0

        Dim FinalTotalPrice As Decimal = 0.0

        Dim Phone(5) As String

        Phone(0) = "Compact"

        Phone(1) = "Clam Shell"

        Phone(2) = "RoboPhone - 5-inch screen and 64GB memory"

        Phone(3) = "RoboPhone - 6-inch screen and 256GB memory"

        Phone(4) = "Y-Phone Standard - 6-inch screen and 64GB memory"

        Phone(5) = "Y-Phone Deluxe - 6-inch screen and 256GB memory"

        Dim Tablet(3) As String

        Tablet(0) = "RoboTab - 8-inch screen and 64GB memory"

        Tablet(1) = "RoboTab - 10-inch screen and 128GB memory"

        Tablet(2) = "Y-Tab Standard - 10-inch screen and 128GB memory"

        Tablet(3) = "Y-Tab Deluxe - 10-inch screen and 256GB memory"

        Dim SIMCard(1) As String

        SIMCard(0) = "SIM Free (no SIM card purchased)"

        SIMCard(1) = "Pay As You GO (SIM card purchased)"

        Dim CaseDevice(1) As String

        CaseDevice(0) = "Standard"

        CaseDevice(1) = "Luxury"

        Dim Chargers(1) As String

        Chargers(0) = "Car"

        Chargers(1) = "Home"

        Dim ItemCode = New String() {"BPCM", "BPSH", "RPSS", "RPLL", "YPLS", "YPLL", "RTMS", "RTLM", "YTLM", "YTLL", "SMNO", "SMPG", "CSST", "CSLX", "CGCR", "CGHM"}

        Dim Prices = New Decimal() {29.99, 49.99, 199.99, 499.99, 549.99, 649.99, 149.99, 299.99, 499.99, 599.99, 0.0, 9.99, 0.0, 50.0, 19.99, 15.99}

        Dim BoughtItems = New Boolean() {False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False}

        Dim MoreItems As String = "Yes"

        Console.WriteLine("Type Anything To Start Device Selection.")

        Console.ReadLine()

        Console.WriteLine("Welcome To The Device Shop! Type Anything To Continue!")

        Console.ReadLine()

        Do While MoreItems = "Yes"

            Console.WriteLine("Please Choose A Device From The Following List By Writing The Corresponding Numbers Above Each Device: ")

            Console.WriteLine("---------------------------------------------------------------")

            For i = 0 To 5

                Console.WriteLine(i) : Console.WriteLine(Phone(i)) : Console.WriteLine(ItemCode(i)) : Console.WriteLine(Prices(i)) : Console.WriteLine("US Dollars") : Console.WriteLine("---------------------------------------------------------------")

            Next i

            For i = 6 To 9

                Console.WriteLine(i) : Console.WriteLine(Tablet(i - 6)) : Console.WriteLine(ItemCode(i)) : Console.WriteLine(Prices(i)) : Console.WriteLine("---------------------------------------------------------------")

            Next i

            OrderNumber = Console.ReadLine()

            Do While (OrderNumber > 9) Or (OrderNumber < 0) Or ((OrderNumber Mod 1) <> 0)

                Console.WriteLine("Please Write A Valid Order Number From 0 To 9, This Is An Invalid Number.")

                OrderNumber = Console.ReadLine()

            Loop

            If (OrderNumber >= 0) And (OrderNumber <= 5) Then

                Console.WriteLine("Would You Like A SIM Card? Type The Corresponding Number From The Following: ")

                Console.WriteLine("---------------------------------------------------------------")

                For i = 0 To 1

                    Console.WriteLine(i) : Console.WriteLine(SIMCard(i)) : Console.WriteLine(ItemCode(10 + i)) : Console.WriteLine(Prices(10 + i)) : Console.WriteLine("US Dollars") : Console.WriteLine("---------------------------------------------------------------")

                Next i

                SIMSelection = Console.ReadLine()

                Do While (SIMSelection <> 1) And (SIMSelection <> 0)

                    Console.WriteLine("Please Write Only 0 Or 1, This Is An Invalid Number.")

                    SIMSelection = Console.ReadLine()

                Loop

                BoughtItems(SIMSelection + 10) = True

            End If

            BoughtItems(OrderNumber) = True

            If DiscountIndicator = True Then

                DiscountPrice = (DiscountPrice + (0.1 * Prices(OrderNumber)))

            End If

            Console.WriteLine("---------------------------------------------------------------")

            Console.WriteLine("Which Type Of Case Would You Like On The Device? Type The Number Of The Case Written In The Following: ")

            Console.WriteLine("---------------------------------------------------------------")

            For i = 0 To 1

                Console.WriteLine(i) : Console.WriteLine(CaseDevice(i)) : Console.WriteLine(ItemCode(12 + i)) : Console.WriteLine(Prices(12 + i)) : Console.WriteLine("US Dollars") : Console.WriteLine("---------------------------------------------------------------")

            Next i

            CaseSelection = Console.ReadLine()

            Do While (CaseSelection <> 1) And (CaseSelection <> 0)

                Console.WriteLine("Please Write A Valid Number, 0 Or 1. This Is An Invalid Number.")

                CaseSelection = Console.ReadLine()

            Loop

            BoughtItems(CaseSelection + 12) = True

            Console.WriteLine("---------------------------------------------------------------")

            Console.WriteLine("These Are The Available Chargers. To Buy, Type The Following Numbers. You May Buy 1 Charger, Both Chargers, Or Neither.")

            Console.WriteLine("---------------------------------------------------------------")

            For i = 0 To 1

                Console.WriteLine(Chargers(i)) : Console.WriteLine(ItemCode(14 + i)) : Console.WriteLine(Prices(14 + i)) : Console.WriteLine("US Dollars") : Console.WriteLine("---------------------------------------------------------------")

            Next i

            Console.WriteLine("To Choose Chargers, Type The Corresponding Numbers: ")

            Console.WriteLine("---------------------------------------------------------------")

            Console.WriteLine("1-Car Charger Only")

            Console.WriteLine("2-Home Charger Only")

            Console.WriteLine("3-Both Chargers")

            Console.WriteLine("4-None Of The Chargers")

            ChargerSelection = Console.ReadLine()

            Do While (ChargerSelection <> 1) And (ChargerSelection <> 2) And (ChargerSelection <> 3) And (ChargerSelection <> 4)

                Console.WriteLine("Please Write A Valid Number From 1 To 4. This Is An Invalid Number For Chargers.")

                ChargerSelection = Console.ReadLine()

            Loop

            Select Case ChargerSelection

                Case 1

                    BoughtItems(14) = True

                Case 2

                    BoughtItems(15) = True

                Case 3

                    BoughtItems(14) = True

                    BoughtItems(15) = True

                Case 4

            End Select

            For i = 0 To 15

                If BoughtItems(i) = True Then

                TransactionPrice = (TransactionPrice + Prices(i))

                End If

            Next i

            FinalTotalPrice = (FinalTotalPrice + TransactionPrice)

            Console.WriteLine("---------------------------------------------------------------")

            Console.WriteLine("Checklist Of Items Purchased And Total Price (Of The Device, Not All Devices)")

            Console.WriteLine("---------------------------------------------------------------")

            For i = 0 To 15

                If BoughtItems(i) = True Then

                    If i <= 5 Then

                        Console.WriteLine(Phone(i))

                        Console.WriteLine(ItemCode(i))

                        Console.WriteLine(Prices(i))

            Console.WriteLine("---------------------------------------------------------------")

                    End If

                    If i > 5 And i < 10 Then

                    Console.WriteLine(Tablet(i - 6))

                    Console.WriteLine(ItemCode(i))

                    Console.WriteLine(Prices(i))

            Console.WriteLine("---------------------------------------------------------------")

                    End If

                    If i = 10 Or i = 11 Then

                    Console.WriteLine("SIM Card Purchased")

                    If BoughtItems(10)=False And BoughtItems(11) = False Then

                    Console.WriteLine("No SIM Cards Purchased")

                    Else

                    Console.WriteLine(SIMCard(i - 10))

                    Console.WriteLine(ItemCode(i))

                    Console.WriteLine(Prices(i))

            Console.WriteLine("---------------------------------------------------------------")

                    End If

                    End If

                    If i = 12 Or i = 13 Then

                    Console.WriteLine("Type Of Case Purchased")

                        Console.WriteLine(CaseDevice(i - 12))

                    Console.WriteLine(ItemCode(i))

                        Console.WriteLine(Prices(i))

            Console.WriteLine("---------------------------------------------------------------")

                    End If

                    If i = 14 Or i = 15 Then

                    Console.WriteLine("Chargers Purchased")

                    Console.WriteLine(Chargers(i - 14), "Charger")

                    Console.WriteLine(ItemCode(i))

                        Console.WriteLine(Prices(i))

            Console.WriteLine("---------------------------------------------------------------")

                    End If

                End If

            Next i

            Console.WriteLine("The Total Price Of This Transaction In US Dollars Is")

            Console.WriteLine(TransactionPrice)

            Console.WriteLine("---------------------------------------------------------------")

            FinalDiscount = (FinalDiscount + DiscountPrice)

            Console.WriteLine("Would You Like To Purchase Another Device? Type Yes, Or Type No If You Do Not Like Another Device.")

            MoreItems = Console.ReadLine()

            Do While (MoreItems <> "No" And MoreItems <> "Yes")

                Console.WriteLine("This Is An Invalid Term, Type Yes If You Would Like Another Device, Or No.")

                MoreItems = Console.ReadLine()

            Loop

            If MoreItems = "Yes" Then

                For i = 0 To 15

                    BoughtItems(i) = False

                Next i

                DiscountIndicator = True

                DiscountPrice = 0.0

                TransactionPrice = 0.0

            End If

        Loop

        FinalTotalPrice = (FinalTotalPrice - FinalDiscount)

        Console.WriteLine("The Total Price In US Dollars For The Device Transaction Is")

        Console.WriteLine(FinalTotalPrice)

        Console.WriteLine("The Total Discount In US Dollars For All Transaction Is")

        Console.WriteLine(FinalDiscount)

End Sub

End Module