Al otro lado de la pantalla
Después de hacer un pequeño programa en Python sobre averiguar el numero que genera el ordenador,
estuve viendo otras cosas en Gambas.
Recordar, que para los que ya tenemos algo mas de experiencia con gambas, en este ejemplo es como si no se supiese.
Como también es posible el uso de Else if. Aun con el, el numero de instrucciones es el mismo.
Fijaros en las sentencias if, he usado Continue. ¿ Y que hace ?. Probar paso a paso.
Normalmente, cuando tenemos una sentencia if una debajo de otra, se ejecutan una tras otra, con una perdida de tiempo.
Al usar Continue salta todas las condicionales y vuelve a incrementarse en uno el bucle.
Ejemplo:
Public Sub Main()
Dim intentos As Integer
Dim jugador As String
Dim numero As Integer
Dim respuesta As Integer
Randomize
intentos = 0
Print "¿ Cómo te llamas ?"
Input jugador
numero = Int(Rnd(1, 21))
Print "Bien," & jugador & ",estoy pensando un número entre 1 y 20"
Do While intentos < 6
Print "Intenta averiguarlo"
Input respuesta
intentos = intentos + 1
If respuesta < numero Then
Print "El número es mas alto."
Continue
Endif
If respuesta > numero Then
Print "El número es mas bajo."
Continue
Endif
If respuesta = numero Then Break
Loop
If respuesta = numero Then Print "Bien hecho, " & jugador & " has acertado en " &
intentos & " respuestas!"
If respuesta <> numero Then Print "Negativo. El número que yo pensé era " & numero
End
Dim intentos As Integer
Dim jugador As String
Dim numero As Integer
Dim respuesta As Integer
Randomize
intentos = 0
Print "¿ Cómo te llamas ?"
Input jugador
numero = Int(Rnd(1, 21))
Print "Bien," & jugador & ",estoy pensando un número entre 1 y 20"
Do While intentos < 6
Print "Intenta averiguarlo"
Input respuesta
intentos = intentos + 1
If respuesta < numero Then
Print "El número es mas alto."
Continue
Endif
If respuesta > numero Then
Print "El número es mas bajo."
Continue
Endif
If respuesta = numero Then Break
Loop
If respuesta = numero Then Print "Bien hecho, " & jugador & " has acertado en " &
intentos & " respuestas!"
If respuesta <> numero Then Print "Negativo. El número que yo pensé era " & numero
End
No es aconsejable una condicional como Select Case. Declarada la variable respuesta y numero podía haber usado
una doble condición, si los intentos son menores a 6 y respuesta es distinta de numero al comienzo del Do While.
Saludos
Tenochtitlan
