Imports System

'Cálculo de tarifa de Uber'

​

Public Module Module1

    Public Sub Main()

        Dim Suma, Tarifa, TotalViaje as integer

        DIM km, tiempo, tiempoH, tiempoM, tiempoS, minutos, horas , segundos,Tarifabase, TarifaMinutos, recargo, viaje  as double 

        Console.WriteLine("Recuerda, si entras en una hora pico se te cobrara un 20% más")

        Console.WriteLine("Ingresa la distancia recorrida en kilómetros")

        km = console.ReadLine()

        Console.WriteLine("Ingresa tu hora de viaje ")

        Horas = console.ReadLine()

        Console.WriteLine("Ingresa los minutos de tu viaje")

        TarifaMinutos  = console.ReadLine()

        Tarifabase = 5.00 

        Console.WriteLine("La cantidad en tarifabase es: " &tarifabase)

        Km = km * 2.50 

            Console.WriteLine("La cantidad en km es: " &km)

        TarifaMinutos = TarifaMinutos * 0.50

        Console.WriteLine("La cantidad en tarifaMinutos es: " &tarifaMinutos)

        TotalViaje = TarifaMinutos + km + tarifabase 

        'tu total de viaje es'

        console.WriteLine("Tu TotalViaje es:" &TotalViaje)

        If TarifaMinutos = 00 then 

            console.writeline("Ingresa el total de tu viaje")

            Console.ReadLine()

            Recargo = TotalViaje * 0.20

            Console.WriteLine("Tu recargo es de : " &recargo)

        end if

    End Sub

End Module