Imports System

Public Module Module1

    Public Sub Main()

        Dim carpark(6) as string

        Dim available(6), selection, cost(5), hours as integer

        Dim Enter as char

        carpark(1)= "Abbey Foregate"

        carpark(2)= "Bridgestreet"

        carpark(3)= "Frankwell"

        carpark(4)= "Raven Meadows"

        carpark(5)= "St Julian Friars"

        carpark(6)= "Wyle Cop"

        available(1)= 12

        available(2)= 1

        available(3)= 0

        available(4)= 5

        available(5)= 17

        available(6)= 8

        cost(1)= 1

        cost(2)= 2

        cost(3)= 3

        cost(4)= 4

        cost(5)= 10

        Console.WriteLine( "Parking spaces available in ")

        For i=1 to 6

        Console.WriteLine( i & "-  " & carpark(i) & ":   " & available(i))

    Next

    Console.WriteLine("Press Enter to continue")

    Enter= Console.ReadLine()

Do

Console.WriteLine("Select a car park (1-6):")

Selection= Console.ReadLine()

Loop Until Selection>=1 and Selection<=6

​

If available(selection)>= 1 then

    available(selection)= available(selection) - 1

    Console.WriteLine(" You may proceed to " & carpark(selection) )

        Console.WriteLine(" Updated number of spaces: ")

        For i=1 to 6

        Console.WriteLine( i & "-  " & carpark(i) & ":   " & available(i))

    Next

​

​

Elseif available(selection)<= 0 then

    Do 

    Console.WriteLine(" No spaces available, please select another carpark: ")

        Do

        Console.WriteLine("Select a car park:")

        Selection= Console.ReadLine()

        Loop Until Selection>=1 and Selection<=6

    available(selection)= available(selection) - 1

    Console.WriteLine(" You may proceed to " & carpark(selection) )

        Console.WriteLine(" Updated number of spaces: ")

    For i=1 to 6

        Console.WriteLine( i & "-  " & carpark(i) & ":   " & available(i))

    Next

    Loop Until available(selection)>=1

​

End if

Console.WriteLine("Press Enter for your receipt")

Enter= Console.ReadLine()

​

Console.WriteLine(" Charges for your length of stay: ")

For i=1 to 4

Console.WriteLine( i & "- up to " & i & " hours: £" & cost(i) )

Next

Console.WriteLine("5- over 4 hours: £" & cost(5) )

​

​

​

Do

Console.WriteLine(" For how long will you be staying? (Select 1-5)")

hours= Console.ReadLine()

Loop Until hours>=1 and hours<=5

​

Console.WriteLine("Amount due:")

Console.WriteLine( "£" & Cost(hours))

​

    End Sub

End Module