Visual

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

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. 3C
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...