ESPEJITO - PROYECTO EN VISUAL BASIC

GRADO DÉCIMO

PROYECTO EN VISUAL BASIC: ESPEJITO

OBJETIVO: Crear una aplicación que capture el nombre de una niña y lo muestre en otro formato de texto.

ANÁLISIS: Recordando el conocido cuento infantil Blanca Nieves, presentaremos una primera interfaz en la cual se captura el nombre de la niña. Posteriormente se lo presentaremos en un formato de texto, tamaño, colores, y fuente diferente. El programa debe controlar que no se deje vacío el elemento en el cual se escribe el nombre, indicando que debe escribirse. Cuando se haga dicha acción preguntará: ¿Quién es la niña más hermosa del reino Sumapaz? Y posteriormente lo exhibirá en el nuevo formato, acompañado de una imagen llamativa.

Veamos esto en gráficas:

Si no se escribe un nombre en la caja de texto el programa controla esta situación y regresa al usuario a la primera ventana. Veámoslo en gráficas:

DISEÑO DE LA GUI

Se van a manejar dos ventanas. La primera captura el nombre y la segunda la muestra en otro formato de texto (más llamativo).

La figura nos muestra el primer formulario y los elementos dentro de él, con las propiedades que se deben cambiar y los valores asignados.

Recordemos que los nombres de estos elementos en la caja de  herramientas de Visual Basic que necesitamos en esta ventana son: Formulario = Form, Etiqueta = Label, Caja de Texto = TextBox y Botón = Button.

Cuando se haya terminado el diseño de la anterior ventana debemos crear el segundo formulario. Para hacemos lo siguiente:

Vamos al Menú Ver y escogemos la opción Explorador de Soluciones, como se ve en la siguiente gráfica.

En la ventana del Explorador de Soluciones, damos clic derecho sobre el nombre del proyecto, escogemos la opción Agregar y en la nueva ventana Windows Form, como vemos en la imagen.

En la siguiente ventana escogemos la opción Windows Form, y cambiamos el nombre que por defecto le ha colocado Visual Basic (posiblemente Form1, si ya se cambió el nombre del primer formulario). Debemos tener cuidado de no borrar la extensión del nombre .vb El nuevo nombre puede ser frmMostrar.

Y se oprime el botón Agregar. Ahora tenemos dos formularios en el proyecto, como lo vemos en la imagen.

Segunda Ventana

Ventana (*)àEscoger Recurso Local y pulsar el botón Importar. Buscar en el Disco Duro la imagen deseada en la ventana que emerge a continuación y que aparece a la derecha en la image. Oprimir el botón Abrir de la ventana de navegación y el botón Aceptar de la ventana (*), luego de esto queda la imagen incorporada al PictureBox. 

Ventana (**)à Escoger las opciones: Fuente, Estilo y Tamaño.

Ventana (***)à Escoger el color deseado para la fuente o letra, oprimiendo el botón  que está a la derecha en la propiedad ForeColor. Como aparece en la siguiente imagen, escogiendo en cualquiera de las opciones: Personalizado, Web o Sistema.

Hecho todo lo anterior, podemos escribir ahora el Código Fuente. Para esto debemos pensar en lo siguiente:

Cuando la persona pulsa el botón Seguir de la primera ventana se desencadenan acciones, es por esto que debemos programar el evento clic de dicho elemento (botón). Entonces en tiempo de diseño damos doble clic sobre el botón y se nos presenta una interfaz en la cual podemos escribir las órdenes que queremos que se cumplan cuando se dé clic sobre el botón en tiempo de diseño. Vemos que en esa interfaz Visual Basic nos “regala” cuatro líneas de código.

Acá escribimos lo siguiente:

Compara con tu proyecto y agrega el texto (código fuente) que hace falta.

Explicación del código fuente:

Lo cual es una estructura de decisión que podemos ver así:

     Pseudocódigo                 Explicación

Si condición Entonces   à Si se cumple la condición Entonces

Acción 1           à Se efectúa la acción 1

Sino                    à Si no se cumple la condición

Acción Dos         à Se efectúa la acción 2

Fin del Si              à Fin de la estructura

Análisis del código:

1.    If txtNombre.Text = "" Then

2. MsgBox("Por favor escriba su nombre", MsgBoxStyle.Critical, "Espejito")

3.      Else

4. MsgBox("¿Quién es la niña más linda del reino Sumapaz?", MsgBoxStyle.Information, "Espejito")

5. frmMostrar.Show()

6.      End If

Línea 1. Evaluamos à Si la condición se dejó la caja de texto vacía entonces

Línea 2. Mostramos una caja de mensaje como se ve en la figura

Compare la ventana que se produce con la sentencia de la línea 2.

Línea 3. Sino

Línea 4. Mostramos otra caja de mensaje como se ve en la figura

Compare la ventana que se produce con la sentencia de la línea 4.

Línea 5. Se invoca el formulario frmMostrar en el que va a aparecer el nombre de la niña en un nuevo formato.

Línea 6. Se cierra la estructura IF THEN ELSE END IF

Ahora vamos a aprovechar el tiempo que hay entre el momento en que se da clic sobre el botón Aceptar de esta última ventana y el momento en que aparece la segunda ventana. Este evento es llamado LOAD del segundo formulario. Para esto sobre el formulario Mostrar y en un espacio libre le damos doble clic, con lo cual nos aparece lo siguiente:

En donde se ubique el cursor escribimos: Me.lblNombreBonito.Text = frmEspejito.txtNombre.Text

Si hemos respetado los nombres asignados a las herramientas o elementos utilizados y escrito el código fuente en los eventos indicados, nuestro programa debe funcionar, conforme lo indicamos en las dos primeras figuras de este documento.