Assignment1 (Question3) | C# Online Compiler

Assignment1 (Question3) by Lara Holbert

Module Module1

    Sub Main()

        ' Declaring the variables of the program and user enters speed limit, driver's speed and class of vehicle type.
        Dim a As Double
        Console.WriteLine("Enter Speed Limit in km/hr:")
        a = Console.ReadLine

        Dim b As Double
        Console.WriteLine("Enter Driver's Speed in km/hr:")
        b = Console.ReadLine()

        Dim c As Char
        Console.WriteLine("Enter Class of Vehicle Type(A-C):")
        c = Console.ReadLine()

        ' Determine which class of vehicle type the driver is driving
        Select Case c
            Case "A"
                Console.WriteLine("Class A")

                ' Determine if the driver was speeding, by how much they exceeded the limit, the fines they will receive and the demerit points they will lose.
                If b <= a Then
                    Console.WriteLine("The Driver is not speeding")
                ElseIf b - a <= 10 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $119 and lose 4 demerit points")
                ElseIf b - a <= 20 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $275 and lose 4 demerit points")
                ElseIf b - a <= 30 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $472 and lose 4 demerit points")
                ElseIf b - a <= 45 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $903 and lose 5 demerit points")
                Else
                    Console.WriteLine("The Driver is speeding and will receive a fine of $2,435 and lose 6 demerit points")
                End If

            Case "B"
                Console.WriteLine("Class B")
                If b <= a Then
                    Console.WriteLine("The Driver is not speeding")
                ElseIf b - a <= 10 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $353 and lose 4 demerit points")
                ElseIf b - a <= 20 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $472 and lose 4 demerit points")
                ElseIf b - a <= 30 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $588 and lose 4 demerit points")
                ElseIf b - a <= 45 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $903 and lose 5 demerit points")
                Else
                    Console.WriteLine("The Driver is speeding and will receive a fine of $2,435 and lose 6 demerit points")
                End If

            Case "C"
                Console.WriteLine("Class C")
                If b <= a Then
                    Console.WriteLine("The Driver is not speeding")
                ElseIf b - a <= 10 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $353 and lose 4 demerit points")
                ElseIf b - a <= 20 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $472 and lose 4 demerit points")
                ElseIf b - a <= 30 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $588 and lose 4 demerit points")
                ElseIf b - a <= 45 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $1,414 and lose 5 demerit points")
                Else
                    Console.WriteLine("The Driver is speeding and will receive a fine of $3,691 and lose 6 demerit points")
                End If

            Case Else
                Console.WriteLine("Class not valid")
        End Select

        Console.ReadKey()

    End Sub

End Module

​x
 
Module Module1
​
    Sub Main()
​
        ' Declaring the variables of the program and user enters speed limit, driver's speed and class of vehicle type.
        Dim a As Double
        Console.WriteLine("Enter Speed Limit in km/hr:")
        a = Console.ReadLine
​
        Dim b As Double
        Console.WriteLine("Enter Driver's Speed in km/hr:")
        b = Console.ReadLine()
​
        Dim c As Char
        Console.WriteLine("Enter Class of Vehicle Type(A-C):")
        c = Console.ReadLine()
​
        ' Determine which class of vehicle type the driver is driving
        Select Case c
            Case "A"
                Console.WriteLine("Class A")
​
                ' Determine if the driver was speeding, by how much they exceeded the limit, the fines they will receive and the demerit points they will lose.
                If b <= a Then
                    Console.WriteLine("The Driver is not speeding")
                ElseIf b - a <= 10 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $119 and lose 4 demerit points")
                ElseIf b - a <= 20 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $275 and lose 4 demerit points")
                ElseIf b - a <= 30 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $472 and lose 4 demerit points")
                ElseIf b - a <= 45 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $903 and lose 5 demerit points")
                Else
                    Console.WriteLine("The Driver is speeding and will receive a fine of $2,435 and lose 6 demerit points")
                End If
​
            Case "B"
                Console.WriteLine("Class B")
                If b <= a Then
                    Console.WriteLine("The Driver is not speeding")
                ElseIf b - a <= 10 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $353 and lose 4 demerit points")
                ElseIf b - a <= 20 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $472 and lose 4 demerit points")
                ElseIf b - a <= 30 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $588 and lose 4 demerit points")
                ElseIf b - a <= 45 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $903 and lose 5 demerit points")
                Else
                    Console.WriteLine("The Driver is speeding and will receive a fine of $2,435 and lose 6 demerit points")
                End If
​
            Case "C"
                Console.WriteLine("Class C")
                If b <= a Then
                    Console.WriteLine("The Driver is not speeding")
                ElseIf b - a <= 10 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $353 and lose 4 demerit points")
                ElseIf b - a <= 20 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $472 and lose 4 demerit points")
                ElseIf b - a <= 30 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $588 and lose 4 demerit points")
                ElseIf b - a <= 45 Then
                    Console.WriteLine("The Driver is speeding and will receive a fine of $1,414 and lose 5 demerit points")
                Else
                    Console.WriteLine("The Driver is speeding and will receive a fine of $3,691 and lose 6 demerit points")
                End If
​
            Case Else
                Console.WriteLine("Class not valid")
        End Select
​
        Console.ReadKey()
​
    End Sub
​
End Module

Last Run:	11:07:14 pm
Compile:	0.126s
Execute:	0.001s
Memory:	8kb
CPU:	0s

View IL Code