Imports System

Public Module Module1

    Public Sub Main()

        dim Distance as integer

        dim Time as integer

        dim limit as integer

        dim speedmeasurement as string

        dim distanceft as string

        'below i am getting the information that i need to calculate the speed

        'the distance

        console.writeline("please input the distance between the two sensors in either metres or feet") 

        Distance = console.readline()

        'whether the user entered the distance in feet

        console.writeline("did you enter feet?")

        distanceft = console.ReadLine()

        'the amount of timew that it took between the car gbeing detected

        console.WriteLine("please input the time in seconds it took between the car being detected")

        Time = console.readline()

        'the speed limit, in any measurement

        console.writeline("what is the speed limit in the area of the two sensors, please enter only the speed, not the measurement it is in?")

        limit= console.ReadLine()

        'now i ask the user whether they want their speed in MPH or KM/H

        console.writeline("do you want your speed to be in KM/H or MPH?")

        speedmeasurement = console.readline()

        'below i am converting feet into metres, if they had entered feet

        Dim S as integer

        Dim S2 as integer

        Dim distance1 as integer

        if speedmeasurement = "MPH"

            if distanceft = "yes"

                Distance1 = distance / 3.28

                        Dim D as decimal

        Dim A as integer

        A = Distance1 * 1000

        D = A/1609

        Dim T as decimal

        Dim B as integer

        B = Time * 1000

        T = B/3600

        S = D/T

                'the piece of code below tells the user their speed

        console.writeline("your speed was " & S & "MPH")

            elseif distanceft = "no"

                'the formula for metres to miles and seconds to hours is very important here        

        Dim D as decimal

        Dim A as integer

        A = Distance * 1000

        D = A/1609

        Dim T as decimal

        Dim B as integer

        B = Time * 1000

        T = B/3600

        S = D/T

        console.writeline("your speed was " & S & "MPH")

            end if

        end if

            Dim S1 as integer

        'if the user asked for their speed to be output in KM/H then the code below works out the formula

                if speedmeasurement = "KM/H"

                if distanceft = "yes"

                    distance = distance / 3.28

                'i have created quite a lot of variables for all different purposes, most of them are for the formula of working out the speed

            S1 = distance/time

            S2 = S1 * 3.6

            console.writeline("your speed was " & S2 & " KM/H")

                elseif distanceft = "no"

                'i created two different if statements, one within the other, which are used if the user entered feet

            S1 = distance/time

            S2 = S1 * 3.6

            console.writeline("your speed was " & S2 & " KM/H")

                end if 

            end if

        Dim overlimit as integer

        overlimit = S - limit

        Dim overlimit1 as integer

        overlimit1 = S2 - limit

        If speedmeasurement = "MPH" then

            'here i have created an extra bit of code that tells the user whether they were over the limit, and by how much

        If S > limit

            console.writeline(" you were over the speed limit by " & overlimit & "MPH")

            elseif S < limit

            console.writeline("you were within the speed limit")

        end if

        else

        if S2 > limit

            console.writeline("You were over the speed limit by " & overlimit1 & "KM/H")

            elseif S2 < limit

            console.writeline("you were within the speed limit")

        End If

        End if

    End Sub

End Module