EOY Task 1 | C# Online Compiler

EOY Task 1 by loganmartlew

Imports System
				
Public Module Module1
	Public Sub Main()
		
		Dim count as integer = 600
		Dim fcount as integer = 0
		Dim flength as integer = 0
		Dim income as integer = 0
		Dim ptype as string = "null"
		
			Console.WriteLine("Input daily flight length:")
flengthin:  flength = Console.ReadLine()
		Select Case flength
			Case Is = 30
				Do
					count -= 60
					fcount += 1
				Loop Until count <= 0
			Console.WriteLine("Input plane type (2s for 2 seater, 4s for 4 seater, hs for historical):")
ptypein1:		ptype = Console.ReadLine()
				SELECT CASE ptype
					CASE IS = "2s"
						income = fcount * 150
					CASE IS = "4s"
						income = fcount * 200
					CASE IS = "Hs"
						income = fcount * 500
					CASE ELSE
						Console.WriteLine("Error")
						GoTo ptypein1
				END SELECT
			Case Is = 60
				Do 
					count -= 90
					fcount += 1
			Loop Until count <= 0
				Console.WriteLine("Input plane type:")
ptypein2:		ptype = Console.ReadLine()
				SELECT CASE ptype
					CASE IS = "2s"
						income = fcount * 100
					CASE IS = "4s"
						income = fcount * 120
					CASE IS = "Hs"
						income = fcount * 300
					CASE ELSE
						Console.WriteLine("Error")
						GoTo ptypein2
				END SELECT
			Case Else
				Console.WriteLine("Error")
				GoTo flengthin
		End Select
		Console.WriteLine("Possible flights per day = {0}", fcount)
		Console.WriteLine("Max income per day = ${0}", income)
		Console.writeline(count)

	End Sub
End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
        
        Dim count as integer = 600
        Dim fcount as integer = 0
        Dim flength as integer = 0
        Dim income as integer = 0
        Dim ptype as string = "null"
        
            Console.WriteLine("Input daily flight length:")
flengthin:  flength = Console.ReadLine()
        Select Case flength
            Case Is = 30
                Do
                    count -= 60
                    fcount += 1
                Loop Until count <= 0
            Console.WriteLine("Input plane type (2s for 2 seater, 4s for 4 seater, hs for historical):")
ptypein1:       ptype = Console.ReadLine()
                SELECT CASE ptype
                    CASE IS = "2s"
                        income = fcount * 150
                    CASE IS = "4s"
                        income = fcount * 200
                    CASE IS = "Hs"
                        income = fcount * 500
                    CASE ELSE
                        Console.WriteLine("Error")
                        GoTo ptypein1
                END SELECT
            Case Is = 60
                Do 
                    count -= 90
                    fcount += 1
            Loop Until count <= 0
                Console.WriteLine("Input plane type:")
ptypein2:       ptype = Console.ReadLine()
                SELECT CASE ptype
                    CASE IS = "2s"
                        income = fcount * 100
                    CASE IS = "4s"
                        income = fcount * 120
                    CASE IS = "Hs"
                        income = fcount * 300
                    CASE ELSE
                        Console.WriteLine("Error")
                        GoTo ptypein2
                END SELECT
            Case Else
                Console.WriteLine("Error")
                GoTo flengthin
        End Select
        Console.WriteLine("Possible flights per day = {0}", fcount)
        Console.WriteLine("Max income per day = ${0}", income)
        Console.writeline(count)
​
    End Sub
End Module

Unhandled exception. System.FormatException: String '' was not recognized as a valid DateTime.
at System.DateTime.ParseExact(String s, String format, IFormatProvider provider)
at Program.Main()
Command terminated by signal 6

Last Run:	12:52:23 pm
Compile:	0.005s
Execute:	0.17s
Memory:	5.84Mb
CPU:	0.175s

View IL Code