Apúntate...


Consultas, desarrollo de programas y petición de presupuestos:

lunes, 20 de agosto de 2012

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



No hay comentarios:

Publicar un comentario

A falta de donativos... un poco de publicidad