Codigo Visual 6.0 Salario

Solo disponible en BuenasTareas
  • Páginas: 2 (357 palabras)
  • Descarga(s): 0
  • Publicado: 20 de noviembre de 2012
Leer documento completo
Vista previa del texto
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:FrmSalarioNetoBorderStyle:3-Fixed Dialog
Caption:Cálculo del salario neto
Moveable:False
StartUpPosition:2-CenterScreen

Frame1

Nombre:FraIngreso
Caption:Ingreso de datos:

Frame2

Nombre:FraSalidaCaption: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:TrueCaption:Descuento S/.

Label6

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

Text1

Nombre:TxtApellidosNombres
Text:en blanco

Text2

Nombre:TxtHorasTrabajadas
Text:enblanco


Text3

Nombre:TxtPagoPorHora

Text:en blanco

Text4

Nombre:TxtSalarioBruto

Text:en blanco

Text5

Nombre:TxtDescuento
Text:en blanco


Text6

Nombre:TxtSalarioNetoText:en blano

Command1

Nombre:CmdAceptar
Caption:&Aceptar

Command2

Nombre:CmdLimpiar
Caption:&Limpiar

Command3

Nombre:CmdSalir
Caption:&Salir

Luego de establecer las propiedadespara 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...
tracking img