Petit probleme de flèche

[Syfo]

merci de trouver l'erreur dans ce script (normalement le tiret monte et descend comme pour un menu


20A // coordonnees de A
Lbl1
Text(A,25,"-" // on affiche A
Lbl2
GetkeyG
If G=0:Goto 2 // boucle
If G=25:Then // fleche vers le haut
If A=20:Then // si A est en haut, on le fait revenir en bas du menu
Text(A,25," " // mais avant on l'efface a ses anciennes coor.
50A:Goto 1
End
Else:Text(A,25," " //si il n'est pas en haut, on le fait descendre
A-10A:Goto 1
End

If G=34:Then // pareil avec la fleche vers le bas donc le meme
If A=50:Then // code a l'envers
Text(A,25," "
20A:Goto 1
End
Else:Text(A,25," "
A+10A:Goto 1
End

Goto 1

[tama]

Evite les goto...lbl ça utilise trop la mémoire et ça ralentit : utilise plutôt For(, While et Repeat

Pour ton code, je vois pas trop
Dis l'erreur que ça fait et on pourra t'aider à le résoudre

[Yak]

oui moi je l'ai lu en travers et je n'ai rien remarquer d'anormal ... il faut que je le tappe sur ma 83

[Syfo]

ouais l'erreur c'est que avec la fleche vers le haut ça marche parfaitement, et avec la fleche vers le bas ça sort des limites, et ça le fgait meme avec n'importe quelle autre touche.

[Syfo]

mouais pourquoi pas , je vais essayer, merci

[Syfo]

bon j'ai laisse tomber, et j'ai fait un menu classique avec F1, F2 etc.

[tama]

Si c'est pour un menu, tu peux utiliser le code suivant :

Code: Select all

ClrDraw
10-A
While B=/105
getKey-B
If B=25 and A10
A-10-A
If B=34 and A50
A+10-A
Text(A,5,"-"
EndWhile


[Syfo]

ah ouais c'est beaucoup mieux que mon code merci beaucoup...

[tama]

dsl j'ai fait une erreur dans mon code :

le vrai code :

Code: Select all

ClrDraw
10-A
While B=/105
getKey-B
If B=25 or B=34
Text(A,5,"      " (nombre d'espaces nécessaires)
If B=25 and A10
A-10-A
If B=34 and A50
A+10-A
Text(A,5,"-"
EndWhile


c'est pour éviter de laisser des traces

[Syfo]

oui ça je l'avais fait, mais il y a autre chose: tu ne peut pas mettre la fleche dans un Text, ça l'arrete automatiquement, il faut mettre un tiret