Make your own free website on Tripod.com

 

La nómina

 

 

Elabora 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

 

El diseño de la interfaz debe ser similar a la figura mostrada:

 

 

Para el desarrollo de esta aplicación, procede a ubicar los siguientes controles en el formulario:

 

2 marcos (Frame1 y Frame2)

6 etiquetas

6 cajas de texto

3 botones de comando

 

Propiedades de los objetos

 

Una vez ubicados los controles, establece 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

 

& Aquellos valores a los que antecede el carácter & quiere decir que el primer caráter que sigue a & va aparecer subrayado. Ejemplo: &Salir aparecerá como Salir.

Programación

Luego de establecer las propiedades para los controles, debes añadir código a la aplicación.

 

Código en el botón Aceptar

Haz doble click sobre el botón Aceptar e ingresa 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

 

 

Variables

 

El código que terminas de entrar es un juego con variables. Una variable es una ubicación temporal de almacenamiento de datos dentro de un programa. Las variables hay que declararlas. Mientras que en otros lenguajes se declaran al principio del programa, en VB pueden declararse antes de ser utilizadas (declaración explícita) o en el momento que se utilizan (declaración implícita).

 

Variables con Dim

 

Cuando se declara la variable antes de utilizarla (normalmente al principio de un procedimiento de suceso) hay que escribir el nombre de la variable detrás de la sentencia Dim. Esta acción reservará espacio en memoria para la variable cuando se ejecute el programa. Ejemplo:

 

Dim SalarioBruto

 

Después del nombre de la variable conviene especificar (es opcional) el tipo de la misma:

 

Dim SalarioBruto As Double

 

Una vez declarada la variable se podrá asignar información a la misma utilizando código. Ejemplo:

 

SalarioBruto = HorasTrabajadas * PagoPorHora

 

Variables sin Dim

 

También se pueden declarar variables sin la sentencia Dim; lo que se conoce como declaración implícita. Para declarar una variable de esta forma bastará con utilizar la variable por sí sola ignorando la sentencia Dim.

 

SalarioBruto = HorasTrabajadas * PagoPorHora

 

 

 

Código en el botón Salir

 

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

 

 

Código en el botón Limpiar

 

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

 

Private Sub CmdLimpiar_Click()

    TxtApellidosNombres = “ ”

    TxtHorasTrabajadas = “ ”

    TxtPagoPorHora = “ ”

    TxtSalarioBruto = “ ”

    TxtDescuento = “ ”

    TxtSalarioNeto = “ ”

    TxtApellidosNombres.SetFocus

End Sub

 

Guarda y luego ejecuta la aplicación que acabas de crear.

 

Prueba ingresando diferentes valores en el primer marco, y a continuación das un clic en Aceptar.

 

¿Qué ocurre cuando presionas el botón Aceptar? ¿Cómo afecta el código añadido cuando presionas el botón Limpiar a la aplicación?. Anota sus observaciones.

 

 

Home | VB |