GRADO DÉCIMO - PROGRAMA PALETA

GRADO DÉCIMO

PROYECTO EN VISUAL BASIC - PALETA DE COLORES

Fig. 1 Gui en tiempo de diseño.

Recordemos que la GUI debe mostrar 10 colores diferentes, lo cual puede hacerse en cajas de texto a las cuales se les ha cambiado el color de fondo por la propiedad BackColor. Para el caso del siguiente código fuente, se habilitó la misma caja que muestra el color de tal manera que el usuario escriba el nombre "encima" del color. En el color negro y otros colores oscuros, se debe habilitar el color de fuente en blanco para que al escribir el nombre, el contraste permita visualizarlo. Esto se hace mediante la propiedad ForeColor de la sección Font de dicho objeto.

Se debe ubicar una X roja frente a cada color (puede ser una etiqueta - label, en cuya propiedad Text se escriba una X mayúscula en rojo) para el caso en que se escriba erróneamente el nombre del color mostrarla. La propiedad Visible de estos objetos se configurará inicialmente en False.

Se deben ubicar dos etiquetas (Label) en la primera (arriba de los colores) se le indicará al usuario en donde escribir los nombres de los colores y la forma (para este caso en MAYÚSCULA sostenida). En la segunda se mostrarán los resultados: cantidad de respuestas acertadas y porcentaje de gestión.

Existirán dos botones (Verificar y Borrar). El código para programarlos es el que aparece a continuación de esta nota. Recordemos que las sentencias que inician con Public y Private no se deben escribir, son suministradas por el lenguaje de programación cuando en tiempo de diseño damos doble clic sobre un objeto para iniciar a programarlo.

Tener en cuenta, respetar los nombres de los objetos, es decir, cambiar los que el lenguaje asigna por defecto y ubicar los que aparecen en el código fuente. Es claro que se pueden asignar otros nombres pero hay que cambiarlos en el código y mantenerlos durante todo el programa.

La sentencia Dim Contador As Byte, permite "separar" un espacio en memoria para tener allí un Contador que irá acumulando puntos por cada respuesta correcta. Se escogió el tipo de datos Byte dado que máximo se contará hasta 10 (total de colores), y este tipo de dato es el de menor capacidad (0 a 255). Este contador se inicializa en el evento clic del botón verificar con el valor cero.

En cada caso se evalúa si el nombre se escribió bien y siendo así se asigna un punto más al contador, si el nombre está mal escrito, se borra el contenido de la caja de texto respectiva y se muestra la X roja correspondiente para que el usuario corrija su respuesta.

En la parte final se programa el evento TextChanged de todas las cajas de texto. Este evento se genera cada vez que se escribe en una caja de texto. De ahí que aprovechemos para verificar si se escribió bien  el nombre del color y entonces no mostrar las X rojas.

Propuesta de Código Fuente

Public Class frmPaleta

    Dim Contador As Byte

_________________________________________________________________________________________________________

    Private Sub btnVerificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerificar.Click

        Contador = 0

        If txtBlanco.Text = "BLANCO" Then

            Contador = Contador + 1

        Else

            lblMalBlanco.Visible = True

        End If

        If txtNegro.Text = "NEGRO" Then

            Contador = Contador + 1

        Else

            lblMalNegro.Visible = True

        End If

        If txtAmarillo.Text = "AMARILLO" Then

            Contador = Contador + 1

        Else

            lblMalAmarillo.Visible = True

        End If

        If txtAzul.Text = "AZUL" Then

            Contador = Contador + 1

        Else

            lblMalAzul.Visible = True

        End If

        If txtRojo.Text = "ROJO" Then

            Contador = Contador + 1

        Else

            lblMalRojo.Visible = True

        End If

        If txtGris.Text = "GRIS" Then

            Contador = Contador + 1

        Else

            lblMalGris.Visible = True

        End If

        lblAvisoResultado.Text = "Obtuviste " & Contador & " respuestas acertadas. Tu gestión fue del " & Contador * 10 & "%"

    End Sub

_________________________________________________________________________________________________________

    Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorrar.Click

        lblAvisoResultado.Text = ""

        lblMalAmarillo.Visible = False

        lblMalAzul.Visible = False

        lblMalBlanco.Visible = False

        lblMalGris.Visible = False

        lblMalNegro.Visible = False

        lblMalRojo.Visible = False

        txtAmarillo.Text = ""

        txtAzul.Text = ""

        txtBlanco.Text = ""

        txtGris.Text = ""

        txtNegro.Text = ""

        txtRojo.Text = ""

    End Sub

End Class

_________________________________________________________________________________________________________

PARA TENER EN CUENTA...

¿Cómo se hacen las operaciones?

¿Para que se utiliza el símbolo ampersand (&)?

¿Cuándo se deben utilizar las comillas?

¿Que significa el color azul en algunas palabras?

¿Que significa el color rojo?

¿Y el color negro?

¿Que función tiene el botón Borrar?

¿Cuándo se efectúan los procesos?

¿Que hace la sentencia: Contador = Contador + 1? 
¿Qué sucede con un elemento cuando a su propiedad visible se le carga el valor false?
¿Para que se usa el elemento Contador?
¿Que es el evento clic de un botón?