CBTis 15

CD. MANTE, TAMAULIPAS.

MATERIA: PROGRAMACIN VISUAL

CUADERNILLO DE PRCTICAS:

Microsoft Visual Basic 6.0

P R O G R A M A C I N

V I S U A L

INDICE

PRCTICA NM.

NOMBRE DE LA PRCTICA

PGINAS

UNIDAD UNO Y DOS

UNIDAD TRES
6 7 8 9 10 CONSTANTES Y VARIABLES TIPOS DE OPERADORES ESTRUCTURAS SELECTIVAS ESTRUCTURAS REPETITIVAS EJERCICIOS DE ESTRUCTURAS DE CONTROL

UNIDAD IV y V
11 12 13 14 CREACIN DE UNA BASE DE DATOS VINCULACIN DE UNA TABLA CON UN FORMULARIO CREAR REPORTES CREACIN DEL PROYECTO

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

INTRODUCCION

ON LA APARICIN DE LAS COMPUTADORAS SE CRE EL CONCEPTO DE BASES DE DATOS, EN LA CUAL EL ALMACENAMIENTO Y LA CLASIFICACIN DE LA INFORMACIN SE HA FACILITADO. VISUAL BASIC 6.0 ES UNO DE LOS LENGUAJES DE PROGRAMACIN MS POPULARES DEL MUNDO; ES UN PRODUCTO CON UNA INTERFAZ GRFICA DE USUARIO PARA CREAR APLICACIONES PARA WINDOWS BASADO EN EL LENGUAJE BASIC Y EN LA PROGRAMACIN ORIENTADA A OBJETOS, ESTE LENGUAJE ES UTILIZADO TAMBIN POR MICROSOFT EXCEL, MICROSOFT ACCESS Y MUCHAS OTRAS APLICACIONES WINDOWS. POR ESTO LA PREOCUPACIN DE QUE LOS ALUMNOS APRENDAN ESTE LENGUAJE DE PROGRAMACIN ORIENTADO A OBJETOS; A TRAVS DE ESTE CUADERNILLO DE PRCTICAS SE PONE NFASIS EN LA EXPLICACIN DETALLADA DE CADA PRCTICA, PROPONIENDO EJERCICIOS PRCTICOS. ESTO SERVIR PARA QUE EL ALUMNO EN CUALQUIER MOMENTO TENGA UN APOYO DE CONSULTA DEL CONTENIDO DE ESTUDIO PARA LA REALIZACIN DE SU PROYECTO FINAL.

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

OBJETIVOS
LOGRAR UN MEJOR APRENDIZAJE POR PARTE DEL ALUMNO EN LA MATERIA DE PROGRAMACIN VISUAL. QUE EL ALUMNO TENGA UN CUADERNILLO DE PRCTICAS DE LABORATORIO. APOYAR AL DOCENTE CON MATERIAL DE PRCTICAS Y EN SU EXPLICACIN EN LA CLASE MEDIANTE EL USO DE ACETATOS. APOYAR AL ALUMNO PARA LA REALIZACIN DE SU PROYECTO FINAL.

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

PRACTICA UNO
INICIO DE VISUAL BASIC 6.0

1. Abrir Visual Basic 6.0 Inicio/programas/microsoft visual studio 6.0/microsoft visual basic 6.0 dar doble clic al acceso directo.

2.aparece la ventana nuevo proyecto:

1. Verifique que la ficha nuevo est activa y haga clic en el icono EXE estndar

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

2. Presione el botn abrir y aparecer la ventana principal de visual Basic 6.0 con un aspecto similar al siguiente:
BARRA DE TITULO BARRA DE MENS BARRA DE HERRAMIENTAS ESTNDAR VENTANA PROYECTO

VENTA -NA PROPIE -DADES

CUADRO DE HERRAMIENTAS

VENTANA FORMULARIO

VENTANA POSICIN DEL FORMULARIO

3. Identifique a cada elemento.

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

PRACTICA DOS
ENTORNO DE VISUAL BASIC

Crear una aplicacin sencilla que consiste en un cuadro de texto y un botn de comando. Cuando haga clic en el botn de comando aparecer el mensaje "!Hola, CBTIS 15!" en el cuadro de texto.

1. Crear la interfaz
El primer paso para generar una aplicacin de Visual Basic consiste en crear los formularios que van a ser la base de la interfaz de su aplicacin. Despus dibuje los objetos que van a componer la interfaz en los formularios que ha creado. Para esta primera aplicacin, usaremos dos controles del cuadro de herramientas. Botn Control Cuadro de texto

Botn de comando

Dibujar un cuadro de texto con el cuadro de herramientas

Para dibujar un control mediante el cuadro de herramientas 1. Haga clic en la herramienta del control que ha elegido dibujar; en este caso el cuadro de texto. 2. Mueva el puntero dentro del formulario. El puntero adoptar la forma de cruz, como se muestra en la figura 2.3.

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

Figura 2.3

3. Coloque la cruz donde quiera que aparezca la esquina superior izquierda del control. 4. Arrastre la cruz hasta que el control tenga el tamao deseado. (Arrastrar significa mantener presionado el botn primario del mouse mientras mueve un objeto con el mouse.) 5. Suelte el botn del mouse. El control aparecer en el formulario. Otra forma sencilla de agregar un control a un formulario es hacer doble clic en el botn de ese control en el cuadro de herramientas. Esto crea un control con un tamao predeterminado situado en el centro del formulario; ahora puede mover el control a otra ubicacin del formulario. Cambie el tamao, movimiento y bloqueo de controles

Ya tiene la interfaz de la aplicacin "Hola, CBTIS 15!", como se muestra en la figura 2.4.

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

Figura 2.4

La interfaz de la aplicacin "Hola, CBTIS 15!"

2. Establecer propiedades
El siguiente paso consiste en establecer las propiedades de los objetos que ha creado. La ventana Propiedades (figura 2.5) proporciona una manera fcil de establecer las propiedades de todos los objetos de un formulario. Para abrir la ventana Propiedades, elija el comando Ventana Propiedades del men Ver, haga clic en el botn Ventana Propiedades de la barra de herramientas o utilice el men contextual del control.

Figura 2.5 La ventana Propiedades

M.C.A. Jos David Luna Hernndez

P R O G R A M A C I N

V I S U A L

En el ejemplo "Hola, CBTIS 15!" Necesitar cambiar los valores de tres propiedades. Use el valor predeterminado para las dems propiedades. Objeto Form TextBox CommandButton Propiedad Caption Text Caption Valor Mi primera aplicacin (Vaco) Aceptar

Establecer la propiedad Icon Todos los formularios en Visual Basic tienen un icono genrico predeterminado que aparece cuando minimiza ese formulario. Sin embargo, probablemente cambiar este icono por uno que ilustre el uso del formulario en su aplicacin. Para asignar un icono a un formulario, establezca la propiedad Icon para ese formulario.

3. Escribir cdigo
Para abrir la ventana Cdigo

Haga doble clic en el control para el que desea escribir cdigo.

La figura 2.6 muestra la ventana Editor de cdigo que aparece cuando hace doble clic en el control botn de comando y los eventos de ese comando. Figura 2.6 La ventana Editor de cdigo

Crear el procedimiento de evento

M.C.A. Jos David Luna Hernndez

10

P R O G R A M A C I N

V I S U A L

Para crear el procedimiento de evento 1. En el cuadro de lista Objeto, seleccione el nombre de un objeto del formulario activo. (El formulario activo es el formulario que actualmente tiene el enfoque.) Para este ejemplo, elija el botn de comando, Command1. 2. En el cuadro de lista Procedimiento, seleccione el nombre de un evento del objeto seleccionado. Aqu, el procedimiento Click ya est seleccionado puesto que es el procedimiento predeterminado para un botn de comando. Observe que ahora se presenta en la ventana Cdigo una plantilla para el procedimiento de evento. 3. Escriba el siguiente cdigo entre las instrucciones Sub y End Sub:
4. Text1.Text = "Hola, CBTIS 15!"

El procedimiento de evento debera parecerse a ste:

Observar que aqu el cdigo simplemente cambia la propiedad Text del control llamado Text1 para que sea "Hola, CBTIS 15!". La sintaxis de este ejemplo tiene el formato objeto.propiedad, donde Text1 es el objeto y Text la propiedad. Puede usar esta sintaxis para cambiar los valores de las propiedades de cualquier formulario o control como respuesta a los eventos que se producen mientras se ejecuta su aplicacin.

Ejecutar la aplicacin
Para ejecutar la aplicacin, elija Iniciar en el men Ejecutar, haga clic en el botn Iniciar de la barra de herramientas o presione F5. Haga clic en el botn de comando que ha creado en el formulario y ver cmo aparece "Hola, CBTIS 15!" en el cuadro de texto.

M.C.A. Jos David Luna Hernndez

11

P R O G R A M A C I N

V I S U A L

PRACTICA TRES
CREACIN DE FORMULARIOS

Crea una etiqueta sencilla. Objeto Label Propiedad Name Caption Wordwrap Backcolor Border style Forecolor Crea la etiqueta con cdigo. *Con el evento clic. Private sub lblTitulo_click() lblTitulo.caption=Visual Basic 6.0 End sub *Con el evento doble clic. Private sub lblTitulo_Dblclick() lblTitulo.caption=Es un lenguaje de alto nivel. End sub *Con el evento puntero del ratn. Private sub lblTitulo_Mousemove(Button as integer, y as single) lblTitulo.mousepointer=2 Endsub Crea un cuadro de texto. Objeto Propiedad Valor Valor lblTitulo Visual Basic 6.0 es un lenguaje de Alto nivel Verdadero Amarillo 1 fixed Azul

M.C.A. Jos David Luna Hernndez

12

P R O G R A M A C I N

V I S U A L

TextBox

Name Text

txtComentario Presenta funciones avanzadas

Crea el cuadro de texto con cdigo. *Con el evento clic. Private sub txtComentario_click() txtComentario.Text= Al dar clic se borra el mensaje. End sub *Con Doble clic. Private sub txtComentario_Dblclick() txtComentario.Text=Presenta funciones avanzadas txtComentario.alignment=1 Al dar doble clic alinea a la derecha. End sub Crea otro cuadro de texto. Objeto TextBox Propiedad Name Text Passwordchar * Valor TxtTitulo

Crea el cuadro de texto con cdigo. *Con el evento cambio. Private sub txtTitulo_Change() txtTitulo.passwordchar=* Al escribir la clave escribe ****** End sub Escribir cdigo para que al cargar el formulario(frmFormulario1), borre el objeto creado. *Con el evento carga. Private sub frmformulario1_load() txtTitulo.visible=False Esta propiedad oculta el objeto txtTitulo End sub

M.C.A. Jos David Luna Hernndez

13

P R O G R A M A C I N

V I S U A L

PRACTICA CUATRO
CONTROLES ESTNDAR (BSICOS) DE FORMULARIOS.

Crear una etiqueta. Crear una etiqueta con el texto La participacin ciudadana en las elecciones es un compromiso, en 2 lineas y estilo italica. Objeto Label Propiedad Name Caption Valor lblTitulo La participacin ciudadana en las elecciones es un compromiso. Wordwrap Backcolor Border style Forecolor Font Width Height Verdadero Amarillo 1 fixed Azul Arial 16 3000 500

Crea la etiqueta con cdigo. *Con el evento clic. Private sub lblTitulo_click() lblTitulo.caption=Actualizacin Docente Cambia el mensaje. End sub *Con Doble clic. Private sub lblTitulo_Dblclick() lblTitulo.width=6000 Cambia el largo y lblTitulo.Height=1000 ancho de la etiqueta. End sub *Con el evento puntero del ratn. Private Sub lblTitulo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) lblTitulo.MousePointer = 6 Cambia el puntero del ratn. End Sub

M.C.A. Jos David Luna Hernndez

14

P R O G R A M A C I N

V I S U A L

Crea un cuadro de texto. Objeto TextBox Propiedad Name Text Passwordchar # Valor txtTitulo

Crea el cuadro de texto con cdigo. *Con el evento clic Private Sub txtTitulo_Click() txtTitulo.Text = "" Al hacer clic sobre el cuadro de texto, elimina el texto. End Sub

*Con el evento Doble clic. Private Sub txtTitulo_DblClick() txtTitulo.Visible = False Al hacer doble clic sobre el cuadro de texto, lo oculta. End Sub

Crea un Botn de opcin. Objeto CommandButton Propiedad Name Caption *Con el evento clic Private Sub cmdEliminar_Click() cmdEliminar.FontBold = True cmdEliminar.FontSize = 16 cmdEliminar.FontName = "Arial" cmdEliminar.Enabled = False End Sub Valor cmdEliminar &Eliminar

Cambia a negrita la letra Cambia a 16 el tamao de la letra Cambia a Arial el tipo de letra Inhabilita el botn al dar clic.

M.C.A. Jos David Luna Hernndez

15

P R O G R A M A C I N

V I S U A L

Crea un Formulario. Y una imagen. Objeto Propiedad Name Caption Form Image Name Heigth Width BorderStyle ImgImagen 4500 7500 1 Fixed Valor FrmFormulario4 Practica cuatro

*Con el evento Load. Para el formulario. Private Sub Form_Load() frmformulario4.Height = 6000 Cambia el ancho y el frmformulario4.Width = 8500 largo del formulario Set imgImagen.Picture=LoadPicture("c:\aros.BMP") Carga una imagen en imgImagen imgImagen.Stretch = True La imagen cargada la ajusta al tamao de imgImagen imgImagen.MousePointer = 2 Cambia el puntero del ratn frmformulario4.BorderStyle = 0 Cambia el estilo del borde del formulario End Sub

*Con el evento clic para la imagen. Private Sub imgImagen_Click() frmformulario4.WindowState = 1 Al dar clic a la imagen, minimiza el formulari o. End Sub

M.C.A. Jos David Luna Hernndez

16

P R O G R A M A C I N

V I S U A L

PRACTICA CINCO
EJERCICIOS CON FORMULARIOS: PROGRAMA NAVEGADOR

Seguir los pasos indicados para esta prctica en la antologa.

M.C.A. Jos David Luna Hernndez

17

P R O G R A M A C I N

V I S U A L

PRACTICA SEIS
EJERCICIOS CON FORMULARIOS: PROGRAMA COMPRA INTERACTIVA

Seguir los pasos indicados para esta prctica en la antologa.

M.C.A. Jos David Luna Hernndez

18

P R O G R A M A C I N

V I S U A L

PRACTICA SIETE
CONSTANTES, VARIABLES

Realice los siguientes ejercicios: 1. Variables Realice un ejemplo con otros valores de variables, para el ejercicio de la pgina 63 del libro Visual Basic. Curso de programacin; mostrando el resultado como comentario.

2. Constantes
Elabore el ejercicio de pgina 51 de la antologa. (Leer desde pgina 49); Elaborando un cuadro de mensaje (msgbox) para cada tipo de constante de la tabla 7.1

3. Msgbox()

Cuadros de mensaje

Muestre el resultado del siguiente cdigo, al hacer clic sobre un botn.(respectivamente) pgs. 53 y 54. antologa.
Intrespuesta=Msgbox(Est encendida la impresora?,vbYesNo+vbCritical+vbDefaultButton2) IntRespuesta=MsgBox(Est encendida la impresora?, vbYesNoCancel+vbQuestion+vbDefaultButton2, Cuadro de pregunta)

Dim Men As string Men=Hoy aprend a definir los cuadros de mensaje con Msgbox Inrespuesta=Msgbox(Men, vbYesNo+vbCritical+vbDefaultbutton2,Mensaje)

4. Inputbox()

Cuadros de entrada

Muestre el resultado del siguiente cdigo, al hacer clic sobre un botn.(respectivamente) pgs. 56 de antologa.(leer desde pg. 55)
StrRespuesta=Inputbox(Cul es el nombre del cliente?,Obtener nombre) StrRespuesta=Inputbox(Cul es el nombre del cliente?, Obtener nombre, Patricia Tovar, 500, 750) StrRespuesta=inputbox(Por favor escribe tu nombre, Obtener nombre, Escribe aqu tu nombre,3000,3000)

*sustituye Escribe aqu tu nombre por tu nombre.

M.C.A. Jos David Luna Hernndez

19