Apúntate...


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

lunes, 20 de agosto de 2012

Choose

Esta orden es una simplificación de Select Case, que nos ahorra bastantes lineas de código, la podemos usar algunas veces.


Value = Choose ( Choice , Result1 , Result2 [ , ... ] )

Choise: es una variable, que si vale 1 devolverá el Result1, si vale 2, devolverá el Result2, y si el valor supera a los resultados que escribamos, devuelve NULL

Fuente:
http://gambaswiki.org/wiki/lang/choose?l=es


Ejemplo de uso: Dia de la semana

Dim dia_semana As String
Dim x As Integer
Print "Di un numero entre el 1 y el 7:"
Input x
dia_semana = Choose(X, "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado", "Domingo")
Print dia_semana

En este ejemplo, al escribir 1 devuelve Lunes, si escribimos 8 devuelve NULL.

También se puede hacer con Select Case, pero es mucho más largo:


Dim dia_semana As String
Dim x As Integer

Print "Di un numero entre el 1 y el 7:"
Input x
Select x
Case 1
dia_semana = "lunes"
Case 2
dia_semana = "Martes"
Case 3
dia_semana = "Miercoles"
Case 4
dia_semana = "Jueves"
Case 5
dia_semana = "Viernes"
Case 6
dia_semana = "Sabado"
Case 7
dia_semana = "Domingo"
Case Else
Print Null
End Select
Print dia_semana


Enlace de descarga del codigo fuente: Enlace





No hay comentarios:

Publicar un comentario

A falta de donativos... un poco de publicidad