CBTis No. 64

Ing. Rosa Celina Valenzuela Torres PRACTICA 1 VISUAL BASIC

OBJETIVO: Crear el primer programa utilizando Controles Básicos. El conjunto completo de pantallas e imágenes utilizados por un programa se denomina interfaz de usuario. El sistema de programación de Visual Basic te permitirá crear con rapidez y eficacia todos los componentes de una aplicación profesional basada en Windows. Un formulario es una ventana que podrás adaptar a tus gustos o necesidades personales para crear la interfaz de usuario de tu programa. PUESTA EN MARCHA DE VISUAL BASIC 1. Pulsa el botón inicio, despliega el menú programas, selecciona la carpeta de visual Studio 6.0 y selecciona Visual Basic 6.0 2. Pulsa el icono correspondiente al programa Estándar Exe y presiona el botón Abrir. El entorno de programación de Visual Basic aparecerá en tu pantalla. El entorno de Programación de VB contiene herramientas de programación como: la barra de menús (que se encuentra en la parte superior de la pantalla, debajo de la barra de título), la barra de herramientas (se encuentra debajo de la barra de menús) y la caja de herramientas (se presenta por lo general en la parte izquierda de la pantalla). EL PRIMER PROGRAMA: ¡¡¡¡ HOLA MUNDO !!!!! 1. VB te muestra un formulario vacío en el centro de la pantalla que te servirá para construir tu interfaz de usuario. En primer lugar, pulsa con el ratón el control TextBox contenido en la caja de herramientas. 2. Sitúa el puntero del ratón en la parte superior central del formulario, y dibuja un cuadro de texto. 3. De la misma manera, utilizando los controles adecuados, dibuja los objetos, tal como aparece en la figura . 4. Utilizando la ventana Propiedades, asigna las siguientes propiedades a los objetos que acabas de crear:

Control Form1 Label1 Label2 Text1 Text2 Programación Visual

Propiedad Nombre Caption Caption Autosize Caption Visible Text Text

Valor FrmHolaMundo ¡¡¡ HOLA MUNDO !!! Escribe tu nombre True Este es tu primer programa con VB False borra su contenido (vacío) borra su contenido(dejalo vacío) 1

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

Command1 Command2

Visible Enabled Alignment Nombre Caption Nombre Caption Visible

False False 2-Center CmbAceptar Aceptar CmbRegresar Regresar False

Sugerencia: cambia las propiedades Font, BackColor, ForeColor, Appearance, BackStyle, BorderStyle de los objetos que creaste en el formulario y verás como cambia su apariencia y personalizas más tu programa. 5. Realiza una doble pulsación sobre el botón Aceptar, aparecerá la ventana Código, que es una ventana especial dentro del entorno de programación que deberás utilizar para introducir o editar a cualquier sentencia o instrucción de programa en VB. La ventana código, contendrá dos instrucciones de programa, aquellas que marcan el comienzo y el final de la subrutina o procedimiento de VB. El cuerpo principal del procedimiento siempre deberá encontrarse situado entre las dos instrucciones anteriores. Introduce las siguientes instrucciones para el evento Clic del botón CmbAceptar: Private Sub CmbAceptar_Click() Text2.Text = "Hola " & Text1.Text 'cambiaremos la propiedad visible de algunos objeto Text2.Visible = True Label2.Visible = True CmbRegresar.Visible = True Label1.Visible = False Text1.Visible = False CmbAceptar.Visible = False End Sub En la primera línea de ésta codificación, le estamos cambiando la propiedad text al cuadro de texto text2 y en las siguientes se cambia la propiedad visible a algunos objetos. Las líneas que inician con un apostrofe ‘ son comentarios que no se ejecutan (son opcionales pero son recomendables para documentar el programa y facilitar su interpretación posteriormente). Los comentarios también pueden ir después de una instrucción en la misma línea de código. 6. Siguiendo el mismo procedimiento del paso anterior, escribe el siguiente código para el evento clic del botón Regresar: Private Sub CmbRegresar_Click() Text1.Visible = True Text1.Text = "" ' vacía el contenido de la caja de texto Label1.Visible = True CmbAceptar.Visible = True Text2.Visible = False Label2.Visible = False CmbRegresar.Visible = False End Sub Programación Visual

2

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

En la ejecución del programa, el usuario introducirá un nombre en el cuadro de texto y al presionar el botón aceptar, se ocultarán los objetos visibles y se mostrarán los que estaban no-visibles, mostrando la bienvenida. Algo similar ocurrirá al presionar el botón regresar. GUARDAR EL PROGRAMA: 1. Presiona el botón guardar de la barra de herramientas (icono:un disco) 2. VB te pedirá nombrar el formulario el cual tendrá extensión .frm . borra el contenido del cuadro de texto Nombre y escribe Mi Hola 3. Posteriormente te pedirá nombrar el proyecto el cual tendrá extensión .vbp . Nombralo Mi Hola. se guardarán dos archivos con el mismo nombre pero con distinta extensión. (Si realizas algún cambio en tu proyecto después de haber guardado, deberás guardarlo de nuevo). EJECUCIÓN DEL PROGRAMA: 1. Pulsa el botón Iniciar contenido en la barra de herramientas (icono:triangulo) 2. El programa empezará a ejecutarse. En modo de Ejecución, escribe tu nombre en el cuadro de texto y posteriormente pulsa el botón Aceptar del formulario. Deberá aparecer el mensaje de Bienvenida. Si no es así, repite los pasos comentados anteriormente y vuelve a construir el programa. 3. Pulsa el botón regresar y vuelve a repetir el procedimiento cuantas veces quieras y tecleando el nombre que desees cada vez. 4. Pulsa el botón cerrar de la ventana HOLA MUNDO, para terminar con la ejecución. COMO SALIR DE VISUAL BASIC: 1. Despliega el menú archivo y selecciona la opción salir, o, pulsa el botón cerrar (X) de la ventana de visual BASIC. Si realizaste algunos cambios a tu proyecto, te aparecerá una ventana donde pregunta si deseas guardar esos cambios a lo que contestarás lo que te convenga.

Programación Visual

3

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

PRACTICA 2 VISUAL BASIC OBJETIVO: Utilizar cuadros de texto, botones de orden y cuadros de imágenes. Programa: SIETE AFORTUNADO. Misión: el programa deberá llevar a cabo las siguientes acciones:  Proporcionar una interfaz de usuario que cuente con los botones Jugar y Fin, 3 ventanas giratorias, un rótulo descriptivo y una ventana que muestre las ganancias.  El programa deberá generar tres números aleatorios y mostrarlos en sus respectivas ventanas cuando el usuario pulse el botón jugar.  Mostrar una pila de monedas y pitar cada vez que el número 7 aparezca en una de las ventanas giratorias.  Terminar la ejecución del programa cada vez que el usuario pulse el botón Fin. CREACIÓN DE LA INTERFAZ DE USUARIO. 1. Inicia Visual Basic. 2. En el formulario vacío, crea dos botones de orden del mismo tamaño para dar mejor aspecto. Añade las 3 etiquetas utilizadas para mostrar los números, cuando el usuario pulse el botón Jugar (deberán aparecer tres números aleatorios en éstos cuadros de etiqueta). Añade otra etiqueta, donde se escribirá el título del programa. 3. Pulsando el control PictureBox de la caja de herramientas, Añade un cuadro de imagen al formulario. Estos están diseñados para mostrar mapas de bits, iconos y otros tipos de dibujos en tus programas. Este objeto recibirá el nombre de picture1. El formulario deberá estar en estos momentos similar al de la figura. 4. Ahora cambiaremos las propiedades de los objetos, de la siguiente manera: Control Command1 Command2 Label1

Label2

Label3

Label4

Picture1

Programación Visual

Propiedad Caption Caption Alignment BorderStyle Font Caption Alignment BorderStyle Font Caption Alignment BorderStyle Font Caption Caption Alignment ForeColor Picture

Valor Jugar Fin 2-Center 1-Fixed Single TimeNew Roman, Negritas y de punto 24 (dejarlo vacío) 2-Center 1-Fixed Single TimeNew Roman, Negritas y de punto (dejarlo vacío) 2-Center 1-Fixed Single TimeNew Roman, Negritas y de punto (dejarlo vacío) Siete Afortunado 2-Center pulsa en el cuadro de color sobre el morado obscuro busca en el disco duro la ruta: C:\Archivos de programa\Microsoft Visual

4

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres Visible

Studio\Common\Graphics\Metafile\Bussine\Coins False

ESCRITURA DEL CÓDIGO: 1. Realiza una doble pulsación sobre el botón de orden Fin contenido en el formulario. 2. Escribe entre las dos instrucciones que te aparecen en la ventana de código la palabra End, pulsando antes la barra espaciadora un total de cuatro veces, para darle sangría a la instrucción, que es el estilo de programación de Visual Basic. 3. Despliega la opción Command1 dentro del cuadro de lista. 4. Introduce las siguientes líneas de programa , pulsa enter después de terminar cada línea y pon el máximo de cuidado para escribir las instrucciones del programa tal y como aparecen a continuación. Si cometes algún error, elimina la instrucción incorrecta y prueba a escribirla de nuevo. Private Sub Command1_Click() Picture1.Visible = False 'Oculta la imagen Label1.Caption = Int(Rnd * 10) 'Calcula los números aleatorios Label2.Caption = Int(Rnd * 10) Label3.Caption = Int(Rnd * 10) 'Si alguna de las etiquetas numéricas coinciden con un 7 habrá que 'mostrar la pila y emitir un sonido. If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then Picture1.Visible = True Beep End If End Sub Este procedimiento se ejecutará cuando el usuario pulse el botón Jugar contenido en el formulario. Este procedimiento realiza 3 tareas: oculta la imagen, crea tres números aleatorios que se mostraran en las ventanas de rótulos y visualizará la pila de monedas cuando aparezca algún siete. La función Rnd proporciona un número aleatorio comprendido entre 0 y 1. la función Int trunca los decimales para obtener únicamente el número entero al multiplicar por 10, de ésta forma se obtendrá un número aleatorio comprendido entre 0 y 9. Cierra la ventana de Código. 5. Graba con el nombre de Siete Afortunado, tanto el proyecto como el formulario. 6. Ejecuta el programa, pulsando el botón jugar 15 o más veces y observa el resultado. Para terminar la ejecución pulsa el botón Fin del formulario. 7. Si vuelves a ejecutar el programa varias veces te darás cuenta que los números son aleatorios pero siempre empieza la misma serie de números aleatorios. Para que la serie sea diferente cada vez que se ejecuta, deberemos usar una función Randomize, que se deberá ejecutar cuando se cargue el formulario, entonces deberemos escribir de la siguiente manera el código: Private sub form1_load() Randomize End sub 8. Graba de nuevo el proyecto y vuelve a ejecutar el programa. Juega varias veces y te darás cuenta que cada vez que inicias un juego, la serie de números es diferente. 9. Cierra el Visual Basic, si hiciste alguna modificación, guarda esos cambios al cerrar.

Programación Visual

5

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

PRACTICA 3 VISUAL BASIC OBJETIVO: Utilización de objetos que permiten acceder al sistema de archivos. Visual Basic, cuenta con tres tipos de objetos de gran utilidad para poder acceder al sistema de archivos, estos son: Cuadros de lista de Unidad, que te permite examinar las unidades de disco instaladas en tu computadora; Cuadros de lista de Directorios, que te permitirá navegar por las carpetas contenidas en una determinada unidad de disco; y Cuadros de lista de Archivos, que te permitirá seleccionar un determinado archivo contenido dentro de una carpeta y unidad de disco. CONSTRUCCIÓN DE PROGRAMA NAVEGADOR 1. Abre un nuevo proyecto 2. Pulsa el control DriveListBox almacenado en la caja de herramientas 3. Desplaza el puntero del ratón a la esquina superior izquierda del formulario y dibuja un cuadro de lista de unidades. Visual Basic mostrará dentro de este objeto el nombre y la etiqueta de volumen de la unidad de disco activa en ese momento. 4. Pulsa el control FileListBox contenido en la caja de herramientas para añadir un cuadro de lista de directorios al formulario que estás desarrollando. Introduce este nuevo cuadro justo debajo del anterior. Deja suficiente espacio para mostrar, al menos, cuatro o cinco nombres de carpetas en este cuadro de lista. 5. Pulsa el control FileListBox contenido en la caja de herramientas y, a continuación añade un cuadro de lista de archivos al formulario, justo debajo de donde se encuentra el cuadro de lista de directorios. Deja suficiente espacio para que dentro de esta caja se puedan observar cuatro o cinco nombres de archivos. 6. Pulsa el control Image contenido en la caja de herramientas y añade en el formulario un cuadro de imagen de gran tamaño. Deberá situarse este cuadro de imagen a la derecha de los cuadros de lista de unidades, directorios y archivos. Hasta este momento tu formulario deberá verse como el de la gráfica de enseguida. 7. A continuación define las siguientes propiedades utilizando la ventana propiedades:

OBJETO File1

PROPIEDAD Pattern

VALOR *.bmp;*.wmf;*.ico

Form1

Caption

Mi Navegador

DESCRIPCIÓN Mostrará solamente los archivos que contengan esas extensiones. Si no se le asigna valor a esta propiedad, se mostrarán todos los archivos contenidos en la carpeta Título que contendrá el formulario

Image1

Strech BorderStyle

Trae 1-Fixed Single

La imagen se ajustará al tamaño del cuadro Describe el estilo del contorno

Programación Visual

6

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

A continuación se añadirán unas cuantas líneas de programa a los procedimientos de Suceso porque se ejecuta cuando tiene lugar un suceso (tal como hacer clic con el mouse) 8. Realiza una doble pulsación sobre el cuadro de lista de unidades contenido en el formulario y, posteriormente, introduce la siguiente instrucción de programa Private Sub Drive1_Change Dir1.Path = Drive1.Drive Esta instrucción relaciona los objetos cuadro de lista de unidades y el cuadro de lista de directorios, de tal manera que el cuadro de lista de directorios mostrará siempre las carpetas contenidas en la unidad de disco seleccionada. 9.Cierra la ventana de Código y, posteriormente, realiza una doble pulsación sobre el cuadro de lista de directorios. Finalmente, añade la siguiente instrucción de programa: Private Sub Dir1_Change File1.Path = Dir1.Path End Sub 10. Cierra la ventana de código y, realiza una doble pulsación sobre el cuadro de lista de archivos. Añade las siguientes líneas de código al procedimiento: Private Sub File1_Click SeleccionarArchivo = File1.Path &”\”& File1.Filename Image1.Picture = LoadPicture(SeleccionarArchivo) End Sub Estas dos líneas son el corazón del programa. La primera línea utiliza el operador & para combinar las propiedades Path, el carácter \ y la propiedad Filename del objeto file1. El resultado almacena en la variable SeleccionarArchivo el nombre de archivo seleccionado. La segunda instrucción o sentencia contenida en el procedimiento de suceso utiliza la variable SeleccionarArchivo cuando carga el archivo dentro del cuadro de imagen (Image1) del formulario con la función LoadPicture y la propiedad Picture. EJECUCIÓN DEL PROGRAMA NAVEGADOR 1. Pulsa el botón Iniciar contenido en la barra de herramientas. 2. Abre una carpeta utilizando el cuadro de lista de directorios, haciendo doble clic sobre ella. Los metaarchivos de Windows, si es que existen en esta carpeta, aparecerán en el cuadro de lista archivos. 3. finalmente, selecciona un archivo. El archivo seleccionado se mostrará en el cuadro de imagen. 4. Selecciona otro archivo. En el cuadro de imagen, aparecerá el contenido del archivo seleccionado. 5. Utiliza los cuadros de la lista de unidades, directorios y archivos para ver otos mapas de bits, metaarchivos de Windows e iconos contenidos en el disco duro de la computadora. Cuando termines de experimentar con el programa Navegador que acabas de crear, detén el programa y grabalo en tu disco. 6. Pulsa el botón cerrar el formulario. 7. En el menú Archivo selecciona la opción Guardar Proyecto Como y graba el formulario con el nombre de Mi Navegador y asigna el mismo nombre al archivo del proyecto.

Programación Visual

7

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

PRACTICA 4 VISUAL BASIC OBJETIVO: Crear objetos de entrada de datos: botones de opción, cuadros de verificación, cuadros de lista y cuadros combinados. Los botones de opción permiten al usuario seleccionar un elemento de una lista. Los cuadros de verificación permiten que el usuario seleccione cualquier número de elementos. Los cuadros de lista permiten al usuario seleccionar un elemento de una lista de opciones de longitud variable. Los cuadros Combo son como los anteriores, solo que ocupan menos espacio que los cuadros de lista. 1. Crea el siguiente formulario utilizando los controles adecuados de la caja de herramientas:

2. Cambia las siguientes propiedades para cada uno de los objetos que dibujaste: OBJETO

PROPIEDA D

VALOR

DESCRIPCIÓN

Label1

Caption Font Caption

Compra Interactiva Time New Roman, Negrita, 14 ptos. Actualice su Oficina Comprando Productos que Necesite. Time New Roman, Negrita, 8 puntos Productos Pedidos Arial, Negrita, 12 puntos Periféricos (sólo uno) Computadora (necesarias) Equipo de Oficina (0-3) Métodos de Pago SALIR PC Macintosh Portátil Contestador Calculadora Fotocopiadora Trae

Escribe un título Tipo de letra Es un Título

Label2

Label 3 Label4 Frame1 Frame2 Combo1 Command1 Option1 Option2 Option3 Check1 Check2 Check3 Image1-6

Font Caption Font Caption Caption Caption Text Caption Caption Caption Caption Caption Caption Caption Strech

Escribe el Título del marco Texto que contendrá al ejecutarse el Form

Ajusta el tamaño de la figura al cuadro

3. Escribir el siguiente Código Private Sub Check1_Click() If Check1.Value = 1 Then para el cuadro Image2.Picture = LoadPicture("c:\Archivos de programa\ De verificación denominado Microsoft Visual Studio\Common\ Contestador (Check1), Para esto, has doble clic Graphics\Metafile\Business\answmach.wmf") sobre él. Image2.Visible = True

Programación Visual

Else Image2.Visible = False End If End Sub

8

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

Lo que indica el código anterior, es que cuando se hace clic en el cuadro check1 (Contestador), se verifica si la propiedad Value del cuadro Check1 es 1, si es así, se cargará un archivo de imagen en el cuadro Image2 y se hará visible, de lo contrario no se mostrará. 4. De manera similar escribe los siguientes códigos para Check2 y Check3: Private Sub Check2_Click() If Check2.Value = 1 Then Image5.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\ Common\Graphics\Metafile\ Business\Calcultr.wmf") Image5.Visible = True Else Image5.Visible = False End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then Image6.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\ Common\Graphics\Metafile\ Business\Copymach.wmf") Image6.Visible = True Else Image6.Visible = False End If End Sub

5. Cierra la ventana Código y realiza una doble pulsación sobre el cuadro de lista de Periféricos (List1) y escribe el siguiente código: Private Sub List1_Click() Select Case List1.ListIndex Case 0 Image3.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\harddisk.wmf") Case 1 Image3.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\printer.wmf") Case 2 Image3.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\satedish.wmf") End Select Image3.Visible = True End Sub La propiedad ListIndex del cuadro de lista, indica la posición de un elemento en la lista: el primer elemento de la lista se asocia con el número 0, el segundo con el número 1, etc. En el código anterior, la estructura de decisión Select Case evalúa el valor de la propiedad List1.LlistIndex y, según el valor de la misma, se cargará un metaarchivo Windows u otro. 6. Algo similar ocurre con los cuadros de lista combinados (Combo) por lo que escribirás el siguiente código para el cuadro Combo1 en el evento Click() Private Sub Combo1_Click() Select Case Combo1.Text Case “Dólares USA” Image4.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\dollar.wmf") Case “Cheque” Image4.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\check.wmf") Case “Libra Esterlina” Image4.Picture = LoadPicture("c:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\nickel.wmf") End Select Image4.Visible = Trae

Programación Visual

9

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

End Sub

7. Cierra la ventana Código y realiza una doble pulsación en el formulario (sobre ninguno de los objetos allí mostrados). Aparecerá el procedimiento que se ejecutará cada vez que se ponga en marcha el programa “Compra Interactiva” (Form Load). Escribe el siguiente código para este procedimiento. Private sub Form_Load() Image1.Picture = LoadPicture(“C:\ Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\pcomputr.wmf") List1.AddItem “Disco Duro Adicional” List1.AddItem “Impresora” List1.AddItem “Antena Receptora” Combo1.AddItem “Dólares USA” Combo1.AddItem “Cheque” Combo1.AddItem “Libras Esterlinas” End Sub La primera línea del código cargará en pantalla, dentro del primer cuadro de imagen, el contenido del metarchivo Windows correspondiente a una computadora personal, ya que se trata del valor por omisión que se mostrará en el botón de opción Computadora. Las siguientes tres líneas añaden elementos al cuadro de lista Periféricos del programa. En las últimas tres líneas, se añaden elementos a la lista combinada. 8. Escribe el siguiente código para el botón de orden Command1 que servirá para finalizar la ejecución del programa: Private Sub Command1_Click() End End Sub 9. El siguiente código lo escribirás para los botones de opción, de tal manera que al seleccionar uno de ellos se visualice un artículo diferente en el cuadro de imagen Image1. Private sub Option1_Click() Image1.Picture = LoadPicture(“C:\ Archivos de programa\Microsoft Visual Studio\ Common\Graphics\Metafile\Business\pcomputr.wmf") End Sub 10. Para el botón de opción Option2 Private sub Option2_Click() Image1.Picture = LoadPicture(“C:\ Archivos de programa\Microsoft Visual Studio\ Common\Graphics\Metafile\Business\computer.wmf") End Sub 11. Para el botón de opción Option3 Private sub Option3_Click() Image1.Picture = LoadPicture(“C:\ Archivos de programa\Microsoft Visual Studio\ Common\Graphics\Metafile\Business\laptop2.wmf") End Sub 12. Para terminar ejecuta el programa y oprime todas las opciones de diferentes formas como aparecen en la pantalla. Ve depurando tu proyecto en caso necesario. 13. Graba el proyecto y el formulario con el nombre de Mi Compra.

Programación Visual

10

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres PRACTICA 5

OBJETIVO: Creación de Objetos OLE 1. Entrar al Visual Basic. 2. En la esquina superior izquierda del formulario, crea un rótulo que muestre el título “Proyecto Urbanistico”. Debajo de éste crea un segundo rótulo con el contenido: Estimación de proyecto utilizando Word, Excel y paint. 3. Debajo de la segunda etiqueta, crea tres rótulos adicionales que tengan el siguiente contenido: Memoria de Calidades, Cálculos de Costos y Planos de la obra. Introduce estos tres rótulos en el formulario de forma equiespaciada. El objetivo de éstos tres rótulos es identificar los objetos OLE utilizados para poner en marcha las aplicaciones Word, Excel y Paint, respectivamente .(Un objeto OLE se utiliza para ejecutar aplicaciones desarrolladas para windows desde su programa). 4. Pulsa el control OLE contenido en la caja de herramientas. 5. debajo del rótulo MEMORIA DE CALIDADES crea un rectángulo, utilizando el control OLE. Cuando sueltes el botón del ratón aparecerá en la pantalla el cuadro de dialogo Insertar objeto, que contendrá una lista de todas las aplicaciones que podrás utilizar en el programa. 6. Desplaza hacia abajo la lista de objetos y selecciona el elemento Microsoft Word (Documento), si es que tiene instalado el sistema el programa Word para windows 95, 98, NT o XP. 7. Pulsa el cuadro de verificación Mostrar como icono, contenido dentro del cuadro Insertar objeto, con el objetivo de que la aplicación aparezca como un icono en el programa de Visual Basic que estas desarrollando. Si no pulsas este cuadro de verificación el objeto de la aplicación se mostrará en una ventana aparte. 8. Pulsa Aceptar para cerrar el cuadro de dialogo Insertar objeto y para abrir Word. Se ejecutará el programa Word y se mostrará un documento vacío dentro de este procesador de texto. Este documento se convertirá en una plantilla dentro del programa “Proyecto Urbanístico”. Podrá contener cualquier información que un contratista pueda encontrar de utilidad cuando maneje el programa, tales como detalles sobre la compañía constructora, nombres, direcciones , precios, materiales, etc. 9. Por ahora, sólo deberás introducir el rótulo Notas Estimativas. A continuación, selecciona la opción Fecha y Hora del menú Insertar para añadir a la plantilla la fecha actual del sistema (puedes darle un formato especial al documento si así lo deseas). El texto aparecerá posteriormente en el programa tal y como ahora lo introduzcas en Word. 10. En el menú Archivo de Word selecciona guardar y después la opción salir. Modifica el tamaño del objeto OLE o de la etiqueta de texto si existe algún problema entre ambos objetos. 11. Repite los pasos 4 a 10 para añadir en el formulario el objeto Hoja de cálculo de microsoft Excel justo debajo de la etiqueta cálculo de costos y al objeto imagen del tipo mapa de bits debajo de la etiqueta Planos de Obra. Asegúrate de seleccionar el cuadro de verificación Mostrar como icono dentro del cuadro de diálogo Insertar objeto en ambas ocasiones. Si manejas con soltura ambos programas puedes añadir alguna información a las plantillas, no olvides guardar o actualizar las plantillas antes de cerrarlas. 12. Inserta un botón de orden en la parte inferior del formulario. Una vez que hayas añadido dicho botón, realiza una doble pulsación sobre dicho objeto e introduce la instrucción End en el procedimiento de suceso Command1_Click. Esto hará que el programa finalice cuando se pulse este botón de orden.

Programación Visual

11

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

Al finalizar el formulario deberá quedar como en la figura anterior. 13. Define las siguientes propiedades para los objetos incluidos en el formulario utilizando la ventana Propiedades:

14. 15. 16.

17.

18.

19. 20.

OBJETO PROPIEDAD VALOR Command1 Caption Salir Label1 Font Time New Roman, Negrita, 18 puntos OLE1 Border Style 0-None (cambia estas mismas Appearance 0-Flat propiedades a los BackColor Gris claro objetos OLE2 y OLE3 OLE3 En el menú Archivo selecciona la opción guardar archivo como y almacena en el disco el formulario con el nombre de Mi Proyecto. Del mismo modo graba el proyecto en el disco con el mismo nombre. Ejecuta el programa pulsando el botón iniciar contenido en la barra de herramientas. Realiza una doble pulsación sobre el icono Documento en el programa. El procesador de texto se pondrá en marcha y en la pantalla aparecerá la plantilla de documento creada anteriormente. Escribe unas cuantas líneas de texto y, finalmente, abre el menú Archivo y selecciona la opción salir para volver al programa Mi Proyecto. Realiza una doble pulsación sobre el icono Hoja de Cálculo del programa. Aparecerá la plantilla creada anteriormente en Excel. Introduce algunas filas y columnas de datos dentro de la hoja de calculo, y a continuación, en el menú Archivo, pulsa Salir para volver al programa Mi Proyecto. Realiza una doble pulsación sobre el icono Imagen de Paint y crea un pequeño bosquejo de un plano de construcción con este programa (inténtalo al menos) y en el menú Archivo selecciona la opción Salir y volver a Mi Proyecto. Pulsa el botón salir para finalizar el programa. Repite de nuevo la ejecución. Nótese que los datos introducidos anteriormente no quedan grabados en las plantillas.

Programación Visual

12

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres PRACTICA 6 VISUAL BASIC

OBJETIVO: Utilización de efectos. Visual Basic puede permitir a los usuarios que empleen un movimiento de ratón llamado arrastrar y soltar (Drag and Drop). Podrías desplazar un texto de un lugar a otro, o mover cualquier objeto. Podrás utilizar varias propiedades y dos procedimientos de suceso para controlar las operaciones “arrastrar y soltar”. Podrás asignar a la propiedad DragMode de un objeto el valor 1 para permitir que el usuario desplace el objeto. Podrás utilizar la propiedad dragIcon para especificar que el puntero del ratón aparezca como un dibujo adherido al objeto desplazado mientras lo estés desplazando. Cuando el usuario suelte al objeto sobre el formulario, se ejecutará el procedimiento de suceso DragDrop asociado con el objeto sobre el cual se está colocando el icono. Cuando el objeto desplazado pasa por encima de otro objeto contenido en el formulario. Se ejecuta el procedimiento de suceso DragOver (desplazar sobre) asociado con el objeto sobre el cual está situado el objeto que está siendo desplazado. EMPLEO DE ARRASTRAR Y SOLTAR 1. Pulsa el control label del cuadro de herramientas y crea una etiqueta alargada en la parte superior del formulario. 2. Pulsa el control Image y crea los seis cuadros de imagen mostrados en el formulario:3 3. asigna los valores mostrados en la siguiente tabla a las propiedades especificadas.

Programación Visual

13

CBTis No. 64 OBJETO Label1 Form1 Image1

Image2

Image3

Image 4

Image 5

Image6

Ing. Rosa Celina Valenzuela Torres PROPIEDAD Caption Font Caption Picture Stretch Picture DragIcon DragMode Picture DragIcon DragMode Tag Picture DragIcon DragMode Picture DragIcon DragMode Picture Stretch Visible

VALOR Tiralo todo y arroje después el cerillo Time New Roman, Negrita, 12 puntos Barril Incinerador C:\archivos de programa\Microsoft visul studio\common\ graphics\Icons\computer\trash02a.ico True C:\……\Icons\computer\cdrom02.ico C:\….\Icons\computer\cdrom02.ico 1-Automatic C:\……\Icons\Elements\Fire.ico C:\……\Icons\Elements\Fire.ico 1-Automatic Fuego C:\……\Icons\Industry\gaspump.ico C:\……\Icons\Industry\gaspump.ico 1-Automatic C:\……\Icons\Arrows\pointl1.ico C:\……\Icons\Arrows\pointl1.ico 1-automatic C:\……\Icons\Computer\trash02b.ico True False

4. Pulsa dos veces el botón Image1 (el barril vacío) del formulario. 5. Abre el cuadro de lista desplegable Proc de la ventana Código y selecciona el suceso DragDrop. (lo que se escriba aquí se ejecutará al soltar el objeto después de arrastrarlo). 6. Escribe las siguientes instrucciones de programa: 7. Source.Visible = False If Source.Tag = “Fuego” then Image1.Picture = Image6.Picture End If La primera línea oculta el objeto que fue arrastrado y soltado, el resto de las líneas comprueban si el objeto tirado fue el icono del cerillo. Si la verificación resulta verdadera, la estructura de decisión enciende el fuego copiando el icono del barril en llamas sobre el icono del barril vacío. Cierra la ventana de código. 8. Graba el proyecto y el formulario con el nombre de Mi Arrastrar. 9. Ejecuta el programa. Arrastra el icono Cd-Rom hacia el barril incinerador y suelta el botón del ratón. Conforme se desplaza el icono, el puntero del ratón desaparece (así trabaja la propiedad DragIcon). Arrastra el resto de los iconos. Finalmente, arroja el cerillo sobre el barril. En el momento en que sueltes edl botón del ratón, el barril incinerador empezará a arder. 10. Finaliza la ejecución del programa.

Programación Visual

14

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres PRACTICA 7 VISUAL BASIC

OBJETIVO: Crear una animación. 1. Entra al Visual Basic y abre el proyecto Mi Arrastrar. 2. Pulsa el control PictureBox contenido en la caja de herramientas y dibuja un pequeño rectángulo por encima del barril incinerador vacío del formulario. 3. Pulsa el control Timer de la caja de herramientas y dibuja un objeto temporizador en la esquina inferior izquierda del formulario. El objeto temporizador (Timer1) reajusta su tamaño por si solo en el formulario. 4. Asigna las siguientes propiedades para el cuadro de dibujo y el temporizador: OBJETO Picture1

PROPIEDADES VALOR Appareance 1-3D BorderStyle 0-None Picture C:\....\Icons\Elements\cloud.ico Visible False Timer1 Enabled False Interval 65 5. Realiza una doble pulsación sobre el barril incinerador vacío. El procedimiento de suceso Image1_DragDrop aparecerá en la ventana Código. Actualiza el procedimiento agregando la cuarta y quinta línea: Source.Visible = False If Source.Tag = “Fuego” then Image1.Picture = Image6.Picture Picture1.Visible = True Timer1.Enabled = true End If Las nuevas instrucciones harán visible el icono de la nube y ponen en funcionamiento el temporizador para desplazar la nube. 6. Abre el cuadro de lista desplegable Objeto de la ventana Código y pulsa el objeto Timer1. El procedimiento de suceso Timer1.Timer aparecerá en la ventana Código. Escribe las siguientes instrucciones de programa: If Picture1.top > 0 Then Picture1.Move Picture1.left – 50, Picture1.top – 75 Else Picture1.Visible = False Timer1.Enabled = False End If En el momento que se active el temporizador, esta estructura If..Then se ejecutará cada 65 milisegundos. La primera línea del programa comprueba si la nube de humo ha alcanzado el borde superior del formulario. Si no fuese así (si la propiedad Top sigue siendo positiva), el programa utiliza un método Move relativo para desplazar la nube 50 twips más cerca del borde izquierdo y 75 twips más cerca de la parte superior del formulario. (1 twips es 1/1440 pulgadas). ¿Qué pasará si éstos valores son positivos en el código del objeto Timer1? ¿Si los aumentas? ¿Si los disminuyes?. Has la prueba , después de ejecutar el programa, luego vuelve a ponerlos como está en el código. 7. Graba para que se guarden las modificaciones y Ejecuta el programa (cada vez que cambies los valores)

Programación Visual

15

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres PRACTICA 8 Visual Basic

Objetivo: Creación del proyecto y el primer formulario, El Menú Principal El programa que vamos a realizar es un organizador de discos, cintas, videos, libros, juegos, etc... desde la base de datos hasta los formularios. Va a ser un programa muy básico, añadir, mantenimiento e imprimir, pero una de las cosas más importantes en este tipo de programas es la estética y la facilidad de uso.

El programa será un organizador multimedia. Constará de 6 formularios que serán: Menú Principal, Añadir Entradas, Mantenimiento de Datos, Buscar, Mostrar Búsqueda e Imprimir.

1. crear primero un directorio donde ir guardando el proyecto, los formularios, módulos, base de datos, etc. 2. Al arrancar V.B. nos pregunta que tipo de proyecto queremos crear nuevo, aquí seleccionamos Exe Estándar. Una vez pulsado esto tenemos el nuevo proyecto y nuestro primer formulario. 3. Cambiamos el nombre del formulario inicial, se va a llamar frmMenuPrincipal. Vamos a las propiedades y cambiamos Name, en un principio será Form1, pues ponemos frmMenuPrincipal, con las mayúsculas donde están (¿por qué?, al hacer referencia en código a este formulario pondremos frmmenuprincipal, al pasar de línea automáticamente se pondrán en mayúsculas la M y la P, con lo cual sabremos que lo hemos escrito bien, si no se pone en mayúsculas puede ser que hayamos escrito mal el nombre. 4. Cambiamos el título de la aplicación, la propiedad Caption del formulario. En principio es Form1, ponemos Organizador de aplicaciones. 5. Ahora incluiremos los botones a utilizar. En el menú principal hay cinco opciones (por lo tanto cinco botones). Con las siguientes propiedades: Botón Name Caption 1

cmbAñadir

Añadir Nuevos

2

cmbMantenimiento Mantenimiento

3

cmbBuscar

Búsqueda

4

cmbImprimir

Imprimir

5

cmbSalir

Salir

8. Si todo ha ido bien, ya tendremos el formulario principal con los botones dentro. Como en la figura.

9. Ahora incluiremos el código del botón cmbSalir. Pulsamos doble encima del control y aparecerá el editor de código con el evento cmbSalir_click(). Ponemos lo siguiente: Private Sub cmbSalir_Click() Programación Visual

16

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres Unload Me End Sub

10. Este código hará que al pulsar sobre Salir, se descargue el formulario (o sea, salga a Windows). 11. Por último, cambiar otra propiedad del formulario. Salimos del editor de código y pulsamos en el formulario para ver sus propiedades. Una de ellas es Border Style, lo ponemos a 3 (¿por qué?, para evitar que el usuario pueda cambiar el ancho y alto del formulario.) Creación de la base de datos

La Base de Datos: ¿Qué datos vamos a guardar? A continuación pondremos las tablas y campos que tendrá la base de datos. Vamos a crearla para que podamos comenzar a utilizarla. Primero abrimos el VB y nuestro proyecto que comenzamos. Una vez abierto pulsamos Complementos del Menú Principal y Administrador Visual de Datos.

Este es el Administrador de Datos:

Estos son los pasos a seguir para crear la base de datos: 1. Pulsamos Archivo, Nueva, Microsoft Access, MDB Versión 7.0 2. Nos pide una localización en el disco duro, seleccionamos EL MISMO DIRECTORIO DE LA APLICACIÓN. Aunque no sea necesario, si es importante a la hora de realizar los discos de instalación que todos los datos estén en el mismo directorio. 3. Nombre de la base de datos OM.mdb. Y ya estamos preparados para añadir la tabla primera. Vamos a la ventana de datos, pulsamos al botón derecho en mitad y seleccionamos Nueva Tabla.

Programación Visual

17

CBTis No. 64 Ing. Rosa Celina Valenzuela Torres 4. Ponemos el nombre de la tabla (Multimedia) y pulsamos en agregar campo.

5.

Vamos añadiendo los datos cómo se explica en la tabla de abajo y, al terminar, pulsamos en Generar la Tabla.

Tabla Campos Multimedia numero titulo autor

6.

Tipo entero texto * 50 texto * 40

fecha

fecha

tipo

text * 20

contenido

text * 30

prestado

boolean

Descripción Contendrá un número asignado automáticamente Título de la entrada Autor de la entrada Fecha de entrada (mas que nada para que veais cómo se utiliza un campo date) Tipo de entrada (CD Musica, CD-Rom, etc) Tipo de contenido (pop, rock, arcade, varios, aventuras, lucha, cifi, etc) Mostrará true si está prestado o false si no

Una vez terminado tenemos ya lista la base de datos para comenzar a realizar los formularios de entrada y consulta de datos.

Programación Visual

18

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

PRACTICA 9 Opción: Añadir Nuevo. Creación del formulario de entrada de datos. ahora creamos un nuevo formulario básico. pulsando en Proyecto - Agregar Formulario. Así tendremos un formulario en vacío y podremos seguir Una vez tenemos el formulario, cambiaremos las siguientes propiedades del mismo: frmAñadirEntrada Propiedad Valor Descripción Name frmAñadirEntrada Nombre del formulario, para referirnos a él. BorderStyle 3 - Fixed Dialog Como dije en la Entrega 1 Caption Añadir Entrada Título del formulario StartUpPosition 2 - Center Screen Posición del formulario cuando se carga. Así tenemos ya el formulario con sus propiedades, el ancho y alto del formulario lo estableceremos con el ratón pulsando en las esquinas del formulario. Este ancho y alto está en función de lo que pongamos ahora nosotros dentro del formulario. Empezaremos añadiendo una etiqueta o control Label, Lo situamos en pantalla, a gusto del 'consumidor' y le ponemos las siguientes propiedades: lblFecha Propiedad Valor Descripción Name LblFecha Nombre de la Etiqueta Alignment 2 – Center Texto centrado Caption Fecha Es la etiqueta del campo Fecha El tipo de letra y color a su gusto. Hay que hacer lo mismo para las etiquetas de: TITULO, AUTOR, TIPO y CONTENIDO. Sólo seguir los pasos anteriores. Si ya hemos añadido todas las Etiquetas, añadiremos las Cajas de Texto o text box,. Añadimos el primero (el de la fecha) y ponemos las siguientes propiedades: txtFecha Propiedad Valor Descripción Name TxtFecha Nombre de la Caja de Texto Text Ponemos la caja de texto vacia Al igual que con las etiquetas, la fuente, color, etc es a su gusto. Hacer lo mismo para las demás cajas que quedan que son: TITULO y AUTOR ya que en TIPO y CONTENIDO pondremos Cajas Combo. Añadimos la caja combo del tipo, que llamaremos comTipo (propiedad Name) y pondremos la propiedad Text="Elije el tipo". Haremos lo mismo con la caja combo de Contenido.

Programación Visual

19

CBTis No. 64 Ing. Rosa Celina Valenzuela Torres Faltan los botones. Uno para Añadir y otro para Volver. Los añadimos y, para finalizar tenemos esto: vamos a poner un control data para poder añadir los datos., es el control que viene con vb para realizar funciones con bases de datos, Añadimos el control Data y cambiamos las propiedades por: dbMul Propiedad Name Caption

Valor Descripción DbMul Nombre del control Data DbMul Ponemos el nombre que nosotros vemos en diseño Ruta de la Base de DataBaseName Pues eso Datos RecordSource Multimedia Tabla que vamos a utilizar Visible False Que en ejecución no se vea Ya tenemos la base de datos enlazada y podemos empezar a escribir código. Aqui empiezan los eventos,. Cada objeto (control, formulario, en fin cualquier cosa) tiene sus propios eventos. Los eventos ocurren en determinadas condiciones, cuando se carga un formulario, cuando se pulsa en un botón, cuando cambia el texto de un Text Box, etc. En fin, nosotros debemos controlar estos eventos. Empezaremos por el evento Load del formulario. Pulsamos doble en el formulario (no en cualquier control sino en el fondo, en el formulario) y aparecerá la ventana de código y el primer evento del formulario que es el Load. Pues empezaremos con él con el siguiente código: Private Sub Form_Load() ' añadimos las categorías y tipos comTipo.AddItem "CD-Música" comTipo.AddItem "CD-ROM" comTipo.AddItem "CD-I" comTipo.AddItem "Video-CD" comTipo.AddItem "DVD" comTipo.AddItem "Cassette" comTipo.AddItem "Vinilo" comTipo.AddItem "VHS" comTipo.AddItem "BETA" comTipo.AddItem "Diskette 3 1/2" comTipo.AddItem "Diskette 5 1/4" comTipo.AddItem "Disco ZIP 100" comTipo.AddItem "Disco ZIP 50" comTipo.AddItem "Backup" comContenido.AddItem "Pop" comContenido.AddItem "Rock" comContenido.AddItem "New Age" comContenido.AddItem "B.S.O." comContenido.AddItem "Música Otros" comContenido.AddItem "Aventura" comContenido.AddItem "Arcade" comContenido.AddItem "Emuladores" comContenido.AddItem "Programación" comContenido.AddItem "Ordenador Otros" Programación Visual

lo que hace es cargar en los controles Combo las opciones que aparecerán al pulsar sobre ellos, tanto en el combo de Tipos como en el de Contenidos. Es muy fácil, simplemente: nombre.AddItem "lo que quieras añadir" Ahora, si ejecutamos el programa, al pulsar sobre el control Combo, aparecerán todas las características que hemos puesto. Eso es todo lo que pondremos en el evento Load del formulario.

20

CBTis No. 64 End Sub

Ing. Rosa Celina Valenzuela Torres

Por último pondremos el código de los botones: cmbAñadir y cmbVolver, en el evento Click de cada uno de ellos. Private Sub cmbVolver_Click() Unload Me End Sub Y aqui está el de cmbAñadir, comentado en el mismo código. Private Sub cmbAñadir_Click() ' recomendaciones iniciales ' hay que controlar los datos que vamos a introducir ' si introducimos una fecha incorrecta ---> ERROR ' si introducimos una cadena más larga de lo que coge ---> ERROR dbMul.Recordset.AddNew ' esto es para decirle ' que vamos a añadir dbMul.Recordset("titulo") = Trim$(txtTitulo.Text) ' añadimos el titulo (el trim es para quitar los espacios de más) dbMul.Recordset("autor") = Trim$(txtAutor.Text) ' igual con el autor dbMul.Recordset("fecha") = Format(txtFecha.Text, "dd/mm/yyyy") ' la fecha utiliza el format que es simplemente para decirle en qué ' formato la añadimos que es dia/mes/año (con 4 digitos) dbMul.Recordset("tipo") = Trim$(comTipo.Text) ' el tipo lo cogemos del combo dbMul.Recordset("contenido") = Trim$(comContenido.Text) ' igual con el contenido dbMul.Recordset.Update ' lo añade definitivamente ' ya está todo ' mostramos un mensaje de que se ha añadido MsgBox ("Ya está dentro") ' vaciamos los campos para añadir otro txtTitulo.Text = "" txtAutor.Text = "" txtFecha.Text = "" comTipo.Text = "Elije el tipo" comTipo.ListIndex = -1 ' indice de la lista, ya lo explicaremos comContenido.Text = "Elije el contenido" comContenido.ListIndex = -1 ' indice de la lista, ya lo explicaremos txtFecha.SetFocus ' mandamos el cursor a la fecha ' ya está End Sub

Programación Visual

21

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

PRACTICA 10 formulario para modificar, eliminar y ver los datos que tenemos introducidos. Mantenimiento de los Datos. En este formulario, podremos ver, modificar y eliminar los datos que ya tenemos introducidos. Así que, comenzaremos realizando el formulario., pulsa en el icono de VB y comenzamos. Carga el proyecto del organizador multimedia y seguiremos. creamos un formulario nuevo y ponemos las siguientes propiedades: frmMantenimiento Propiedad Valor Name frmMantenimiento BorderStyle 3 - Fixed Dialog Mantenimiento Caption Datos StartUpPosition 2 - Center Screen

Descripción Nombre del formulario, para referirnos a él. Como dije en la Entrega 1 de

Título del formulario Posición del formulario cuando se carga.

Ya hemos creado el formulario, establecemos el ancho y alto según las necesidades y continuamos. Creamos las mismas etiquetas y cajas de texto que en el formulario de entrada de datos. Puedes utilizar Copiar y Pegar Una vez con todas las etiquetas y cajas de texto añadiremos el control DBGrid. Si no lo tenemos en la barra de herramientas debemos hacer lo siguiente: Proyecto - Componentes. Una vez dentro seleccionar el control Microsoft Data Bound Grid como indica la imagen.

Programación Visual

22

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

Añadimos tres botones, Modificar, Eliminar y Volver. Ahora vamos a poner el control data (antes que el DBGrid) para poder modificar, ver y eliminar los datos. El objetivo será que, al pulsar en una fila del DBGrid se muestren los datos en las cajas de texto y en ese momento poder modificarlo o eliminarlo. Añadimos el control Data y cambiamos las propiedades por: DbMul Propiedad Name Caption DataBaseName RecordSource Visible

Valor Descripción dbMul Nombre del control Data dbMul Ponemos el nombre que nosotros vemos en diseño Ruta de la Base de Pues eso Datos Multimedia Tabla que vamos a utilizar False Que en ejecución no se vea

Ya tenemos la base de datos enlazada y podemos añadir el DBGrid. Este control va a mostrar los datos del control Data por líneas (un registro en cada línea y un campo en cada columna). Lo ponemos y tendremos algo así:

Ahora cambiaremos las propiedades del control DBGrid. DbgMalla Propiedad Name DataSource Programación Visual

Valor dbgMallal dbMul

Descripción Nombre del control DBGrid El control data con el que enlazamos 23

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

Eso es lo que pondremos, ahora cargamos los campos a mostrar de la siguiente forma:

Nos colocamos encima del control DBGrid con el ratón y pulsamos el botón derecho. Escogemos la opción Recuperar Campos y, fijate, obtendremos los siguiente:

Si queremos podemos cambiar el ancho de las columnas con el comando Editar (pulsando el botón derecho del ratón encima del DBGrid) o cambiar las propiedades del control. Ahora enlazaremos las cajas de texto y los combo box con la base de datos de la siguiente forma: El primero será el txtFecha, lo enlazaremos con el campo Fecha del control data. Cambiaremos las siguientes propiedades de la caja de texto txtFecha: DataSource=dbMul DataField=fecha El campo txtFecha ya está enlazado, haremos lo mismo para los demás pero cambiando los campos por los correspondientes. Una vez terminado podemos ver el resultado (antes hay que llamar a este formulario desde el menú principal,). Prueba a ejecutar la aplicación y veras el resultado (pero antes debes introducir algunos datos). Ahora, debemos continuar con el código que pondremos, primero empezaremos por el evento Load del formulario. Pulsamos doble en el formulario (no en cualquier control sino en el fondo, en el formulario) y aparecerá la ventana de código y el primer evento del formulario que es el Load. Pues empezaremos con él con el siguiente código: Private Sub Form_Load() ' añadimos las categorías y tipos comTipo.AddItem "CD-Música" comTipo.AddItem "CD-ROM" comTipo.AddItem "CD-I" comTipo.AddItem "Video-CD" comTipo.AddItem "DVD" comTipo.AddItem "Cassette" Programación Visual

Es como en el formulario de entrada, simplemente para que al modificar tengamos también todas las opciones

Por último pondremos el código de los botones: cmbEliminar, cmbModificar y cmbVolver, en el evento Click de cada uno de ellos. Private Sub cmbVolver_Click() Unload Me End Sub

24

CBTis No. 64 comTipo.AddItem "Vinilo" comTipo.AddItem "VHS" comTipo.AddItem "BETA" comTipo.AddItem "Diskette 3 1/2" comTipo.AddItem "Diskette 5 1/4" comTipo.AddItem "Disco ZIP 100" comTipo.AddItem "Disco ZIP 50" comTipo.AddItem "Backup" comContenido.AddItem "Pop" comContenido.AddItem "Rock" comContenido.AddItem "New Age" comContenido.AddItem "B.S.O." comContenido.AddItem "Música Otros" comContenido.AddItem "Aventura" comContenido.AddItem "Arcade" comContenido.AddItem "Emuladores" comContenido.AddItem "Programación" comContenido.AddItem "Ordenador Otros" End Sub

Ing. Rosa Celina Valenzuela Torres

Y aqui está el de cmbModificar, que será. Private Sub cmbModificar_Click() dbMul.RecordSet.Edit dbMul.RecordSet.Update End Sub

Ahora el de Eliminar: Private Sub cmbEliminar_Click() dbMul.RecordSet.Delete dbMul.Refresh End Sub

1. Al pulsar en el control DBGrid nos deja modificar los campos, prueba a pulsar en cualquier celda y modificarla. El problema llega al tener que validar una entrada como, por ejemplo, la fecha (pon una fecha incorrecta verás que pasa). 2. La base de datos se modifica sin tener que pulsar en el botón modificar. 3. No se realizan las comprobaciones pertinentes de fechas, longitudes, etc que son necesarias

Programación Visual

25

CBTis No. 64

Ing. Rosa Celina Valenzuela Torres

TEORÍA Sobre SQL (Structured Query Languaje). para hacer consultas es un lenguaje estructurado de consultas. ejemplo: 'Todos los cd-roms cuyo contenido sea aventuras y que su autor sea EA Sports' pero las posibilidades de consultas y accesos a la base de datos son inmensas. ¿Cómo lo hacemos en visual basic?. ponemos la sentencia SQL en la propiedad RecordSource del control Data. Podemos decir que una sentencia SQL tiene tres partes: SELECT WHERE ORDER Un ejemplo de sentencia sería: SELECT * FROM multimedia WHERE autor='EA Sports' ORDER BY contenido Esto nos SELECCIONA (select) TODOS los campos (*) DE LA tabla (from) multimedia DONDE (where) el autor sea igual a EA Sports y que se ORDENE (order) por (by) contenido. Primera Parte: SELECT El objetivo de esta sentencia (que es obligatoria) es decirle que campos queremos en la consulta, le decimos que todos con el asterisco pero, si queremos podemos poner la lista de los campos que vamos a utilizar, por ejemplo: SELECT autor, titulo, tipo, contenido FROM multimedia es OBLIGATORIA y siempre debe ponerse, si utilizamos SQL, si no lo hacemos basta con poner el nombre de la tabla. Segunda Parte: WHERE Esta clausula no es obligatoria, puedes ponerla o no, pero sólo tiene sentido omitirla si lo que hacemos es sólo ordenar la base de datos. Considerando que autor='EA Sports' es la consulta, en la clausula where podemos poner tantas como queramos enlazadas con OR, AND, NOT, etc. Entonces podríamos poner: (select) WHERE autor='EA Sports' AND titulo='FIFA 98', nos daría como resultado todos los registros cuyo autor sea EA Sports y cuyo titulo sea FIFA 98?. ¿por qué lo de las comillas? pues por el tipo de campo que es, es un campo de texto, comillas simples. En esta tabla se indican los distintos tipos y su forma de consulta en SQL. TIPO

EJEMPLO con WHERE

Texto

WHERE campo_texto = 'texto_busqueda'

Número

WHERE campo_numero = numero

Fecha

WHERE campo_fecha = fecha ----------> problema, la fecha en formato mes/dia/año

en las consultas podemos poner cualquier tipo de lógica, se ha utilizado = pero podemos poner , , >=,