-
Lenguaje
Visual Basic .Net
-
Descripción
Una empresa tiene el registro de las horas que trabaja diariamente un empleado durante la semana (seis días) y requiere determinar el total de éstas, así como el sueldo que recibirá por las horas trabajadas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Module HorasTrabajadasDuranteLaSemana
Sub Main()
Dim horas_trabajadas, i, total_de_horas As Integer
Dim pago_por_hora, sueldo As Double
total_de_horas = 0
sueldo = 0
Console.Write("Ingresa el valor de pago por hora: ")
pago_por_hora = Double.Parse(Console.ReadLine())
For i = 1 To 6
Console.WriteLine("PROCESO " & i)
Console.Write("Ingresa el valor de horas trabajadas: ")
horas_trabajadas = Integer.Parse(Console.ReadLine())
total_de_horas=total_de_horas+horas_trabajadas
Console.WriteLine()
Next i
sueldo=pago_por_hora*total_de_horas
Console.WriteLine("Valor de total de horas: " & total_de_horas)
Console.WriteLine("Valor de sueldo: " & sueldo)
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim horas_trabajadas, i, total_de_horas As Integer
Dim pago_por_hora, sueldo As Double
total_de_horas = 0
sueldo = 0
Console.Write("Ingresa el valor de pago por hora: ")
pago_por_hora = Double.Parse(Console.ReadLine())
For i = 1 To 6
Console.WriteLine("PROCESO " & i)
Console.Write("Ingresa el valor de horas trabajadas: ")
horas_trabajadas = Integer.Parse(Console.ReadLine())
total_de_horas=total_de_horas+horas_trabajadas
Console.WriteLine()
Next i
sueldo=pago_por_hora*total_de_horas
Console.WriteLine("Valor de total de horas: " & total_de_horas)
Console.WriteLine("Valor de sueldo: " & sueldo)
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module