Codigo Visual 6.0 Salario
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...
Regístrate para leer el documento completo.