Imports System

Public Module Module1

    Public Sub Main()

        dim distance, time, speed, speedlimit as decimal

        dim measurement as string

        Console.WriteLine("To use metric system (m) say 1 and to use imperial system (ft) say 2") 'this is the conversion between metric and imperial'

        measurement = console.readline()

        if measurement = 1 then

        Console.WriteLine("enter the distance between sensors (metres)")

        distance = Console.ReadLine()

        Console.WriteLine("enter the time between sensors (seconds)")

        time = Console.Readline()

        Console.WriteLine("enter the speedlimit (km/h)")

        speedlimit = Console.Readline()

            speed = (distance / 1000 / time / 60 / 60)

        Console.WriteLine(speed) 

        if speed > speedlimit - 0.1 and speed <speedlimit + 0.5 then

            console.WriteLine("You are well over the speed limit")

        elseif speed > speedlimit -1.6 and speed <speedlimit +0.1 then

            console.writeline("You are a bit above the speedlimit")

        elseif speed < speedlimit - 2.5 then

            console.writeline("You are close to the speed limit")

        else 

            Console.Writeline("You are well under the speed limit")

        end if

            elseif measurement = 2 then

            Console.WriteLine("enter the distance between sensors (feet)")

        distance = Console.ReadLine()

        Console.WriteLine("enter the time between sensors (seconds)")

        time = Console.Readline()

            Console.WriteLine("enter the speedlimit (miles/h)")

        speedlimit = Console.Readline()

        speed = (5)

        Console.WriteLine(speed) 

        if speed > speedlimit - 0.1 and speed <speedlimit + 0.5 then

            console.WriteLine("You are well over the speed limit")

        elseif speed > speedlimit -1.6 and speed <speedlimit +0.1 then

            console.writeline("You are a bit above the speedlimit")

        elseif speed < speedlimit - 2.5 then

            console.writeline("You are close to the speed limit")

        else 

            Console.Writeline("You are well under the speed limit")

        end if

        end if

    End Sub

End Module