Dim DevicePicked 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 ExtraDevice As String
Dim AllBoughtDevices As Decimal
Dim FinalDiscount As Decimal
Dim Discount10 As Decimal
Dim CompleteTotal As Decimal
Console.WriteLine(i & " " & Options(i) & " " & ItemCode(i) & " " & Details(i) & " " & Price(i))
Console.WriteLine("Please pick from availabe devices(0-9)")
DevicePicked = Console.ReadLine()
Loop Until DevicePicked >= 0 And DevicePicked <= 9
Discount10 = Price(DevicePicked) * 0.1
AllBoughtDevices = Price(DevicePicked)
Devicenum = (Devicenum + 1)
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
AllBought = (AllBought + Price(SIMPicked + 9))
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
AllBought = (AllBought + Price(CasePicked + 11))
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
AllBought = (AllBought + Price(14))
AllBought = (AllBought + Price(15))
AllBought = (AllBought + Price(14) + Price(15))
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
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))
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))
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()
Devicenum = (Devicenum + 1)
FinalDiscount = (FinalDiscount + Discount10)
Loop Until (ExtraDevice = "N") Or (ExtraDevice = "n")
Console.WriteLine(CompleteTotal)
Console.WriteLine(FinalDiscount)