Imports System

Public Module Module1

    Public Sub Main()

        dim opcion as integer

        Console.WriteLine("Hola, bienvenido a tu calculadora de confianza, ¿Qué deseas hacer?")

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

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

        opcion = Console.ReadLine()

        select (opcion)

        case 1

            MRU 

        case 2

            MRUA

        case else 

            Console.WriteLine("La opción que ingreso es invalida")

        end select

    End Sub

    Private sub 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 trababaja 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("La distancia recorridad es de: " &s)

        end if

        'opcione 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 es de: " &t)

        end if

        if opc>3 then

            Console.WriteLine("Opcion incorrecta, por favor ingrese una válida")

        end if

        End sub

    Private sub MRUA()

        'procedimientos de MRUA

        dim vf, t, a, vo, s as double

        dim opcion as integer

        Console.WriteLine("1. Aceleración, 2.Velocidad final, 3.Velocidad inicial, 4. Tiempo, 5.Distancia")

        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()

            a = (vf-vo)/t

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

        end if

        if opcion = 2 then

            Console.WriteLine("Ingrese aceleración")

            a = Console.ReadLine()

            Console.WriteLine("Ingrese velocidad inicial")

            vo = Console.ReadLine()

            Console.WriteLine("Ingrese tiempo")

            t= Console.ReadLine()

            vf = (a * t)+vo

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

        end if

        if opcion = 3 then

            'calculo velocidad inicial

            Console.WriteLine("Ingrese aceleración")

            a = Console.ReadLine()

            Console.WriteLine("Ingrese velocidad final")

            vf = Console.ReadLine()

            Console.WriteLine("Ingrese tiempo")

            t= Console.ReadLine()

            vo = vf-(a*t)

            Console.WriteLine("La velocidad inicial  es: " &vo & "m/s")

        end if

    if opcion = 4 then

            'calculo tiempo

            Console.WriteLine("Ingrese aceleración")

            a = Console.ReadLine()

            Console.WriteLine("Ingrese velocidad final")

            vf = Console.ReadLine()

            Console.WriteLine("Ingrese velocidad inicial")

            vo= Console.ReadLine()

            t = (vf-vo)/a

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

        end if

        if opcion = 5 then

            Console.WriteLine("Ingrese aceleración")

            a = Console.ReadLine()

            Console.WriteLine("Ingrese velocidad final")

            vf = Console.ReadLine()

            Console.WriteLine("Ingrese velocidad inicial")

            vo= Console.ReadLine()

            Console.WriteLine("Ingrese tiempo")

            t = Console.ReadLine()

            s = vo*t + (1/2*a * t^2)

            Console.WriteLine("La distancia recorrida es de " &s & "m")

        end if

        if opcion>5 then

            Console.WriteLine("Opcion incorrecta, por favor ingrese una válida")

        end if

        Console.WriteLine("Gracias por usar tu calculadora de confianza, que tenga un buen dia")

    end sub

​

End Module

​

​

​

​

​

​