PDF de programación - Parte I - Guía de Laboratorio de Microsoft Visual Basic 6

GUÍA DE LABORATORIO

Parte I



ELABORADO POR

CARLOS CASTILLO PERALTA

[email protected]



Elaborado por Carlos Castillo Peralta

[email protected]

1



INTRODUCCIÓN



La presente Guía de Laboratorio de Microsoft Visual Basic,

se elaboró con la finalidad de complementar la parte teórica

con la parte práctica del curso. Los problemas presentan un

grado de dificultad gradual, es decir, en cada práctica primero

se comienzan con problemas muy sencillos con la finalidad de

que el estudiante esclarezca dudas y quede claro en los

conceptos asimilados en la teoría, y luego en los problemas

posteriores se va incrementando el nivel de dificultad.



Esta guía explora una gran variedad de materias y contiene

muchos problemas recopilados a lo largo de varios años de

experiencia. Espero que satisfaga las necesidades de los

estudiantes y colegas, ya que ha sido elaborada teniendo en

cuenta los objetivos de aprendizaje del curso.

Si desean compartirla con otros colegas, me agradaría

mucho que lo hicieran, con la única condición de que siempre se

respete el derecho del autor.

Desde ya les deseo la mejor de las suertes en el

aprendizaje de Microsoft Visual Basic.



Lima, Diciembre del 2000

Carlos Castillo Peralta

Elaborado por Carlos Castillo Peralta

[email protected]

2



Microsoft Visual Basic
Visual Basic
Visual Basic
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 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

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

Elaborado por Carlos Castillo Peralta

[email protected]

3






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

mostrada:



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

Elaborado por Carlos Castillo Peralta

[email protected]

4




Frame1



Nombre

Caption

FraIngreso

Ingreso de datos:


Frame2



Nombre

Caption


Label1

FraSalida

Salida de datos:



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

True

Caption

Descuento S/.

Elaborado por Carlos Castillo Peralta

[email protected]

5




Label6



Nombre

LblSalarioNeto

AutoSize

True

Caption

Salario neto S/.


Text1



Nombre

Text


Text2



Nombre

Text


Text3



Nombre

Text


Text4



Nombre

Text


Text5



Nombre

Text


Text6



Nombre

Text


Command1



Nombre

Caption

TxtApellidosNombres



TxtHorasTrabajadas



TxtPagoPorHora



TxtSalarioBruto



TxtDescuento



TxtSalarioNeto



CmdAceptar

&Aceptar

Elaborado por Carlos Castillo Peralta

[email protected]

6




Command2



Nombre

Caption


Command3

CmdLimpiar

&Limpiar

Nombre

Caption

CmdSalir

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

Elaborado por Carlos Castillo Peralta

[email protected]

7



End Sub

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

observaciones.


Aplicación Nº 2

El menú de un restaurante rápido se muestra a

continuación:



Elaborado por Carlos Castillo Peralta

[email protected]

8





MENÚ

PRECIO (S/.)

Se desea construir una

Hamburguesa

Cerveza

Gaseosa

Ensalada

Salchichas

Refresco

Sopa

Postre

2.50

4.00

3.00

1.50

2.00

1.00

1.50

1.50

aplicación que calcule las

ventas totales al final del

día, así como los impuestos

a pagar (18 por 100).



La interfaz de entrada

y salida deberá ser similar

a la figura mostrada a

continuación:



Para el diseño del cuadro de menú utilizaremos el control

Microsoft Hierarchical FlexGrid. Para tal fin, seleccione el

Menú Proyecto y elija la opción Componentes:



Elaborado por Carlos Castillo Peralta

[email protected]

9



A continuación active la casilla de verificación Microsoft

Hierarchical FlexGrid Control 6.0 OLEDB y haga click sobre el

botón Aceptar. En seguida este control se añadirá al Cuadro de



Herramientas.



Para el desarrollo de esta aplicación, proceda a ubicar

los siguientes controles en el formulario:



10 etiquetas

10 cajas de texto

1 control MSHFlexGrid

3 botones de comando

En seguida, elabore el diseño de entrada y salida. Para

ello proceda a establecer las propiedades según se indica a

continuación:


Form1

Elaborado por Carlos Castillo Peralta

[email protected]

10







Nombre

FrmRestaurante

BorderStyle

3-Fixed Dialog

Caption

Restaurante

Moveable

False

StartUpPosition 2-CenterScreen


Label1



Nombre

LblHamburguesa

AutoSize

True

Caption

Hamburguesa:


Label2



Nombre

LblCerveza

AutoSize

True

Caption

Cerveza:


Label3



Nombre

LblGaseosa

AutoSize

True

Caption

Gaseosa:


Label4



Nombre

LblEnsalada

AutoSize

True

Caption

Ensalada:


Label5



Nombre

LblSalchichas

AutoSize

True

Caption

Salchichas:


Label6



Nombre

LblRefresco

Elaborado por Carlos Castillo Peralta

[email protected]

11







AutoSize

True

Caption

Refresco:


Label7



Nombre

AutoSize

Caption


Label8

LblSopa

True

Sopa:



Nombre

LblPostre

AutoSize

True

Caption

Postre:


Label9



Nombre

Caption

Label10



Nombre

Caption


MSHFlexGrid1

LblVentaTotal

Venta total S/.

LblImpuesto

Impuesto S/.



Nombre

Font

GrdMenu

Arial (Negrita 10)

FontFixed

Arial (Negrita 10)


Text1



Nombre

Text


Text2

TxtHamburguesa



Nombre

Text

TxtCerveza



Elaborado por Carlos Castillo Peralta

[email protected]

12



Text3



Nombre

Text


Text4



Nombre

Text


Text5



Nombre

Text


Text6



Nombre

Text


Text7



Nombre

Text


Text8



Nombre

Text


Text9



Nombre

Locked

Text


Text10



Nombre

Locked

Text

TxtGaseosa



TxtEnsalada



TxtSalchichas



TxtRefresco



TxtSopa



TxtPostre



TxtVentaTotal

True



TxtImpuesto

True



Elaborado por Carlos Castillo Peralta

[email protected]

13




Command1



Nombre

Caption


Command2



Nombre

Caption


Command3

CmdAceptar

&Aceptar

CmdLimpiar

&Limpiar

Nombre

CmdSalir

Caption &Salir

Picture C:\Archivos de programa\Microsoft Visual

Studio\Common\Graphics\Icons\Arrows\Point04.ico

Style

1-Graphical



En primer lugar debemos cargar los datos