Calucladora IP

Ejercicio sobre programa para calculo de planilla Visual Basic, modo consola

·         Este programa muestra los pagos que recibirá un trabajador por cada hora laboral en base a la hora del día en que trabaja. El usuario deberá escribir el número de horas trabajadas en cada uno de los horarios y el programa determinará el total de dinero a recibir por el trabajador y también dirá si ganó más dinero por horas extras que por horas de oficina trabajadas o viceversa, o si el trabajador ganó exactamente lo mismo por horas extras que por horas de oficina.

     

 

      Adjunto el codigo fuente.

Sub Main()

        Dim basehora, total, salhora1, salhora2, salhora3, salhora4 As Double

        Dim horasextras, calcsal2, calcsal3 As Double

        Dim horario1, horario2, horario3, horario4 As Integer

        Console.WriteLine("         HORARIO                        PAGO")

        Console.WriteLine("     8:00 AM -  4:00 PM               PAGO BASE ")

        Console.WriteLine("     4:00 PM -  8:00 PM             25% HORA EXTRA")

        Console.WriteLine("     8:00 PM - 12:00 PM             50% HORA EXTRA")

        Console.WriteLine("    12:00 AM -  8:00 AM                PAGO DOBLE")

        Console.WriteLine("")

        Console.WriteLine("Sueldo base por hora trabajada: ", basehora)

        basehora = Console.ReadLine

        Console.WriteLine("Número de horas trabajadas de  8:00 am a  4:00 pm: ", horario1)

        horario1 = Console.ReadLine()

        Console.WriteLine("Número de horas trabajadas de  4:00 pm a  8:00 pm: ", horario2)

        horario2 = Console.ReadLine()

        Console.WriteLine("Número de horas trabajadas de  8:00 pm a 12:00 pm: ", horario3)

        horario3 = Console.ReadLine()

        Console.WriteLine("Número de horas trabajadas de 12:00 am a  8:00 am: ", horario4)

        horario4 = Console.ReadLine()

        salhora1 = (basehora * horario1)

        calcsal2 = (basehora * horario2)

        salhora2 = (calcsal2 * 0.25) + calcsal2

        calcsal3 = (basehora * horario3)

        salhora3 = (calcsal3 * 0.5) + calcsal3

        salhora4 = (basehora * horario4) * 2

        total = (salhora1 + salhora2 + salhora3 + salhora4)

        Console.WriteLine("-----------------------------------------------------------------")

        Console.WriteLine("El pago total que recibira el trabajador es de: " & total)

        Console.WriteLine("-----------------------------------------------------------------")

        Console.WriteLine("El salario del trabajador por horas de oficina es: " & salhora1)

        horasextras = (salhora2 + salhora3 + salhora4)

        Console.WriteLine("El salario del trabajador por horas extras es: " & horasextras)

        Console.WriteLine("-----------------------------------------------------------------")

        If horasextras < salhora1 Then

            Console.WriteLine("El trabajador gano mas por horas de oficina que por horas extras")

        ElseIf horasextras > salhora1 Then

            Console.WriteLine("El trabajador gano mas por horas extras que por horas de oficina")

        End If

        Console.WriteLine("-----------------------------------------------------------------")

        Console.WriteLine("Presione enter para salir")

        Console.ReadLine()

    End Sub

 

     Asi les quedará la aplicacion