Imports System

Public Module Module1

    'Declare Global variables here, these apply to ALL subroutines.

    Dim Userchoice as Integer

    Dim EstimateNumber as Integer = 0

    Dim LastEstimateNumber as Integer = 0

    Dim TotalSales as Integer = 0

    Dim ProcessorsAvailable() As String = {"", "p3", "p5", "p7"}

    Dim ProcessorChosen As Integer

    Dim ProcessorPrice() as Integer = {-1, 100, 120, 200}

    Dim ProcessorStocks() as Integer = {-1, 1, 10, 8}

    Dim ProcessorInStock as Boolean = False 

    Dim TotalProcessorSales as Integer = 0

    Dim ProcessorSales() as Integer = {-1, 0, 0, 0}

    Dim RAMsAvailable() As String = {"", "16GB", "32GB"}

    Dim RAMChosen As Integer

    Dim RAMPrice() as Integer = {-1, 75, 150}

    Dim RAMStocks() as Integer = {-1, 12, 10}

    Dim RAMInStock as Boolean = False

    Dim TotalRAMSales as Integer = 0

    Dim RAMSales() as Integer = {-1, 0, 0}

    Dim StoragesAvailable() As String = {"", "1TB", "2TB"}

    Dim StorageChosen As Integer

    Dim StoragePrice() as Integer = {-1, 50, 100}

    Dim StorageStocks() as Integer = {-1, 12, 10}

    Dim StorageInStock as Boolean = False

    Dim TotalStorageSales as Integer = 0

    Dim StorageSales() as Integer = {-1, 0, 0}

    Dim ScreensAvailable() As String = {"", "19""", "23"""}

    Dim ScreenChosen As Integer

    Dim ScreenPrice() as Integer = {-1, 65, 120}

    Dim ScreenStocks() as Integer = {-1, 12, 10}

    Dim ScreenInStock as Boolean = False

    '--

    Dim TotalScreenSales as Integer = 0

    Dim ScreenSales() as Integer = {-1, 0, 0}

    Dim CasesAvailable() As String = {"", "Mini", "Midi"}

    Dim CaseChosen As Integer

    Dim CasePrice() as Integer  = {-1, 40, 70}

    Dim CaseStocks() as Integer = {-1, 12, 10}

    Dim CaseInStock as Boolean = False

    Dim TotalCaseSales as Integer = 0

    Dim CaseSales() as Integer = {-1, 0, 0}

    Dim USBPortsAvailable() As String = {"", "2", "4"}

    Dim USBPortChosen As Integer

    Dim USBPortPrice() as Integer  = {-1, 10, 20}

    Dim USBPortStocks() as Integer = {-1, 12, 10}

    Dim USBPortInStock as Boolean = False

    Dim TotalUSBPortSales as Integer = 0

    Dim USBPortSales() as Integer = {-1, 0, 0}

    Dim TotalCost As Integer = 0

    Dim OrderIndex as Integer = 1

    Dim LastOrderIndex as Integer = 0

    Dim CreateOrder As String

    Dim AllInStock As Boolean = True

​

    Dim FirstName as String

    Dim LastName as String

    Dim PhoneNumber as String

    Dim Adress1 as string

    Dim Adress2 as string

    Dim Adress3 as String

​

    Dim CurrentDate as string = string.Format("{0:dd/MM/yyyy}",DateTime.Now)

    Public Sub Main()

        'Any variables declared here will be local to this subroutine only.

        Do

            Console.WriteLine("MENU OF CHOICES")

            Console.WriteLine("Task 1 : Produce an Estimate")

            Console.WriteLine("Task 2 : Place an Order")

            Console.WriteLine("Task 3 : Stock and Sale Summary")

            Console.WriteLine("Enter Number 1-3")

            Userchoice = Console.ReadLine()

        Loop Until Userchoice >= 1 AND Userchoice <= 3 'Or UserChoice = 0

        Select Case Userchoice

            Case is = 1

                Call Task1

            Case is = 2

                Call Task2

            Case is = 3

                Call Task3

        End Select

    End Sub

    Public Sub Task1()

        'Any variables declared here will be local to this subroutine only.

        Console.writeline("Task 1")

        'Processor

        Console.WriteLine("PROCESSOR CHOICES")

        For i = 1 to 3

            Console.writeline(i & ". " & ProcessorsAvailable(i) & " $" & ProcessorPrice(i))

        Next

        Do

            Console.WriteLine("Enter your Choice (1 - 3)")

            ProcessorChosen = Console.ReadLine()

        Loop Until ProcessorChosen >0 AND ProcessorChosen <4

        Console.WriteLine("You have chosen " & ProcessorsAvailable(ProcessorChosen))

        TotalCost = TotalCost + ProcessorPrice(ProcessorChosen)

        'RAM

        console.WriteLine("RAM CHOICES")

        For i = 1 to 2

            console.writeline(i & ". " & RAMsAvailable(i) & " $" & RAMPrice(i))

        Next

        Do

            Console.WriteLine("Enter your Choice (1 or 2)")

            RAMChosen = Console.ReadLine()

        Loop Until RAMChosen >0 AND RAMChosen <3

        Console.WriteLine("You have chosen " & RAMsAvailable(RAMChosen))

        TotalCost = TotalCost + RAMPrice(RAMChosen)

​

        'Storage

        console.WriteLine("STORAGE CHOICES")

        For i = 1 to 2

        console.writeline(i & ". " & StoragesAvailable(i) & " $" & StoragePrice(i))

        Next

        Do

            Console.WriteLine("Enter your Choice (1 or 2)")

            StorageChosen = Console.ReadLine()

        Loop Until StorageChosen >0 AND StorageChosen <3

        Console.WriteLine("You have chosen " & StoragesAvailable(StorageChosen))        

        TotalCost = TotalCost + StoragePrice(StorageChosen)

        'Screens

        console.WriteLine("SCREEN CHOICES")

        For i = 1 to 2

        console.writeline(i & ". " & ScreensAvailable(i) & " $" & ScreenPrice(i))

        Next

        Do

            Console.WriteLine("Enter your Choice (1 - 3)")

            ScreenChosen = Console.ReadLine()

        Loop Until ScreenChosen >0 AND ScreenChosen <3

        Console.WriteLine("You have chosen " & ScreensAvailable(ScreenChosen))

        TotalCost = TotalCost + ScreenPrice(ScreenChosen)

​

        'Cases

        console.WriteLine("CASE CHOICES")

        For i = 1 to 2

        console.writeline(i & ". " & CasesAvailable(i) & " $" & CasePrice(i))

        Next

        Do

            Console.WriteLine("Enter your Choice (1 - 3)")

            CaseChosen = Console.ReadLine()

        Loop Until CaseChosen >0 AND CaseChosen <3

        Console.WriteLine("You have chosen " & CasesAvailable(CaseChosen))

        TotalCost = TotalCost + CasePrice(CaseChosen)

​

        'USB Ports

        console.WriteLine("USB PORT CHOICES")

        For i = 1 to 2

        console.writeline(i & ". " & USBPortsAvailable(i) & " $" & USBPortPrice(i))

        Next

        Do

            Console.WriteLine("Enter your Choice (1 - 3)")

            USBPortChosen = Console.ReadLine()

        Loop Until USBPortChosen >0 AND USBPortChosen <3

        TotalCost = TotalCost + USBPortPrice(USBPortChosen)

​

        TotalCost = TotalCost * 1.2

​

        Console.WriteLine("You have chosen " & USBPortsAvailable(USBPortChosen))

        Console.WriteLine("")

​

        EstimateNumber =LastEstimateNumber + 1

        LastEstimateNumber = EstimateNumber

​

        Console.WriteLine("Estimate number " & EstimateNumber)

        Console.WriteLine("")

        Console.WriteLine("Totals")

​

        Console.WriteLine("")

​

        Console.WriteLine("You have chosen a " & ProcessorsAvailable(ProcessorChosen) & " Processor at a cost of $" & ProcessorPrice(ProcessorChosen))

        Console.WriteLine("You have chosen " & RAMsAvailable(RAMChosen) & " of RAM at a cost of $" & RAMPrice(RAMChosen))

        Console.WriteLine("You have chosen " & StoragesAvailable(StorageChosen)& " of storage at a cost of $" & StoragePrice(StorageChosen))

        Console.WriteLine("You have chosen a " & ScreensAvailable(ScreenChosen) & " Screen at a cost of $" & ScreenPrice(ScreenChosen))

        Console.WriteLine("You have chosen a " & CasesAvailable(CaseChosen) & " Tower at a cost of $" & CasePrice(CaseChosen))

        Console.WriteLine("You have chosen " & USBPortsAvailable(USBPortChosen) & " USB Ports at a cost of $" & USBPortPrice(USBPortChosen))

​

        Console.WriteLine("")

​

        Console.WriteLine("Total Price = $" & TotalCost)

​

        Console.WriteLine("")

        TotalCost = 0

​

        Call Main

    End Sub

    Public Sub Task2()

        'Any variables declared here will be local to this subroutine only.

​

        Console.writeline("Task 2")

        Console.Writeline("Create an order from Estimate " & EstimateNumber & " Y/N ")

        CreateOrder = Console.ReadLine()

        If CreateOrder <> "Y" and CreateOrder <> "y" Then

            Call Main

        End if

        'Check Stocks'

        If ProcessorStocks(ProcessorChosen) > 0 then

            ProcessorInStock = True

        Else 

            ProcessorInStock = False

            AllInStock = False

        End If

        If RAMStocks(RAMChosen) > 0 then

            RAMInStock = True

        Else 

            RAMInStock = False

            AllInStock = False

        End If

        If StorageStocks(StorageChosen) > 0 then

            StorageInStock = True

        Else 

            StorageInStock = False

            AllInStock = False

        End If

        If ScreenStocks(ScreenChosen) > 0 then

            ScreenInStock = True

        Else 

            ScreenInStock = False

            AllInStock = False

        End If

        If CaseStocks(CaseChosen) > 0 then

            CaseInStock = True

        Else 

            CaseInStock = False

            AllInStock = False

        End If

        If USBPortStocks(USBPortChosen) > 0 then

            USBPortInStock = True

        Else 

            USBPortInStock = False

            AllInStock = False

        End If

        'Total Flag'

        'If ProcessorInStock = True and RAMInStock = True and StorageInStock = True and ScreenInStock = True and CaseInStock = True and USBPortInStock = True then

            'AllInStock = True

        'Else

            'AllInStock = False

        'End if

        If AllInStock = False Then

            If ProcessorInStock = False then

                Console.WriteLine("Processor chosen not in stock")

            End If

            If RAMInStock = False then

                Console.WriteLine("RAM chosen not in stock")

            End If

            If StorageInStock = False then

                Console.WriteLine("Storage chosen not in stock")

            End If

            If ScreenInStock = False then

                Console.WriteLine("Screen chosen not in stock")

            End If

            If CaseInStock = False then

                Console.WriteLine("Case chosen not in stock")

            End If

            If USBPortInStock = False then

                Console.WriteLine("USB Ports chosen not in stock")

            End If

            Console.Writeline("")

            Console.Writeline("Cannot perform order.")

            Call Main

        End If

​

        ProcessorStocks(ProcessorChosen) = ProcessorStocks(ProcessorChosen)-1

        RAMStocks(RAMChosen)             = RAMStocks(RAMChosen)-1

        StorageStocks(StorageChosen)     = StorageStocks(StorageChosen)-1

        ScreenStocks(ScreenChosen)       = ScreenStocks(ScreenChosen)-1

        CaseStocks(CaseChosen)           = CaseStocks(CaseChosen)-1

        USBPortStocks(USBPortChosen)     = USBPortStocks(USBPortChosen)-1

        ProcessorSales(ProcessorChosen)  = ProcessorSales(ProcessorChosen) + 1

        RAMSales(RAMChosen)              = RAMSales(RAMChosen) + 1

        StorageSales(StorageChosen)      = StorageSales(StorageChosen) + 1

        ScreenSales(ScreenChosen)        = ScreenSales(ScreenChosen) + 1

        CaseSales(CaseChosen)            = CaseSales(CaseChosen) + 1

        USBPortSales(USBPortChosen)      = USBPortSales(USBPortChosen) + 1

​

        TotalSales = TotalSales + 6

        TotalProcessorSales = TotalProcessorSales + 1

        TotalRAMSales = TotalRAMSales + 1

        TotalStorageSales = TotalStorageSales + 1

        TotalScreenSales = TotalScreenSales + 1

        TotalCaseSales = TotalCaseSales + 1

        TotalUSBPortSales = TotalUSBPortSales + 1

​

        Console.Writeline("Enter first name")

        FirstName = Console.ReadLine()

        Console.Writeline("Enter last name")

        LastName = Console.ReadLine()

        Console.Writeline("Enter phone number")

        PhoneNumber = console.ReadLine()

        Console.Writeline("Enter Adress line 1")

        Adress1 = console.ReadLine()

        Console.Writeline("Enter Adress line 2")

        Adress2 = console.ReadLine()

        Console.Writeline("Enter Adress line 3")

        Adress3 = console.ReadLine()

​

        OrderIndex = LastOrderIndex + 1

        LastOrderIndex = OrderIndex

        OrderIndex = EstimateNumber

        For i = 1 to 2

            If i = 1 then

                Console.writeline("Shop Copy")

            Else

                Console.writeline("Customer Copy")

            End if

            Console.Writeline("Order " & OrderIndex)

            Console.WriteLine("")

            Console.WriteLine("First Name   = " & FirstName)

            Console.WriteLine("Last Name    = " & LastName)

            Console.WriteLine("Phone Number = " & PhoneNumber)

            Console.WriteLine("")

            Console.WriteLine("Date of Sale = " & CurrentDate)

            Console.WriteLine("")

            Console.WriteLine("Bought")

            Console.WriteLine(ProcessorsAvailable(ProcessorChosen) & " Processor")

            Console.WriteLine(RAMsAvailable(RAMChosen) & " of RAM")

            Console.WriteLine(StoragesAvailable(StorageChosen) & " of Storage")

            Console.WriteLine(ScreensAvailable(ScreenChosen) & " Screen")

            Console.WriteLine(CasesAvailable(CaseChosen) & " Tower Case")

            Console.WriteLine(USBPortsAvailable(USBPortChosen) & " USB Ports")

            Console.WriteLine("")

            Console.WriteLine(Adress1)

            Console.WriteLine(Adress2)

            Console.WriteLine(Adress3)

            Console.WriteLine("")

            Console.WriteLine("")

        Next

​

​

​

        Call Main

    End Sub

    Public Sub Task3()

        'Any variables declared here will be local to this subroutine only.

        Dim SeeSummary as String = "H"

​

        Console.writeline("Task 3")

        'Insert Code for task 3.

        Console.Writeline("See Stock Summary? Y/N")

        SeeSummary = Console.Readline()

        If SeeSummary <> "Y" and SeeSummary <> "y" Then

            Call Main

        End if

​

        Console.Writeline("Sales")

        Console.Writeline("")

​

        Console.WriteLine("Processors : " & TotalProcessorSales)

        Console.WriteLine("   P3 : " & ProcessorSales(1))

        Console.WriteLine("   P5 : " & ProcessorSales(2))

        Console.WriteLine("   P7 : " & ProcessorSales(3))

        Console.Writeline("")

​

        Console.WriteLine("RAM : " & TotalRAMSales)

        Console.WriteLine("   16GB : " & RAMSales(1))

        Console.WriteLine("   32GB : " & RAMSales(2))

​

        Console.Writeline("")

​

        Console.WriteLine("Storages : " & TotalStorageSales)

        Console.WriteLine("   1TB : " & StorageSales(1))

        Console.WriteLine("   2TB : " & StorageSales(2))

​

        Console.Writeline("")

​

        Console.WriteLine("Screens : " & TotalScreenSales)

        Console.WriteLine("   19 Inches : " & ScreenSales(1))

        Console.WriteLine("   21 Inches : " & ScreenSales(2))

​

        Console.Writeline("")

​

        Console.WriteLine("Cases : " & TotalCaseSales)

        Console.WriteLine("   Mini : " & CaseSales(1))

        Console.WriteLine("   Midi : " & CaseSales(2))

​

        Console.Writeline("")

​

        Console.WriteLine("USB Ports : " & TotalUSBPortSales)

        Console.WriteLine("   2 Ports : " & USBPortSales(1))

        Console.WriteLine("   4 Ports : " & USBPortSales(2))

​

        Console.Writeline("")

​

        Console.Writeline("Total Sales = " &TotalSales)

        Console.Writeline("")

        Console.Writeline("")

        Console.Writeline("Stocks")

        Console.Writeline("")

        Console.WriteLine("Processors : ")

        Console.WriteLine("   P3 : " & ProcessorStocks(1))

        Console.WriteLine("   P5 : " & ProcessorStocks(2))

        Console.WriteLine("   P7 : " & ProcessorStocks(3))

        Console.Writeline("")

​

        Console.WriteLine("RAM : ")

        Console.WriteLine("   16GB : " & RAMStocks(1))

        Console.WriteLine("   32GB : " & RAMStocks(2))

​

        Console.Writeline("")

​

        Console.WriteLine("Storages : ")

        Console.WriteLine("   1TB : " & StorageStocks(1))

        Console.WriteLine("   2TB : " & StorageStocks(2))

​

        Console.Writeline("")

​

        Console.WriteLine("Screens : ")

        Console.WriteLine("   19 Inches : " & ScreenStocks(1))

        Console.WriteLine("   21 Inches : " & ScreenStocks(2))

​

        Console.Writeline("")

​

        Console.WriteLine("Cases : ")

        Console.WriteLine("   Mini : " & CaseStocks(1))

        Console.WriteLine("   Midi : " & CaseStocks(2))

​

        Console.Writeline("")

​

        Console.WriteLine("USB Ports : ")

        Console.WriteLine("   2 Ports : " & USBPortStocks(1))

        Console.WriteLine("   4 Ports : " & USBPortStocks(2))

​

        Console.Writeline("")

        Console.Writeline("")

​

        Call Main

    End Sub

​

End Module