Imports System

Public Module Module1

    Public Sub Main()

        'Titulo del Programa

        Console.WriteLine("Aplicacion Gasto de combustible")

        Console.WriteLine("1. Dinero para llenar tanque, 2. Dinero - Capacidad del tanque, 3. Valor distancia recorrida, 4.consumo de combustible - dinero de viaje, 5. Viaje express")

        dim opcion as integer

        Select (opcion)

        Case 1

            tanquelleno

        case 2

            dineroporcentaje

        Case 3

            distanciagl

        End select

    End Sub

    Private Sub Tanquelleno()

        'Primera opcion del menu

        Console.WriteLine("con cuanto dinero se llena el tanque?")

        'declarar variables

        dim capacidadgl, preciocombustible, totalq as double

        Console.WriteLine("Ingrese precio por galon de combustible: ")

            Preciocombustible = Console.ReadLine()

        Console.WriteLine("Ingrese la capacidad de galones de su tanque: ")

            capacidadgl = Console.ReadLine()

            totalq = Preciocombustible * Capacidadgl

            Console.WriteLine("se llena con: " &Totalq)

    End sub

        Private sub dineroporcentaje()

            Console.WriteLine("Que porcentaje de mi tanque se llena con QQQ ?")

            Dim capacidadgl, preciocombustible, totalq, porcentajetanque as double

            Console.WriteLine("Ingrese precio por galon de combustible: ")

            Preciocombustible = Console.ReadLine()

        Console.WriteLine("Ingrese la capacidad de galones de su tanque: ")

            capacidadgl = Console.ReadLine()

            Console.WriteLine("ingresar la cantidad de dinero a cargar:  ")

            totalq = console. Readline()

        Porcentajetanque  = (totalq / preciocombustible)*Capacidadgl 

        Console.WriteLine(" se cargara el : "& Porcentajetanque)

        End sub

    'opcion 3

    ' agrego una variable

    'Normalmente rinde 40km por galón

    'necesitamos 3 cosas; distancia por recorrer, cantidad de dinero, cuanto gasto por distancia recorrida 

    ' Preguntas/variables: distancia en km? , cuantos km rinde por galon, precio por galon, cantidad galones

    ' Operaciones; consumidos=Distanciakm/ kmgalon , Total a cargar= cantidad glconsumidos * precio por galón

    Private Sub distanciagl ()

        dim distanciakm, kmgalon, preciogl, cantidadgl, totalgl as double

        Console.Writeline("¿Cuál es mi consumo de combustible en una distancia corta o de constante tráfico vehicular?")

        'Distancia por recorrer

        Console.Writeline("Ingrese distancia en Km")

        distanciakm= Console.readline()

        'cuantos km rinde por galon

        Console.Writeline("¿Cuántos km rinde por galón el automovil?")

        kmgalon= Console.readline()

        'Precio por galón

        Console.Writeline("Escriba el precio por galon")

        preciogl= Console.Readline()

        'Galones consumidos

        cantidadgl= distanciakm/ kmgalon

        'Monto total a pagar

        totalgl= cantidadgl*preciogl

        Console.writeline("La cantidad de galones consumidos por km son: "&cantidadgl &" Galones.")

        console.Writeline("El monto total a cargar es: Q"&totalgl)

    End sub 

End Module