SELECT CASE

Esta orden  se utiliza para seleccionar una de entre múltiples alternativas.

•Es especialmente útil cuando la selección se basa en el valor de una variable simple o de una expresión simple denominada expresión de control o selector.

Se utiliza para ejecutar acciones diferentes según el valor de una expresión o una variable. Consiste en una serie de etiquetas case y un case por omisión Case Else ó default.

Formato:

SELECT [ CASE ] Expression
  [ CASE [ Expression ] [ TO Expression #2 ] [ , ... ]     ... ]
  [ CASE [ Expression ] [ TO Expression #2 ] [ , ... ]     ... ]
  [ CASE LIKE Expression [ , ... ]     ... ]
  [ { CASE ELSE | DEFAULT }     ... ]
END SELECT

Explicacion:
Select variable
   case valor1
      accion1
    case valor2
      accion2
......
   case valorN
      accionN
   case else
      accionD
  End Select

La acción 1 se ejecuta si la variable adquiere el valor1.

La acción 2 se ejecuta si la variable adquiere el valor 2.

La acción n se ejecuta si la variable adquiere el valor n.

Cualquier otro valor de la variable conduce a la realización de la secuencia accionD, indicada por la palabra reservada case else.

La secuencia  case else puede omitirse

Para más información visite gambaswiki: http://gambaswiki.org/wiki/lang/select?l=es

Ejemplo de uso: Menu en modo consola (usando numeros)

Dim opcionN As Integer

Print "Ejemplo de uso de Select Case: Menu"

Print ""

Print ".....Menu......"

Print "1) Escribir \"hola\""

Print "2) Escribir \"adios\""

Print "3) Escribir \"Gambas\""

Print ""

Print "Escriba la opcion: 1/2/3:";

Input opcionN

Print "La opcion elegida es..."; opcionN

Select opcionN

Case 1

Print "hola"

Case 2

Print "adios"

Case 3

Case Else

Print "La opcion es descnocida"

End Select

Ejemplo de uso: Menu en modo consola (usando letras)

Dim opcion As String

Print "Ejemplo de uso de Select Case: Menu"

Print ""

Print ".....Menu......"

Print "a) Escribir \"hola\""

Print "b) Escribir \"adios\""

Print "c) Escribir \"Gambas\""

Print ""

Print "Escriba la opcion: a/b/c:";

Input opcion

Print "La opcion elegida es..."; opcion

Select opcion

Case "a"

Print "hola"

Case "b"

Print "adios"

Case "c"

Case Else

Print "La opcion es descnocida"

End Select

Ejemplo 2: Traducir Palabras

Dim opcion As String

Print "Ejemplo 2"

Print "-------------"

Print "rojo"

Print "verde"

Print "azul"

Print "-------------"

Print "Escriba un color (rojo/verde/azul): ";

Input opcion

Select opcion

Case "rojo"

Print "en ingles es RED"

Case "AZUL"

Print "en ingles es BLUE"

Case "verde"

Print "en ingles es GREEN"

Case Else

Print "No se traducir la palabra "; opcion

End Select

Ejemplo: Intervalos numericos

Dim opcion As Integer

Print ""

Print "Introduzca un numero entre el 1 al 10:"

Input opcion

Select opcion

Case 1 To 5

Print "Esta entre el 1 al 5"

Case 6 To 10

Print "Esta entre el 6 al 10"

Case Else

Print "fuera del intervalo..."

End Select

Podeis descargaros los ejemplos en este enlace: Ejemplos Uso Select Case