Se te recomienda antes de hacer cualquier ejercicio leerlo completamente, al estarlo realizando anota todas las preguntas o dudas que te surjan para su aclaración en clase, asi como los elementos nuevos que descubras.
Recuerda que no se trata de copiar y pegar o de transcribir contenidos, ante todo es descubrir su operatividad y comprobar su funcionalidad.
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
El diseño de la interfaz debe ser similar a la figura mostrada:
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 comando
Una vez ubicados los controles, establezca las propiedades según se indica:
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 |
Label4
Nombre | lblSalarioBruto |
AutoSize | True |
Caption | Salario bruto |
Label5
Nombre | lblDescuento |
AutoSize | True |
Caption | Descuento |
Label6
Nombre | lblSalarioNeto |
AutoSize | True |
Caption | Salario neto |
Text1
Nombre | txtApellidosNombres |
Text |
Text2
Nombre | txtHorasTrabajadas |
Text |
Text3
Nombre | txtPagoPorHora |
Text |
Text4
Nombre | txtSalarioBruto |
Text |
Text5
Nombre | txtDescuento |
Text |
Text6
Nombre | txtSalarioNeto |
Text |
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 intHorasTrabajadas As Integer, dblPagoPorHora As Double
Dim dblSalarioBruto As Double
Dim dblDescuento As Double
Dim dblSalarioNeto As Double
intHorasTrabajadas = Val(txtHorasTrabajadas.Text)
dblPagoPorHora = Val(txtPagoPorHora.Text)
dblSalarioBruto = intHorasTrabajadas * dblPagoPorHora
dblDescuento = 0.2 * dblSalarioBruto
dblSalarioNeto = dblSalarioBruto - dblDescuento
txtSalarioBruto.Text = Str(dblSalarioBruto)
txtDescuento.Text = Str(dblDescuento)
txtSalarioNeto.Text = Str(dblSalarioNeto)
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.Text = “”
txtHorasTrabajadas.Text = “”
txtPagoPorHora.Text = “”
txtSalarioBruto.Text = “”
txtDescuento.Text = “”
txtSalarioNeto.Text = “”
txtApellidosNombres.SetFocus
End Sub
Guarde y ejecute su aplicación.
Anote sus observaciones en una hoja:
- En el botón comando Limpiar aparece la línea: txtApellidosNombres.SetFocus, coloca la propiedad SetFocus en otro txt y describe que sucede.
- Habiendo concluido el ejercicio. Señala aquellos elementos que consideras necesario se vuelvan a repasar.