[ Foro de BASIC ]

Codigo de bucle

20-Nov-2013 16:20
Invitado (Maximan)
1 Respuestas

Hola, estoy intentando programar el Basic (con Gw Basic) un programa que almacene un nombre concreto, y lo pida el usuario. Si el nombre se introduce correctamente, sale un mensaje de bienvenida, sino, lo que quiero es crear un bucle que repita un error hasta el infinito. El codigo que estoy usando es este, pero no consigo que haga el bucle:


10 PRINT "Nombre de usuario"
20 INPUT nombre$
30 IF nombre$ = "Alex" THEN GOSUB 100
40 IF nombre$ <> "Alex" THEN GOTO 150
100 REM Bucle
110 FOR i = 1 TO 10 
120 PRINT "Bienvenido Alex"
130 NEXT i
140 RETURN
150 PRINT "USuario equivocado"


Tal y cual, el codigo "funciona" en el sentido de que si introduzco el nombre correcto da la bienvenida, y si es nombre erroneo da el mensaje de error, pero solo una vez. ¿Como tendria que hacer para plantear un bucle de error haasta tener que cerrar la consola? Gracias


21-Nov-2013 22:06
Nacho Cabanes (+84)

Sólo te falta que tras escribir "Usuario equivocado" vuelva al principio:


160 GOTO 10








(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)