Actual Pre-Release | C# Online Compiler

Actual Pre-Release by KualaKool

Imports System 
Public Module Module1
	
    'Asking for which task 
    Public Sub Main()
        Task2()
    End Sub

    'Task 1 - Work out the maximum outcome
    Public Sub Task1()

        Console.WriteLine("Input the type of plane (2 seater), (4 seater) or (historic)")
        Dim plane As String = Console.ReadLine()
        Do Until plane = "2 seater" Or plane = "4 seater" Or plane = "historic"
            Console.WriteLine("This is an invalid input, try again")
            plane = Console.ReadLine()
        Loop

        Console.WriteLine("Input the length of flight (30 minutes) or (60 minutes)")
        Dim length As Decimal = Console.ReadLine()
        Do Until length = 60 Or length = 30
            Console.WriteLine("This is an invalid input, try again")
            length = Console.ReadLine()
        Loop

        Dim MaxFt As Integer
        If length = 30 Then
            MaxFt = 10
        ElseIf length = 60 Then
            MaxFt = 7
        End If

        Dim MaxIn As Integer
        If plane = "2 seater" Then
            MaxIn = MaxFt * 100
        ElseIf plane = "4 seater" Then
            MaxIn = MaxFt * 120
        ElseIf plane = "historic" Then
            MaxIn = MaxFt * 300
        End If

        Console.WriteLine("The maximum income for a " & length & " minute " & plane & " flight is $" & MaxIn)

    End Sub

    'Task 2 - Record bookings
    Public Sub Task2()

        Console.WriteLine("Input the length of flights for the day (30 minutes) or (60 minutes)")
        Dim length As Decimal = Console.ReadLine()
        Do Until length = 60 Or length = 30
            Console.WriteLine("This is an invalid input, try again")
            length = Console.ReadLine()
        Loop

        Dim MaxFt As Integer
        If length = 30 Then
            MaxFt = 10
        ElseIf length = 60 Then
            MaxFt = 7
        End If

        Dim times(MaxFt) As String
        Dim slot2S(MaxFt) As String
        Dim slot4S(MaxFt) As String
        Dim slotH(MaxFt) As String
        Dim tempslot As String = 0
        Dim slots(MaxFt) As String
        Dim buffer As String = 0
        For i = 1 To MaxFt
            slot2S(i) = "Free"
            slot4S(i) = "Free"
            slotH(i) = "Free"
        Next


        Dim FtTimes10() = {"8:00am", "9:00am", "10:00am", "11:00am", "12:00pm", "1:00pm", "2:00pm", "3:00pm", "4:00pm", "5:00pm", "6:00pm"}
        Dim FtTimes7() = {"...", "8:00am", "9:30am", "11:00am", "12:30pm", "2:00pm", "3:30pm", "5:00pm"}

        Do Until buffer = "finish"
            Console.WriteLine("Input the type of plane you would like to to book (2 seater), (4 seater) or (historic)")
            Dim plane As String = Console.ReadLine()
            Do Until plane = "2 seater" Or plane = "4 seater" Or plane = "historic"
                Console.WriteLine("This is an invalid input, try again")
                plane = Console.ReadLine()
            Loop

same:
            For i = 1 To MaxFt
                If plane = "2 seater" Then
                    slots(i) = slot2S(i)
                ElseIf plane = "4 seater" Then
                    slots(i) = slot4S(i)
                ElseIf plane = "historic" Then
                    slots(i) = slotH(i)
                End If
            Next
            Console.WriteLine(plane & " plane:")
            For i = 1 To MaxFt
                If MaxFt = 10 Then
                    Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slots(i))
                ElseIf MaxFt = 7 Then
                    Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slots(i))
                End If
            Next
            Console.WriteLine("What time slot would you like? 1 to " & MaxFt)
            tempslot = Console.ReadLine()
            Do Until tempslot >= 1 And tempslot <= MaxFt And tempslot Mod 1 = 0
                Console.WriteLine("This is an invalid input, try again")
                tempslot = Console.ReadLine()
            Loop
            If slots(tempslot) = "Booked" Then
                Do
                    Console.WriteLine("This slot is booked, try again")
                    tempslot = Console.ReadLine()
                Loop Until slots(tempslot) = "Free"
            End If


            If plane = "2 seater" Then
                slot2S(tempslot) = "Booked"
            ElseIf plane = "4 seater" Then
                slot4S(tempslot) = "Booked"
            ElseIf plane = "historic" Then
                slotH(tempslot) = "Booked"
            End If

            Console.WriteLine("Would you like to (continue), (change) plane or (finish) booking?")
            buffer = Console.ReadLine()
            Do Until buffer = "continue" Or buffer = "change" Or buffer = "finish"
                Console.WriteLine("This is an invalid input, try again")
                buffer = Console.ReadLine()
            Loop
            If buffer = "continue" Then
                GoTo same
            End If
        Loop
        Dim count2 As Integer = 0
        Dim count4 As Integer = 0
        Dim countH As Integer = 0
        For i = 1 To MaxFt
            If slot2S(i) = "Booked" Then
                count2 = count2 + 1
            ElseIf slot4S(i) = "Booked" Then
                count4 = count4 + 1
            ElseIf slotH(i) = "Booked" Then
                countH = countH + 1
            End If
        Next
        Console.WriteLine("Number of 2 seater plane flights: " & count2)
        Console.WriteLine("Number of 4 seater plane flights: " & count4)
        Console.WriteLine("Number of historic plane flights: " & countH)

        If MaxFt = 10 Then
            Console.WriteLine("2 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slot2S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("4 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slot4S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("historic plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slotH(i))
            Next
            Console.WriteLine("")
        ElseIf MaxFt = 7 Then
            Console.WriteLine("2 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slot2S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("4 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slot4S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("historic plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slotH(i))
            Next
            Console.WriteLine("")
        End If

        If MaxFt = 10 Then
            count2 = count2 * 100
            count4 = count4 * 120
            countH = countH * 300
        ElseIf MaxFt = 7 Then
            count2 = count2 * 150
            count4 = count4 * 200
            countH = countH * 500
        End If

        Dim total As Integer = 0
        total = count2 + count4 + countH

        Console.WriteLine("Amount earnt by 2 seater plane is $" & count2)
        Console.WriteLine("Amount earnt by 4 seater plane is $" & count4)
        Console.WriteLine("Amount earnt by historic plane is $" & countH)
        Console.WriteLine("Total amount earnt is $ " & total)

        Console.ReadLine()
    End Sub
End Module

​x
 
Imports System 
Public Module Module1
    
    'Asking for which task 
    Public Sub Main()
        Task2()
    End Sub
​
    'Task 1 - Work out the maximum outcome
    Public Sub Task1()
​
        Console.WriteLine("Input the type of plane (2 seater), (4 seater) or (historic)")
        Dim plane As String = Console.ReadLine()
        Do Until plane = "2 seater" Or plane = "4 seater" Or plane = "historic"
            Console.WriteLine("This is an invalid input, try again")
            plane = Console.ReadLine()
        Loop
​
        Console.WriteLine("Input the length of flight (30 minutes) or (60 minutes)")
        Dim length As Decimal = Console.ReadLine()
        Do Until length = 60 Or length = 30
            Console.WriteLine("This is an invalid input, try again")
            length = Console.ReadLine()
        Loop
​
        Dim MaxFt As Integer
        If length = 30 Then
            MaxFt = 10
        ElseIf length = 60 Then
            MaxFt = 7
        End If
​
        Dim MaxIn As Integer
        If plane = "2 seater" Then
            MaxIn = MaxFt * 100
        ElseIf plane = "4 seater" Then
            MaxIn = MaxFt * 120
        ElseIf plane = "historic" Then
            MaxIn = MaxFt * 300
        End If
​
        Console.WriteLine("The maximum income for a " & length & " minute " & plane & " flight is $" & MaxIn)
​
    End Sub
​
    'Task 2 - Record bookings
    Public Sub Task2()
​
        Console.WriteLine("Input the length of flights for the day (30 minutes) or (60 minutes)")
        Dim length As Decimal = Console.ReadLine()
        Do Until length = 60 Or length = 30
            Console.WriteLine("This is an invalid input, try again")
            length = Console.ReadLine()
        Loop
​
        Dim MaxFt As Integer
        If length = 30 Then
            MaxFt = 10
        ElseIf length = 60 Then
            MaxFt = 7
        End If
​
        Dim times(MaxFt) As String
        Dim slot2S(MaxFt) As String
        Dim slot4S(MaxFt) As String
        Dim slotH(MaxFt) As String
        Dim tempslot As String = 0
        Dim slots(MaxFt) As String
        Dim buffer As String = 0
        For i = 1 To MaxFt
            slot2S(i) = "Free"
            slot4S(i) = "Free"
            slotH(i) = "Free"
        Next
​
​
        Dim FtTimes10() = {"8:00am", "9:00am", "10:00am", "11:00am", "12:00pm", "1:00pm", "2:00pm", "3:00pm", "4:00pm", "5:00pm", "6:00pm"}
        Dim FtTimes7() = {"...", "8:00am", "9:30am", "11:00am", "12:30pm", "2:00pm", "3:30pm", "5:00pm"}
​
        Do Until buffer = "finish"
            Console.WriteLine("Input the type of plane you would like to to book (2 seater), (4 seater) or (historic)")
            Dim plane As String = Console.ReadLine()
            Do Until plane = "2 seater" Or plane = "4 seater" Or plane = "historic"
                Console.WriteLine("This is an invalid input, try again")
                plane = Console.ReadLine()
            Loop
​
same:
            For i = 1 To MaxFt
                If plane = "2 seater" Then
                    slots(i) = slot2S(i)
                ElseIf plane = "4 seater" Then
                    slots(i) = slot4S(i)
                ElseIf plane = "historic" Then
                    slots(i) = slotH(i)
                End If
            Next
            Console.WriteLine(plane & " plane:")
            For i = 1 To MaxFt
                If MaxFt = 10 Then
                    Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slots(i))
                ElseIf MaxFt = 7 Then
                    Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slots(i))
                End If
            Next
            Console.WriteLine("What time slot would you like? 1 to " & MaxFt)
            tempslot = Console.ReadLine()
            Do Until tempslot >= 1 And tempslot <= MaxFt And tempslot Mod 1 = 0
                Console.WriteLine("This is an invalid input, try again")
                tempslot = Console.ReadLine()
            Loop
            If slots(tempslot) = "Booked" Then
                Do
                    Console.WriteLine("This slot is booked, try again")
                    tempslot = Console.ReadLine()
                Loop Until slots(tempslot) = "Free"
            End If
​
​
            If plane = "2 seater" Then
                slot2S(tempslot) = "Booked"
            ElseIf plane = "4 seater" Then
                slot4S(tempslot) = "Booked"
            ElseIf plane = "historic" Then
                slotH(tempslot) = "Booked"
            End If
​
            Console.WriteLine("Would you like to (continue), (change) plane or (finish) booking?")
            buffer = Console.ReadLine()
            Do Until buffer = "continue" Or buffer = "change" Or buffer = "finish"
                Console.WriteLine("This is an invalid input, try again")
                buffer = Console.ReadLine()
            Loop
            If buffer = "continue" Then
                GoTo same
            End If
        Loop
        Dim count2 As Integer = 0
        Dim count4 As Integer = 0
        Dim countH As Integer = 0
        For i = 1 To MaxFt
            If slot2S(i) = "Booked" Then
                count2 = count2 + 1
            ElseIf slot4S(i) = "Booked" Then
                count4 = count4 + 1
            ElseIf slotH(i) = "Booked" Then
                countH = countH + 1
            End If
        Next
        Console.WriteLine("Number of 2 seater plane flights: " & count2)
        Console.WriteLine("Number of 4 seater plane flights: " & count4)
        Console.WriteLine("Number of historic plane flights: " & countH)
​
        If MaxFt = 10 Then
            Console.WriteLine("2 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slot2S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("4 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slot4S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("historic plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes10(i) & ": " & slotH(i))
            Next
            Console.WriteLine("")
        ElseIf MaxFt = 7 Then
            Console.WriteLine("2 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slot2S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("4 seater plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slot4S(i))
            Next
            Console.WriteLine("")
            Console.WriteLine("historic plane:")
            For i = 1 To MaxFt
                Console.WriteLine("Time slot " & i & "- " & FtTimes7(i) & ": " & slotH(i))
            Next
            Console.WriteLine("")
        End If
​
        If MaxFt = 10 Then
            count2 = count2 * 100
            count4 = count4 * 120
            countH = countH * 300
        ElseIf MaxFt = 7 Then
            count2 = count2 * 150
            count4 = count4 * 200
            countH = countH * 500
        End If
​
        Dim total As Integer = 0
        total = count2 + count4 + countH
​
        Console.WriteLine("Amount earnt by 2 seater plane is $" & count2)
        Console.WriteLine("Amount earnt by 4 seater plane is $" & count4)
        Console.WriteLine("Amount earnt by historic plane is $" & countH)
        Console.WriteLine("Total amount earnt is $ " & total)
​
        Console.ReadLine()
    End Sub
End Module
​
​

View IL Code