Al otro lado de la pantalla
Tengo un ejemplo de menú hecho en texto con unas opciones.
El valor de la opción a escoger es un valor entero. Pero supongamos el caso
de que el usuario entra una letra.
La idea es de que en caso de que las opción que ha elegido el usuario no son las que queremos que
se le diga que debe seleccionar una opción de las que están disponibles.
Lo estoy haciendo en Python y en gambas. En gambas se me ha ocurrido esta forma.
He añadido tres variaciones de código que son posibilidades que funcionan.
Me gustaría conocer vuestra opinión.
En cuanto a repetir en caso de error, me gustaría que me dijerais si lo veis correcto.
' gambas module file
Public Sub Main()
'No es una presentación estética. Lo importante es el funcionamiento
Print "Ha seleccionado la opción " & MenuOpciones()
End
Public Function MenuOpciones() As Integer
Print "Menu de opciones"
Print "1 - Opcion 1"
Print "2 - Opcion 2"
Print "3 - Opcion 3"
Print "Elige una opción de las disponibles "
' Todos los Codigox funcionan
'Return Codigo1()
'Return Codigo2()
Return Codigo3()
End
Public Function Codigo1() As Integer
Dim opcion As Integer
'Se ejecuta al menos una vez
Repeat
Try Input opcion
If Error Or opcion < 1 Or opcion > 3 Then Print "Debe elegir una opción disponible"
Until opcion >= 1 And opcion <= 3
Return opcion
End
Public Function Codigo2() As Integer
Dim opcion As Integer
'opcion vale 0 al definirla. La condición del bucle se cumple
Do While opcion < 1 Or opcion > 3
Try Input opcion
If Error Or opcion < 1 Or opcion > 3 Then Print "Debe elegir una opción disponible"
Loop
Return opcion
End
Public Function Codigo3() As Integer
Dim aopciones As Integer[] = [1, 2, 3]
Dim iopcion As Integer
'iopcion vale 0 al definirla. La condición del bucle se cumple
'En aopciones se de definen los valores posibles de las opciones a escoger
Do While aopciones.Find(iopcion) = -1
Try Input iopcion
If Error Or aopciones.Find(iopcion) = -1 Then Print "Debe elegir una opción disponible"
Loop
Return iopcion
End
Public Sub Main()
'No es una presentación estética. Lo importante es el funcionamiento
Print "Ha seleccionado la opción " & MenuOpciones()
End
Public Function MenuOpciones() As Integer
Print "Menu de opciones"
Print "1 - Opcion 1"
Print "2 - Opcion 2"
Print "3 - Opcion 3"
Print "Elige una opción de las disponibles "
' Todos los Codigox funcionan
'Return Codigo1()
'Return Codigo2()
Return Codigo3()
End
Public Function Codigo1() As Integer
Dim opcion As Integer
'Se ejecuta al menos una vez
Repeat
Try Input opcion
If Error Or opcion < 1 Or opcion > 3 Then Print "Debe elegir una opción disponible"
Until opcion >= 1 And opcion <= 3
Return opcion
End
Public Function Codigo2() As Integer
Dim opcion As Integer
'opcion vale 0 al definirla. La condición del bucle se cumple
Do While opcion < 1 Or opcion > 3
Try Input opcion
If Error Or opcion < 1 Or opcion > 3 Then Print "Debe elegir una opción disponible"
Loop
Return opcion
End
Public Function Codigo3() As Integer
Dim aopciones As Integer[] = [1, 2, 3]
Dim iopcion As Integer
'iopcion vale 0 al definirla. La condición del bucle se cumple
'En aopciones se de definen los valores posibles de las opciones a escoger
Do While aopciones.Find(iopcion) = -1
Try Input iopcion
If Error Or aopciones.Find(iopcion) = -1 Then Print "Debe elegir una opción disponible"
Loop
Return iopcion
End
En Codigo3, en vez de usar condicionales preferí usar los valores posibles. ¿ Qué opináis ?.
Os subo el código por si queréis probar, cambiar..etc,etc.
Saludos
| OpcionObligatoria.tar.gz | ||
| Descripción: |  Descargar |
|
| Nombre del archivo: | OpcionObligatoria.tar.gz | |
| Tamaño: | 4.89 KB | |
| Descargado: | 18 veces | |
| OpcionObligatoria.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | OpcionObligatoria.tar.gz | |
| Tamaño: | 4.89 KB | |
| Descargado: | 18 veces | |
| OpcionObligatoria.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | OpcionObligatoria.tar.gz | |
| Tamaño: | 4.89 KB | |
| Descargado: | 18 veces | |
cuando he visto en la ayuda que Input pasa el valor introducido por 
