Boucles infini (tjrs pour DDJ)

[Azerpogba]

Si on rajoute ca dans un prgm

Code: Select all

0→X
Disp X
Pause
Lbl 12
For(K,1,40,1)
getKey→S
If S=103
Pause
End
X+1→X
Output(8,18, X
Goto 12

alors ca crée une "boucle infini ce qui me pose donc un pb car le reste du prgm ne s'effectue pas
donc comment faire pour qu'elle s'effectue en même temps que le reste du prgm??

[Programmator88]

Si on rajoute ca dans un prgm

Code: Select all

0→X
Disp X
Pause
Lbl 12
For(K,1,40,1)
getKey→S
If S=103
Pause
End
X+1→X
Output(8,18, X
Goto 12

alors ca crée une "boucle infini ce qui me pose donc un pb car le reste du prgm ne s'effectue pas
donc comment faire pour qu'elle s'effectue en même temps que le reste du prgm??

Tu mets ça dans la boucle "While A<=(plus petit ou égal à) 2", qui exécute la partie "jeu" du programme.
Ton problème c'est le "Goto 12" qui renvoie indéfiniment au début du bout de code.

[Azerpogba]

oui mais comment résoudre ce pb telle est la question

[Hamza.S]

Ça crée une boucle infinie parce que c'est ce que tu lui demandes de faire avec Goto 12 et Lbl 12

[Programmator88]

Pour résoudre ton problème, tu dois juste enlever le Lbl et le Goto mais mettre un End. Autre chose, le "0" qui s'affiche. Cette partie est inutile.

[Azerpogba]

mais du coup es qu'il y a un moyen de faire tourner deux boucles infinies en même temps dans un prgm????

[Programmator88]

mais du coup es qu'il y a un moyen de faire tourner deux boucles infinies en même temps dans un prgm????

Infinies, non. Tu peux mettre un While 1 ou suivi d'une condition qui sera toujours vérifiée, mais dans ce cas, la suite ne sera pas exécutée. Tu peux mettre une boucle finie dans la boucle "While A<2", comme je l'ai déjà dit, qui se répètera tant que le Doodle n'est pas mort.

EDIT : Un autre truc cloche : ton

Code: Select all

Output(8,18, X

.
Le X n'est pas immédiatemment après la virgule, donc ça doit juste afficher un truc tout blanc...