SALARIO NETO

Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20 por 100. 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

Diseño de la interfaz:

Ubicamos los siguientes controles:

2 marcos
6 etiquetas
6 cajas de texto
3 botones de comando

Propiedades:

Form1

Nombre:FrmSalarioNeto
BorderStyle:3-Fixed Dialog
Caption:Cálculo del salario neto
Moveable:False
StartUpPosition:2-CenterScreen

Frame1

Nombre:FraIngreso
Caption:Ingreso de datos:

Frame2

Nombre:FraSalida
Caption:Salida de datos:

Label1

Nombre:LblApellidosNombres
AutoSize:True
Caption:Apellidos y nombres:

Label2

Nombre:LblHorasTrabajadas
AutoSize:True
Caption:Horas trabajadas:

Label3

Nombre:LblPagoPorHora
AutoSize:True
Caption:Pago por hora S/.

Label4

Nombre:LblSalarioBruto
AutoSize:True
Caption:Salario bruto S/.

Label5

Nombre:LblDescuento
AutoSize:True
Caption:Descuento S/.

Label6

Nombre:LblSalarioNeto
AutoSize:True
Caption:Salario neto S/.

Text1

Nombre:TxtApellidosNombres
Text:en blanco

Text2

Nombre:TxtHorasTrabajadas
Text:en blanco


Text3

Nombre:TxtPagoPorHora

Text:en blanco

Text4

Nombre:TxtSalarioBruto

Text:en blanco

Text5

Nombre:TxtDescuento
Text:en blanco


Text6

Nombre:TxtSalarioNeto
Text:en blano

Command1

Nombre:CmdAceptar
Caption:&Aceptar

Command2

Nombre:CmdLimpiar
Caption:&Limpiar

Command3

Nombre:CmdSalir
Caption:&Salir

Luego de establecer las propiedades para los controles, debe añadir código a la aplicación. Para ello haga doble click sobre el botón Aceptar e 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

A continuación haga doble click sobre el botón Salir y añada el siguiente código:

Private Sub CmdSalir_Click()
End
End Sub
Guarde y luego ejecute la aplicación que acaba de crear. Pruebe ingresando diferentes valores.

Luego, haga doble click sobre el botón Limpiar y añada el siguiente código:

Private Sub CmdLimpiar_Click()
TxtApellidosNombres = “”
TxtHorasTrabajadas = “”
TxtPagoPorHora = “”
TxtSalarioBruto = “”
TxtDescuento = “”
TxtSalarioNeto = “”
TxtApellidosNombres.SetFocus
End Sub

Ejecute su aplicación.