practicas de visual

PRACTICA Nº 1
Objetivos
Luego de completar este laboratorio, el estudiante será
capaz de:
• Identificar

los

elementos

del

entorno

integrado

de

desarrollo de Microsoft Visual Basic 6.0.
• Añadir controles a un formulario.
• Establecer las propiedades de los controles.
• Trabajar con procedimientos de eventos.
• Crear una aplicación simple con Microsoft Visual Basic.Consideraciones
Para el desarrollo del presente laboratorio Ud. deberá
crear una carpeta C:\FundVB\Lab1, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicación Nº 1
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
sueldobruto 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

1

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

Para el desarrollo de esta aplicación, proceda a ubicarlos 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

2

Frame1
Nombre

FraIngreso

CaptionIngreso 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

LblSalarioBrutoAutoSize

True

Caption

Salario bruto S/.

Label5
Nombre

LblDescuento

AutoSize

True

Caption

Descuento S/.

3

Label6
Nombre

LblSalarioNeto

AutoSize

True

Caption

Salario neto S/.

Nombre

TxtApellidosNombres

Text1

Text
Text2
Nombre

TxtHorasTrabajadas

Text
Text3
Nombre

TxtPagoPorHora

Text
Text4
Nombre

TxtSalarioBruto

TextText5
Nombre

TxtDescuento

Text
Text6
Nombre

TxtSalarioNeto

Text
Command1
Nombre

CmdAceptar

Caption

&Aceptar

4

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 eingrese 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 - DescuentoTxtSalarioBruto = 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

5

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 elsiguiente código:
Private Sub CmdLimpiar_Click()
TxtApellidosNombres = “”
TxtHorasTrabajadas = “”
TxtPagoPorHora = “”
TxtSalarioBruto = “”
TxtDescuento = “”
TxtSalarioNeto = “”
TxtApellidosNombres.SetFocus
End Sub
Guarde y ejecute su aplicación. ¿Cómo afecta el código
añadido

en

el

botón

Limpiar

a

la

aplicación?.

Anote

sus

observaciones.
Aplicación Nº 2
El...