[Résolu] Probleme code basic

[Raiseit]

Bonjour
J'ai un problème de getkey avec mon programme:

Code: Tout sélectionner

1→S
0→K
Lbl 3
If S=1
Then
Texte(­1,50,25,"MODULE DEPLACEMENT"
Texte(80,56,"            MODULE ENNEMI        "
Else
If S=2
Then
Texte(50,23,"                    MODULE DEPLACEMENT    "
Texte(­1,80,57,"MODULE ENNEMI"
Texte(110,95,"     RETOUR      "
Else
If S=3
Then
Texte(80,56,"            MODULE ENNEMI      "
Texte(­1,110,95,"RETOUR"
End
While K=0
getKey→K
End
Lbl 5
If K=34 et S<3
S+1→S
If K=25 et S>1
S-1→S
If K=105 et S=1
prgmDEV1
If K=105 et S=2
prgm
If K=105 et S=3
Goto ZZ
Goto 3


Il ne passe qu'une seule fois dans la boucle, et après il s’arrête.
Comment régler ça ?

Bonne journée

[Ruadh]

Bonjour !
Il te manque 2 End entre la ligne 19 et la ligne 20, il en faut un pour chaque Then.
Ensuite remplace

Code: Tout sélectionner

While K=0

par

Code: Tout sélectionner

Repeat K

Et ça devrait marcher. Fais juste attention avec ton Goto ZZ, comme tu n'as pas de Lbl ZZ, tu auras une erreur étiquette.

[Raiseit]

Merci, ça marche.
ps: mon label zz est plus haut, j'ai juste pas voulu vous spammer tout le code.