Revised Final | C# Online Compiler

Revised Final by sttaseen

Imports System

Public Module Module1

    Private cabins() As String = {"Hetty", "Poppy", "Blue Skies", "Bay View", "Happy Days", "Summer Joy", "Walkers' Rest", "Bertie", "Green Forest Lodge", "Coppice Lodge"}
    Private capacity() As Integer = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}
    Private peak() As Integer = {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}
    Private offpeak() As Integer = {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}
    Private cabinWeeks(169) As String
    Private berror As Boolean
    Private starting As Integer
    Private nweeks As Integer
    Private errormessage As String = "Your input is invalid."
    Private housenumber As Integer
    Private sInput As String
    Private Bookingcode As String
    Private peakcounter As Integer
    Private offcounter As Integer
    Private overbookcount As Integer
    Private Price As Decimal
    Private discountedPrice As Decimal

    Sub Main()

        'Setting up array

        For i = 0 To 169
            cabinWeeks(i) = "Not Booked"
        Next

        'The loop begins

        Do
            'Displaying free weeks
            Console.WriteLine("Free Weeks:")
            Console.WriteLine("")
            For i = 0 To 9
                For j = 0 To 16
                    If cabinWeeks(j + i * 17) = "Not Booked" Then
                        Console.Write(j + 23)
                        Console.Write(" ")  'put a space between weeks
                    End If
                Next
                Console.WriteLine("{0} has a capacity of {1}. The peak and off peak prices are $ {2} and $ {3} respectively.", cabins(i), capacity(i), peak(i), offpeak(i))
            Next
            Console.WriteLine("")

            'Inputting the log cabin and setting up housenumber

            Console.WriteLine("Which cabin would you like to book? Please make sure the first letters are in CAPS as displayed above.")

            housenumber = 10
            Do
                sInput = Console.ReadLine()
                For i = 0 To 9
                    If cabins(i) = sInput Then
                        housenumber = i
                    End If
                Next
                If housenumber = 10 Then
                    Console.WriteLine(errormessage)
                End If
            Loop Until housenumber <> 10

            'Inputting the number of weeks booked

            Console.WriteLine("How many weeks would you like to book for?")
            Do
                berror = False
                Try
                    nweeks = Console.ReadLine()
                Catch e As Exception
                    berror = True
                End Try
                If nweeks > 17 Or nweeks <= 0 Or berror = True Then
                    berror = True
                    Console.WriteLine(errormessage)
                End If
            Loop Until berror = False

            'Inputting the starting week

            Console.WriteLine("When is the starting week?")
            Do
                berror = False
                Try
                    starting = Console.ReadLine()
                    'Making sure the weeks booked don't exceed the weeks for the cabin

                    If starting + nweeks > 40 Or starting < 23 Then
                        berror = True
                    End If

                    'Making sure the weeks are not already booked
                    overbookcount = 0
                    For i = starting - 23 To starting + nweeks - 24
                        If cabinWeeks(housenumber * 17 + i) <> "Not Booked" Then
                            overbookcount += 1
                        End If
                    Next

                Catch Ex As Exception
                    berror = True
                End Try

                If berror = True Or overbookcount > 0 Then
                    Console.WriteLine(errormessage)
                End If
            Loop Until berror = False And overbookcount = 0

            'Storing the booking code

            Bookingcode = "#" & housenumber & starting & nweeks
            For i = starting - 23 To starting + nweeks - 24
                cabinWeeks(housenumber * 17 + i) = Bookingcode
            Next

            'Calclating Price

            peakcounter = 0
            offcounter = 0

            For i = starting - 23 To starting + nweeks - 24
                If i > 3 And i < 13 Then
                    peakcounter += 1
                Else
                    offcounter += 1
                End If
            Next

            Price = peakcounter * peak(housenumber) + offcounter * offpeak(housenumber)

            Console.WriteLine("Your booking code is {0}.", Bookingcode)
            If nweeks >= 3 Then
                discountedPrice = Price * 0.9
                Console.WriteLine("Because you booked 3 weeks or more, your 10 percent discounted price is $ {0}. Your original price was $ {1}.", discountedPrice, Price)
            Else
                Console.WriteLine("Your booking cost is $ {0}.", Price)
            End If
            Console.WriteLine("Please press ENTER if you would like to do another booking.")
            Console.ReadLine()
        Loop

    End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Private cabins() As String = {"Hetty", "Poppy", "Blue Skies", "Bay View", "Happy Days", "Summer Joy", "Walkers' Rest", "Bertie", "Green Forest Lodge", "Coppice Lodge"}
    Private capacity() As Integer = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}
    Private peak() As Integer = {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}
    Private offpeak() As Integer = {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}
    Private cabinWeeks(169) As String
    Private berror As Boolean
    Private starting As Integer
    Private nweeks As Integer
    Private errormessage As String = "Your input is invalid."
    Private housenumber As Integer
    Private sInput As String
    Private Bookingcode As String
    Private peakcounter As Integer
    Private offcounter As Integer
    Private overbookcount As Integer
    Private Price As Decimal
    Private discountedPrice As Decimal
​
    Sub Main()
​
        'Setting up array
​
        For i = 0 To 169
            cabinWeeks(i) = "Not Booked"
        Next
​
        'The loop begins
​
        Do
            'Displaying free weeks
            Console.WriteLine("Free Weeks:")
            Console.WriteLine("")
            For i = 0 To 9
                For j = 0 To 16
                    If cabinWeeks(j + i * 17) = "Not Booked" Then
                        Console.Write(j + 23)
                        Console.Write(" ")  'put a space between weeks
                    End If
                Next
                Console.WriteLine("{0} has a capacity of {1}. The peak and off peak prices are $ {2} and $ {3} respectively.", cabins(i), capacity(i), peak(i), offpeak(i))
            Next
            Console.WriteLine("")
​
            'Inputting the log cabin and setting up housenumber
​
            Console.WriteLine("Which cabin would you like to book? Please make sure the first letters are in CAPS as displayed above.")
​
            housenumber = 10
            Do
                sInput = Console.ReadLine()
                For i = 0 To 9
                    If cabins(i) = sInput Then
                        housenumber = i
                    End If
                Next
                If housenumber = 10 Then
                    Console.WriteLine(errormessage)
                End If
            Loop Until housenumber <> 10
​
            'Inputting the number of weeks booked
​
            Console.WriteLine("How many weeks would you like to book for?")
            Do
                berror = False
                Try
                    nweeks = Console.ReadLine()
                Catch e As Exception
                    berror = True
                End Try
                If nweeks > 17 Or nweeks <= 0 Or berror = True Then
                    berror = True
                    Console.WriteLine(errormessage)
                End If
            Loop Until berror = False
​
            'Inputting the starting week
​
            Console.WriteLine("When is the starting week?")
            Do
                berror = False
                Try
                    starting = Console.ReadLine()
                    'Making sure the weeks booked don't exceed the weeks for the cabin
​
                    If starting + nweeks > 40 Or starting < 23 Then
                        berror = True
                    End If
​
                    'Making sure the weeks are not already booked
                    overbookcount = 0
                    For i = starting - 23 To starting + nweeks - 24
                        If cabinWeeks(housenumber * 17 + i) <> "Not Booked" Then
                            overbookcount += 1
                        End If
                    Next
​
                Catch Ex As Exception
                    berror = True
                End Try
​
                If berror = True Or overbookcount > 0 Then
                    Console.WriteLine(errormessage)
                End If
            Loop Until berror = False And overbookcount = 0
​
            'Storing the booking code
​
            Bookingcode = "#" & housenumber & starting & nweeks
            For i = starting - 23 To starting + nweeks - 24
                cabinWeeks(housenumber * 17 + i) = Bookingcode
            Next
​
            'Calclating Price
​
            peakcounter = 0
            offcounter = 0
​
            For i = starting - 23 To starting + nweeks - 24
                If i > 3 And i < 13 Then
                    peakcounter += 1
                Else
                    offcounter += 1
                End If
            Next
​
            Price = peakcounter * peak(housenumber) + offcounter * offpeak(housenumber)
​
            Console.WriteLine("Your booking code is {0}.", Bookingcode)
            If nweeks >= 3 Then
                discountedPrice = Price * 0.9
                Console.WriteLine("Because you booked 3 weeks or more, your 10 percent discounted price is $ {0}. Your original price was $ {1}.", discountedPrice, Price)
            Else
                Console.WriteLine("Your booking cost is $ {0}.", Price)
            End If
            Console.WriteLine("Please press ENTER if you would like to do another booking.")
            Console.ReadLine()
        Loop
​
    End Sub
End Module

Free Weeks:

23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Hetty has a capacity of 4. The peak and off peak prices are $ 400 and $ 250 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Poppy has a capacity of 4. The peak and off peak prices are $ 400 and $ 250 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Blue Skies has a capacity of 4. The peak and off peak prices are $ 500 and $ 350 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Bay View has a capacity of 6. The peak and off peak prices are $ 650 and $ 500 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Happy Days has a capacity of 6. The peak and off peak prices are $ 695 and $ 550 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Summer Joy has a capacity of 6. The peak and off peak prices are $ 800 and $ 600 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Walkers' Rest has a capacity of 8. The peak and off peak prices are $ 950 and $ 750 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Bertie has a capacity of 8. The peak and off peak prices are $ 1050 and $ 850 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Green Forest Lodge has a capacity of 10. The peak and off peak prices are $ 1200 and $ 950 respectively.
23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Coppice Lodge has a capacity of 10. The peak and off peak prices are $ 1500 and $ 1150 respectively.

Which cabin would you like to book? Please make sure the first letters are in CAPS as displayed above.

Cached Result
Last Run:	8:05:20 am
Compile:	0.161s
Execute:	0s
Memory:	56kb
CPU:	0.031s

View IL Code