Imports System

Public Module Module1

    Public Sub Main()

        Dim Category'[0:15']'as string

        dim ItemCode'[0:15]'as string 

        dim Description'[0:15]'as string 

        dim Price'[0:15]'as decimal

        dim DeviceChoice as integer 

        dim DeviceOption as string

        dim SIMChoice as integer 

        dim CaseChoice as integer 

        Dim ChargerOption as string 

        dim ChargerChoice1 as integer 

        dim ChargerChoice2 as integer

        dim ChargerType as string 

        dim TotalPrice as decimal

        dim i as integer 

        Category[]={"phone","phone","phone","phone","phone","phone","tablet","tablet","tablet","tablet",

            "SIMcard","SIMcard","Case","Case","charger","charger"}

        'printing list of items 

        TotalPrice=0

        For i=0 to 15 

        Console.Writeline'('i"-"Category[i],ItemCode[i],Description[i],Price[i])

    next i 

    'choosing a certain phone or tablet

    console.writeline'('"do you want to purchase a phone or tablet as your device option) 

    DeviceOption= console.readline()

    do while DeviceOption<>"Phone" OR DeviceOption<>"Tablet"

        console.WriteLine'('"invalid entry please select either phone or tablet)

        DeviceOption=console.ReadLine()

    loop 

    if DeviceOption="Phone" then

        console.WriteLine("choose your phone type by choosing a number from 0to 5 from list")

        do

            DeviceChoice=console.readline()

        loop until DeviceChoice>=0 AND DeviceChoice<=5 

        'selecting a SIM only when deviceoption is phone 

        console.WriteLine("please select a number 10 or 11 as your SIM choice")

        SIMChoice=Console.readline()

        do while SIMChoice<>10 OR SIMChoice<>11

            console.writeline("invalid entry please enter 10 or 11 as your SIMchoice")

            SIMChoice=console.ReadLine()

        loop 

    else console.WriteLine("select a number from 0 to 6 from the list as your tablet choice")

        do 

            DeviceChoice=console.ReadLine()

        loop until DeviceChoice>=6 AND DeviceChoice<=9 

        SIMChoice=-1 

        '-1 is used to represent that no SIM was purcahsed 

    End if 

    TotalPrice= TotalPrice+ Price[DeviceChoice]+Price[SIMChoice]

    ' choosing a case from the list 

    console.WriteLine("please choose either number 12 or 13 from the list as your case choice")

    CaseChoice=console.readline()

    do while CaseChoice<>12 OR CaseChoice<>13

        console.writeline("please enter a case choice from the list")

        CaseChoice=console.readline()

    loop

    TotalPrice=Totalprice+Price[CaseChoice] 

    'choosing a certain charger 

    Console.writeline("do you want to purchase any chargers, type yes or no")

    ChargerOption=console.readline()

    do while ChargerOption<>"yes" OR ChargerOption<>"no"

        console.writeline("invalid entry please type yes or no")

        ChargerOption=Console.Readline()

    loop

    if ChargerOption="no" then 

        ChargerChoice1=-1 AND ChargerChoice2=-1

        '-1 is used to represent that no charger was purchased 

        'ChargerChoice1 is the option for the carcharger 

        'ChargerChoice2 is the option for the home charger 

    End If 

    if ChargerOption="yes"then 

        console.writeline("do you want a home charger or carcharger or both") 

        ChargerType=console.readline()

        do while ChargerType<>"homecharger"OR ChargerType<>"carcharger"OR ChargerType<>"both" 

            console.writeline("invalid entry'please select one from homecharger,carcahrger,both")

            ChargerType=console.readline() 

        loop 

        select case ChargerType 

        case "carcharger"

            ChargerChoice1=14 

            ChargerChoice2=-1

            case "homecharger"

            ChargerChoice1=-1

            ChargerChoice2=15 

        case "both" 

            ChargerChoice1=14 

            ChargerChoice2=15 

        end select 

    End If

    TotalPrice=TotalPrice+Price[ChargerChoice1]+Price[ChargerChoice2]

    'printing the total price and list of items bought 

    console.writeline("******list of items bought*****")

    console.writeline'('Category[DeviceChoice],ItemCode[DeviceChoice],Description[DeviceChoice],Price[Devicechoice])

    console.writeline("---------------------------")

    if SIMChoice<>-1 then 

        console.writeline(Category[SIMChoice],ItemCode[SIMChoice],Description[SIMChoice],Price[SIMChoice])

    End If 

        console.writeline("--------------------------")

    console.writeline(,Category[CaseChoice],ItemCode[CaseChoice],Description[CaseChoice],Price[CaseChoice])

    console.writeline("-------------------------------")

    if ChargerOption<>"no" then 

        console.writeline(Category[ChargerChoice1],ItemCode[ChergerChoice1],Description[ChargerChoice1],Price[ChargerChoice1])

        console.writeline(Category[ChargerChoice2],ItemCode[ChargerChoice2],Description[ChargerChoice2],Price[ChargerChoice2])

    End if

    console.writeline("*****end of list******")

    console.writeline("total price of all items bought=$"&TotalPrice)

    Console.readline()

    End Sub

End Module