Imports System

Public Module Module1

    Public Sub Main()

        'Menu

        dim opcion as integer

        Console.WriteLine("Formulario de Cinemática")

        Console.Writeline("1. MRU 2.MRUA")

        opcion=Console.Readline()

        'Case

        Select (opcion)

        case 1

             MRU

        Case 2

            MRUA

        case else

            Console.Writeline("La opcion ingresada no es valida")

        End select 

    End sub

    Private Sub MRU()

        'procedimientos de MRU

        dim v, s, t as double

        dim opc as integer

        Console.WriteLine("¿Qué desea calcular? 1. Velocidad 2. Espacio 3. Tiempo ")

        opc = Console.ReadLine()

        'Opcion 1 trabaja velocidad

        if opc = 1 then

            Console.WriteLine("Velocidad")  

            Console.WriteLine("Ingrese espacio: ")

            s = Console.ReadLine()

            Console.WriteLine("Ingrese tiempo:  ")

            t = Console.ReadLine()

            v = s/t

            Console.WriteLine("La velocidad lineal es:  " &v)

            end if 

        'Opcion 2 trabaja espacio 

        if opc = 2 then 

        Console.WriteLine("Espacio")    

            Console.WriteLine("Ingrese velocidad: ")

            v = Console.ReadLine()

            Console.WriteLine("Ingrese tiempo:  ")

            t = Console.ReadLine()

            s = v*t

            Console.WriteLine("El espacio recorrido es:  " &s)

        end if

                'Opcion 3 trabaja tiempo

        if opc = 3 then 

            Console.WriteLine("Tiempo") 

            Console.WriteLine("Ingrese velocidad: ")

            v = Console.ReadLine()

            Console.WriteLine("Ingrese espacio:  ")

            s = Console.ReadLine()

            t = s/v

            Console.WriteLine("El tiempo de recorrido es:  " &t)

        end if

    end sub

        Private sub MRUA

            'procedimiento de MRUA

        dim aceleración, vf, vo, t as double

        Console.Writeline("1. Aceleración, 2. Vf 3. Vo 4. T 5. Distancia")

        dim opcion as integer

        opcion=Console.Readline()

        If opcion = 1 then

            'calculo de aceleración

            Console.Writeline("Ingrese velocidad final")

            vf=Console.Readline()

            Console.Writeline("Ingrese velocidad inicial")

            vo=Console.Readline()

            Console.Writeline("Ingrese tiempo")

            t=Console.Readline

            aceleración= (vf-vo)/t

            Console.Writeline("La aceleración es: " &aceleración &" m/s^2")

        end if 

        If opcion= 2 then

            'calculo de velocidad final

            Console.Writeline("Ingrese aceleración")

            aceleración = Console.Readline()

            Console.Writeline("Ingrese velocidad inicial")

            vo=Console.Readline()

            Console.Writeline("Ingrese tiempo")

            t=Console.Readline

            vf= (aceleración * t)+vo

            Console.Writeline("La velocidad final es: "&vf &" m/s")

        end if 

        If opcion= 3 then

            'Calculo de velocidad incial

            Console.Writeline("Ingrese aceleración")

            aceleración=Console.Readline()

            Console.Writeline("Ingrese tiempo")

            t=Console.Readline()

            Console.Writeline("Ingrese velocidad final")

            vf= Console.Readline()

            vo= vf -(aceleración*t)

            Console.Writeline("La velocidad final es: " &vo &" m/s")

        end if 

        if opcion = 4 then

            'calcule el tiempo

            Console.Writeline("Ingrese velocidad final")

            vf=Console.Readline()

            Console.Writeline("Ingrese velocidad inicial")

            vo= Console.Readline()

            Console.Writeline("Ingrese aceleración")

            aceleración=Console.Readline()

            t= (vf - vo)/aceleración

            Console.Writeline("E l tiempo es : "&t &" segudnos")

        end if  

        If opcion= 5 then

            'calcule la distancia

            dim s as double

            Console.Writeline("Ingrese velocidad incial")

            vo=Console.Readline()

            Console.Writeline("Ingrese aceleración")

            aceleración=Console.Readline()

            Console.Writeline("Ingrese tiempo")

            t=Console.Readline()

            s= vo * t +(0.5 * aceleración * t^2)

            Console.Writeline("La aceleración es: "&s &" m/s)

​

        end if 

    End Sub

End Module

​