GRADO UNDÉCIMO PERIODO DOS DOCUMENTO DE APOYO

GRADO UNDÉCIMO - PERIODO DOS (MARZO 29 - JUNIO 13)

DOCUMENTO DE APOYO EN COMPROMISOS

TALLER UNO

RECONOCIMIENTO DE OTRAS HERRAMIENTAS Y PROCEDIMIENTOS EXISTENTES EN VISUAL BASIC.

En este período veremos el uso de otras herramientas de VB, tales como el Timer:

Que nos permite “manejar” en una aplicación el tiempo. A diferencia de las herramientas utilizadas hasta ahora, esta no posee una visualización directa sobre el formulario (es “invisible”) en tiempo de ejecución y actúa sin la interacción del usuario. Cuando se agrega un Timer al proyecto, este no aparece en el formulario sino en la bandeja de componentes.

En tiempo de diseño al dar doble clic sobre él, se puede programar el evento Tick de dicha herramienta. Según la figura anterior, al escribir la línea de código:

Label1.Text = My.Computer.Clock.LocalTime.ToLongTimeString

Logramos que la Etiqueta (Label1) muestre la hora del reloj del computador. Si adecuamos la propiedad Interval del Timer en 5000 (milisegundos), dicha hora se actualiza en tiempo de ejecución, cada 5 segundos. ¿Cómo lograr que lo haga cada segundo?

Otra herramienta interesante es la WebBrowser, que nos permite visualizar páginas web en ella.

Al seleccionar la herramienta y "dibujarla" sobre el formulario, debemos configurar la propiedad Dock en el valor Fill, que la centra sobre la ventana. 

Además del WebBrowser manejaremos dos herramientas más que son una caja de texto, en la cual el usuario escribe una dirección de una página web y un botón, en el que en su propiedad Text escribimos la palabra Go!. Cuando el usuario lo oprima, se desencadena el siguiente código fuente:

WebBrowser1.Navigate(TextBox1.Text)

¡Con sólo esto podemos disfrutar de nuestro propio navegador web!.

En alguna ocasión se hace necesario que se repita una acción algún número de veces, para esto podemos utilizar la estructura:

For      To

Next       

En un proyecto de VB, agreguemos al formulario una caja de texto y un botón, como se aprecia en la siguiente figura:

El usuario digita un número y al iniciar el proceso (evento clic del botón) se visualizan cinco (por el número digitado en la caja de texto) mensajes como el del ejemplo. Esto se logra mediante el código fuente siguiente:

        Dim i As Integer = 0

        Dim Numeroderepeticiones As Integer = CInt(TextBox1.Text)

        For i = 1 To Numeroderepeticiones

            MsgBox("Esta línea se ha repetido " & i & " veces")

        Next

Los ciclos se realizan gracias a la estructura For To Next. La variable Numeroderepeticiones guarda el número digitado en la caja de texto, convertido a entero (función CInt). La variable i es un contador que inicia en 1 y se incrementa hasta el número digitado. La sentencia Next permite el incremento y realizar un nuevo ciclo.

Otra opción que se tiene para el manejo de múltiples posibilidades es la estructura Select Case. Nuevamente en un proyecto de Visual Basic agreguemos dos etiquetas (Label), una caja de texto y un botón al formulario.

En la primera Label, en su propiedad Text escribamos: "Este programa ubica a una persona según su edad en la siguiente tabla: Niñez, Juventud, Adulto, Tercera Edad". Para que salga en varias líneas ubica la propiedad AutoSize en False.

En la propiedad text de la otra etiqueta escribamos, "Por favor digite la edad en años cumplidos de la persona".

En el evento clic del botón escribe el siguiente código fuente:

        Dim Numero As Integer = CInt(TextBox1.Text)
        Select Case Numero
            Case Is < 1
                MsgBox("La edad debe ser mayor que 1 año")
            Case 1 To 12
                MsgBox("La persona está en su Niñez")
            Case 13 To 18
                MsgBox("La persona está en su Juventud")
            Case 19 To 60
                MsgBox("Esta persona es un Adulto")
            Case Else
                MsgBox("La persona pertenece a la Tercera Edad")
        End Select

Saca tus propias conclusiones de como actúa la instrucción Select Case.

TALLER DOS

CONEXIÓN DE UNA BASE DE DATOS EN ACCESS CON UNA APLICACIÓN EN VISUAL BASIC

Cuando conectamos una BD con una aplicación en VB, logramos que nuestros programas tengan “memoria”, es decir, que se guarden históricos y posteriormente podamos trabajar con dichos datos.

Inicialmente creamos una BD de Access en algún sitio de nuestro disco duro (que luego podamos ubicar). Debes dar un nombre a la BD (ej. PROFESIONES). Diseñamos una tabla (Ej. PROFESIONES) con la siguiente estructura:

CAMPO	TIPO DATO	TAMAÑO
CODIGO	NUMERO	BYTE
NOMBRE	TEXTO	25
APELLIDO	TEXTO	25
PROFESION	TEXTO	35

Ingresa algunos registros en la tabla, por ejemplo:

Creamos un nuevo proyecto en VB. Por el menú Datos escogemos la opción Mostrar orígenes de datos y en esta nueva opción damos clic sobre el ícono de Agregar nuevo origen de datos.

Al hacer lo anterior se inicia el Asistente para la configuración de orígenes de datos, y allí escogemos la opción Base de datos y a continuación se da clic sobre el botón Siguiente.

En la siguiente ventana damos clic en el botón Nueva Conexión, lo que permite configurar la conexión en la ventana Agregar conexión. En la opción Origen de datos damos clic sobre el botón Cambiar  y en la nueva opción escogemos la entrada Archivo de bases de datos de Microsoft Access y clic en Aceptar.

Esta decisión nos permite regresar a la ventana  Agregar Conexión, y allí mediante el botón Examinar, podemos navegar hasta encontrar la base de datos que queremos seleccionar. Allí le damos clic sobre el botón Aceptar. Nos presentan un cuadro de diálogo en el que básicamente se nos pregunta si queremos adicionar el archivo de la BD al proyecto. Podemos decir que no. Ahora podemos escoger que objetos de la Base de datos vamos a elegir. Para el caso que nos ocupa escogemos Tablas,  abrimos el nodo y chequeamos sobre todos los campos de la tabla PROFESIONES.

Al dar clic sobre el botón finalizar, la interfaz de VB se ve como en la secuencia de imágenes siguiente:

Escogemos la opción DataGridView y la “arrastramos” hasta el formulario, lo que dibujará una cuadrícula que al ejecutar el programa mostrará el contenido de la tabla. Sobre dicha cuadrícula aparece una barra de navegación,

Que nos permite desplazarnos por sobre los registros de la tabla y que muestra el número del registro actual y el total de registros.

Al dar clic sobre la Tabla PROFESIONES, aparecen los campos y en cada uno de ellos se escoge el tipo de herramienta TextBox,

A continuación, se selecciona la cuadrícula (DataGridView), y se le da borrar (Tecla Supr), lo que la elimina, pero que no lo hace con la barra de navegación. Luego de esto, se “arrastra” cada uno de los campos al formulario hasta obtener lo que se ve en la siguiente imagen.

Si ejecutamos la aplicación aparecen los datos de la tabla (cada registro) en las cajas de texto que se llevaron al formulario. 

Ahora se pueden administrar los datos (desplazarse, agregar, eliminar y guardar) de la BD y visualizarlos en el formulario. 

Nota: Por favor, cualquier inquietud me comentan.