VISUAL BASIC









GUÍA DE LABORATORIO
Parte I









Microsoft Visual Basic
GUÍA DE LABORATORIO 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 conprocedimientos 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 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 estaaplicació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

NombreFraIngreso

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 S/.

Label4

Nombre
LblSalarioBrutoAutoSize
True

Caption
Salario bruto S/.

Label5

Nombre
LblDescuento

AutoSize
True

Caption
Descuento S/.

Label6

Nombre
LblSalarioNeto

AutoSize
True

Caption
Salario neto S/.

Text1

Nombre
TxtApellidosNombres

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

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 elsiguiente 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

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 clicksobre el botón Limpiar y añada el siguiente 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...