-
Lenguaje
Visual Basic .Net
-
Descripción
Los empleados de una empresa requieren realizar el cálculo de su salario mediante un sistema en donde un empleado: Si trabaja 8 horas extras después de las 40 horas se le dará el pago doble del costo normal de la hora, pero si las horas extras superan las 8 horas, se le pagará al triple. El sistema solicitara el costo de la hora y el número de horas trabajadas, presentando así el sueldo que deberá recibir el empleado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Module CalculoDelSalarioDeUnEmpleado
Sub Main()
Dim costo_normal, horas_trabajadas, salario As Double
Console.Write("Ingresa el valor de costo normal: ")
costo_normal = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de horas trabajadas: ")
horas_trabajadas = Double.Parse(Console.ReadLine())
salario=horas_trabajadas*costo_normal
If horas_trabajadas>40 Then
salario=salario+(horas_trabajadas-40)*costo_normal
End If
If horas_trabajadas>48 Then
salario=salario+(horas_trabajadas-48)*costo_normal
End If
Console.WriteLine("Valor de salario: " & salario)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim costo_normal, horas_trabajadas, salario As Double
Console.Write("Ingresa el valor de costo normal: ")
costo_normal = Double.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de horas trabajadas: ")
horas_trabajadas = Double.Parse(Console.ReadLine())
salario=horas_trabajadas*costo_normal
If horas_trabajadas>40 Then
salario=salario+(horas_trabajadas-40)*costo_normal
End If
If horas_trabajadas>48 Then
salario=salario+(horas_trabajadas-48)*costo_normal
End If
Console.WriteLine("Valor de salario: " & salario)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module