Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Week_day as Integer

        Dim Arrival_time as integer

        Dim Price as decimal

        Dim Frequent_parking_no as integer

        Dim Hours_stay as integer

        Dim Rate as decimal

        Dim Max_stay as Integer

        Dim Price_per_hour as Integer

        console.WriteLine("Please input Arrival time in only hours. Eg: if arrival is at 15:45 then input 15")

        Do

            Arrival_time = console.ReadLine()

            If Arrival_time < 8 or Arrival_time > 24 Then

                console.WriteLine("This entry is invalid as parking is not available. Please enter a correct value")

            Elseif Arrival_time > 15 Then

                Do

                console.WriteLine("Please input the day of the week as an integer. Eg: 1 = sunday , 2 = monday ,etc.")

                Week_day = console.ReadLine()

                If Week_day = 1 Then

                    Price_per_hour = 2

                    Max_stay = 8

                Elseif Week_day = 7 Then

                    Price_per_hour = 3

                    Max_stay = 4

                Elseif Week_day > 1 and Week_day < 7 Then

                    Price_per_hour = 10

                    Max_stay = 2

                Else

                    console.WriteLine("Entry is Invalid. The number must be between 1 and 7")

                    End if

                    Loop until Week_day > 0 and Week_day <8

            Elseif Arrival_time < 16 Then

                console.WriteLine("Please input the day of the week as an integer. Eg: 1 = sunday , 2 = monday ,etc.")

                Week_day = console.ReadLine()

                Do

                If Week_day > 0 and Week_day < 8 Then

                    Price_per_hour = 2

                    Max_stay = Arrival_time - 24

                Else

                    console.WriteLine("Entry is Invalid. The number must be between 1 and 7")

                End if

                Loop until Week_day > 1 and Week_day < 8

            Else

                console.WriteLine("Please enter a valid arrival time. Please input Arrival time in only hours. Eg: if arrival is at 15:45 then input 15")

            End if

        loop until Arrival_time > 7 and Arrival_time < 25

    End Sub

End Module

​