Imports System

Public Module Module1

    Public Sub Main()

          Dim i As Integer

        Dim DevicePicked As Integer

        Dim SIMPicked As Integer

        Dim CasePicked As Integer

        Dim ChargerPicked As Integer

        Dim Options = New String() {"Phone", "Phone", "Phone", "Phone", "Phone", "Phone", "Tablet", "Tablet", "Tablet", "Tablet", "SIM Card", "Sim Card", "Case", "Case", "Charger", "Charger"}

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

        Dim Details = New String() {"Compact", "ClamShell", "RoboPhone - 5-inch screen and 64GB memory", "RoboPhone-6-Inch screen and 256 GB memory", "Phone Standard-6-Inch screen and 64GB memory", "Phone Deluxe-6-Inch screen and 256Gb memory", "RoboTab-8-Inch screen and 64 Gb memory", "RoboTab-10-Inch screen and 128 Gb Memory", "Tab Standard-10-Inch screen and 128 GB memory", "Tab Deluxe-10-Inch screen 256 GB memory", "SIM Free (No SIM purchased)", "PAY AS YOU GO (SIM card purchased)", "Standard", "Luxury", "Car", "Home"}

        Dim Price = New String() {29.99, 49.99, 199.99, 499.99, 549.99, 649.99, 149.99, 299.99, 499.99, 599.99, 0.00, 9.99, 0.00, 50.0, 19.99, 15.99}

        Dim AllBought As Decimal

        Dim ExtraDevice As String

        Dim Devicenum As Integer

        Dim AllBoughtDevices As Decimal

        Dim FinalDiscount As Decimal

        Dim Discount10 As Decimal

        Dim CompleteTotal As Decimal

        CompleteTotal = 0.0

        Devicenum = 0

        AllBoughtDevices = 0

        AllBought = 0

        Discount10 = 0

        FinalDiscount = 0

        Do

            i = 0

            Do

                Console.WriteLine(i & " " & Options(i) & " " & ItemCode(i) & " " & Details(i) & " " & Price(i))

                i = (i + 1)

            Loop Until i = 10

            Do

                Console.WriteLine("Please pick from availabe devices(0-9)")

                DevicePicked = Console.ReadLine()

​

            Loop Until DevicePicked >= 0 And DevicePicked <= 9

​

            If Devicenum > 0 Then

                Discount10 = Price(DevicePicked) * 0.1

                AllBoughtDevices = Price(DevicePicked)

                Devicenum = (Devicenum + 1)

            End If

            If DevicePicked >= 0 And DevicePicked <= 5 Then

                Console.WriteLine("Please choose a SIM from the list")

                SIMPicked = Console.ReadLine

                While SIMPicked <> 1 And SIMPicked <> 2

                    Console.WriteLine("Please choose from 1 to 2")

                    SIMPicked = Console.ReadLine

                End While

                AllBought = (AllBought + Price(SIMPicked + 9))

            End If

            Console.WriteLine("Please choose a case from the list")

            CasePicked = Console.ReadLine

            While CasePicked <> 1 And CasePicked <> 2

                Console.WriteLine("Invaild case Please Choose from 1 to 2")

                CasePicked = Console.ReadLine

            End While

            AllBought = (AllBought + Price(CasePicked + 11))

            Do

                Console.WriteLine("Please pick from the charger options")

                Console.WriteLine("1-Car")

                Console.WriteLine("2-Home")

                Console.WriteLine("3-Both")

                Console.WriteLine("4-No Charger")

                ChargerPicked = Console.ReadLine

            Loop Until ChargerPicked >= 1 And ChargerPicked <= 4

            Select Case ChargerPicked

                Case 1

                    AllBought = (AllBought + Price(14))

                Case 2

                    AllBought = (AllBought + Price(15))

                Case 3

                    AllBought = (AllBought + Price(14) + Price(15))

            End Select

            Console.WriteLine(Options(DevicePicked))

            Console.WriteLine(ItemCode(DevicePicked))

            Console.WriteLine(Details(DevicePicked))

            Console.WriteLine(Price(DevicePicked))

            Console.WriteLine(Options(SIMPicked + 9))

            Console.WriteLine(ItemCode(SIMPicked + 9))

            Console.WriteLine(Details(SIMPicked + 9))

            Console.WriteLine(Price(SIMPicked + 9))

            Console.WriteLine(Options(CasePicked + 11))

            Console.WriteLine(ItemCode(CasePicked + 11))

            Console.WriteLine(Details(CasePicked + 11))

            Console.WriteLine(Price(CasePicked + 11))

            Select Case ChargerPicked

                Case 1

                    Console.WriteLine(Options(14))

                    Console.WriteLine(ItemCode(14))

                    Console.WriteLine(Details(14))

                    Console.WriteLine(Price(14))

                Case 2

                    Console.WriteLine(Options(15))

                    Console.WriteLine(ItemCode(15))

                    Console.WriteLine(Details(15))

                    Console.WriteLine(Price(15))

                Case 3

                    Console.WriteLine(Options(14))

                    Console.WriteLine(ItemCode(14))

                    Console.WriteLine(Details(14))

                    Console.WriteLine(Price(14))

                    Console.WriteLine(Options(15))

                    Console.WriteLine(ItemCode(15))

                    Console.WriteLine(Details(15))

                    Console.WriteLine(Price(15))

            End Select

            Console.WriteLine("Total Price Of Transaction")

            Console.WriteLine((AllBought + AllBoughtDevices))

            CompleteTotal = AllBought + AllBoughtDevices

            Console.WriteLine("Do you want another device? If no Type N")

            ExtraDevice = Console.ReadLine()

            AllBought = 0

            AllBoughtDevices = 0

            Devicenum = (Devicenum + 1)

            FinalDiscount = (FinalDiscount + Discount10)

            Discount10 = 0

        Loop Until (ExtraDevice = "N") Or (ExtraDevice = "n")

        Console.WriteLine(CompleteTotal)

        Console.WriteLine(FinalDiscount)

​

    End Sub

End Module