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.
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.
Nota: Por favor, cualquier inquietud me comentan.
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.
