Aplicación Nº १: Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas.
Los cálculos a efectuar para obtener el salario neto de un trabajador se muestran a continuación:
SalarioBruto = HorasTrabajadas * PagoPorHora
Descuento = 0.2 * SalarioBruto
SalarioNeto = SalarioBruto - Descuento
Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:
2 marcos
6 etiquetas
6 cajas de texto
3 botones de cఓమందో
Ingrese el siguiente código:
Private Sub CmdAceptar_Click()
Dim HorasTrabajadas As Integer, PagoPorHora As Double
Dim SalarioBruto As Double
Dim Descuento As Double
Dim SalarioNeto As Double
HorasTrabajadas = Val(TxtHorasTrabajadas)
PagoPorHora = Val(TxtPagoPorHora)
SalarioBruto = HorasTrabajadas * PagoPorHora
Descuento = 0.2 * SalarioBruto
SalarioNeto = SalarioBruto - Descuento
TxtSalarioBruto = Str(SalarioBruto)
TxtDescuento = Str(Descuento)
TxtSalarioNeto = Str(SalarioNeto)
End Sub
Private Sub CmdSalir_Click()
End
End Sub
Private Sub CmdLimpiar_Click()
TxtApellidosNombres = “”
TxtHorasTrabajadas = “”
TxtPagoPorHora = “”
TxtSalarioBruto = “”
TxtDescuento = “”
TxtSalarioNeto = “”
TxtApellidosNombres.SetFocus
End Sub
No hay comentarios:
Publicar un comentario