Visual
GUÍA DE LABORATORIO
pág. 1
CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79
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
dedesarrollo 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 E:\FundVB\Lab1, para guardar sus trabajos
correspondientes a estelaboratorio.
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:
Guía de actividades laboratorio. Visual Basic
pág. 2
Para
el
desarrollo
de
esta
aplicación,
proceda
a
ubicar los siguientes controles en el formulario:
2 marcos
6 etiquetas
6 cajas de texto
3 botones decomando
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
Nombre
FraIngreso
Caption
Ingreso de datos:
Frame2
Guía de actividades laboratorio. Visual Basic
pág. 3C
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
LblSalarioBruto
AutoSize
TrueCaption
Salario bruto S/.
Label5
Nombre
LblDescuento
AutoSize
True
Caption
Descuento S/.
Label6
Nombre
LblSalarioNeto
AutoSize
True
Caption
Salario neto S/.
Nombre
TxtApellidosNombres
Text1
Guía de actividades laboratorio. Visual Basic
L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com
pág. 4
Text
Text2
NombreTxtHorasTrabajadas
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
Guía de actividades laboratorio. Visual Basic
L.I. TOMÁSHERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com
pág. 5
CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79
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
el
siguiente código:
Private Sub CmdAceptar_Click()
DimHorasTrabajadas 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(Sal= 19 And Promedio = 16 And Promedio = 11 And...
Regístrate para leer el documento completo.