Make your own free website on Tripod.com

 

Estructura Select Case

 

 

Select Case es una estructura de decisión que selecciona y ejecuta un bloque de código de dos o más bloques de código. Una estructura Select Case empieza con una sentencia Select Case, termina con una sentencia End Select y puede tener uno o más bloques Case en medio. A lo sumo se ejecuta uno de los bloques Case de la estructura. En la siguiente estructura Select Case, lo que ha de suceder dependerá (en el ejemplo siguiente) del valor del número del cuadro de texto Text1.

 

Sintaxis

 

Select Case expresión

            Case lista de expresiones-1

                        Bloque de código-1

            Case lista de expresiones-2

                        Bloque de código-2

            :

            :

            Case Else

                        Bloque de código-n

End Select

 

 

 

 

Select Case Text1.Text

            Case 1

                Print “uno”

            Case 2, 3

                Print “dos o tres”

            Case Else

                Print “ni uno, ni dos, ni tres”

End Select

 

Crea esta interfaz:

 

 

Propiedades

 

Text1

 

 

Propiedad

Valor

 

Nombre

Text1

 

Font

Arial, Negrita, tamaño 10

 

Text

(Vacío)

 

Programación

 

Da dos veces clic sobre el comando OK. Escribe el código que te presento:

 

 

Todo lo que se hace con el Case puede hacerse con el If y viceversa.

 

If Text1.Text  0 Then

            Print “Negativo”

ElseIf Text1.Text = 0 Then

            Print “Cero”

ELSE

            Print “Positivo

End If

 

Reto

 

A partir del proyecto anterior, diseña un nuevo proyecto Positivo, negativo, cero, de tal forma que aparezca la imagen en el cuadro correspondiente al tipo de número entrado. Usa la estructura Select Case.

 

Interfaz

 

Esta es la interfaz de tiempo de ejecución:

 

 

Labels

 

Puedes modificar las eqtiquetas +, - , 0 por las de Positivo, Negativo, Cero.

 

Imagen visible e invisible

 

Para las imágenes se utilizó el objeto PictureBox. Las imágenes se obtuvieron con Copy/Paste.

 

Para que las tres imágenes (Picture1, 2 y 3) no aparezcan al  principio de la ejecución, la Propiedad Visible debe estar en False.

 

Programación

 

Utiliza el cuerpo del programa anterior. La sentencia Print está demás, pues el mensaje se envía a uno de los tres dibujos (Picture1 o picture2 o Picture3), según sea el número entrado: Positivo, Negativo o Cero. Suponiendo que el primer dibujo (Picture1) representa a los números positivos, cuando se cumpla con dicho Case, habría que indicar al programa:

 

Picture1.Visible = True

 

Buena suerte.

 

Home | VB |