Forum TI-Planet.org

voila g écrit un prog tt con et tt petit et simple (dc je pensais kil y aurait aucun prob) ms l'instruction Repeat répond pas bien
voila le bout de code:

Code: Select all

91 - A : 3 - C : 25 - D
Lbl 1
Repeat A  C+1
ClrDraw
Text (D, A, Str 1
For (B, 1, 20, 1
End : A-C - A
While getKey = 24
C+2 - C : End
While getKey = 26 and C  3
C-2 - C : End
End
Goto 1

voila EXACTEMENT comment est écrit le prog
en fait le prog est censé faire défiler Str 1 de droite à gauche et quand il arrive à la limite (presque) gauche de l'écran tt recommence
seulement ds mon prog Str 1 ne s'arrete pas et dc il y a "erreur:domain"
voila si vs pouviez me dire où est l'erreur
merci[/code][/quote]

ben "Repeat A < C+1" se charge de ça non?

enfin c surtout ke g mis un "Goto" qui revient au "Repeat"

comprend pas ou est l'erreur desole.

Code: Select all

"blablabla-Str1
0-A
25-B
While 1
A+1-A
94-fPart(A/94-C
Text B,C,Str1,"   "
End


Pour l'explication c'est simple
A c'est la position x du texte
B c'est la position y (=25)
94-fPart(A/94-C c'est 94-le reste de la division de A par 94
=ce qui fait 94,93,92,91...
et puis Text B,C,Str1," " c'est pour enlever les traces
et a chaque fois ca revient :
94,93,92,91...3,2,1,0,94,93,92,91

g pas tt compris ms t bon merci

C'est bon ou il faut une autre explication ?

normalement ca devrait marcher...g pas teste

en fait mon code il marche pas tout a fait quand le texte est affiche tout a gauche parce qu'il revient a droite et ce qu'il reste a gauche ne s'efface pas
il faudrait determiner d'abord la longueur de la chaine avec length(Str1)

Tu l'a testé ton code?? Parce qu'il y a une ligne de fausse:

Code: Select all

94-fPart(A/94-C

donne toujours une valeur décimale pour C (si j'ai bien compris ca doit être 93 et une chique). Il faut remplacer par

Code: Select all

94-iPart(A/94-C

Edit: C'est pas compliquer inutilement le prog?? En mettant

Code: Select all

94-A-C

à la place ca donne quoi?? (J'ai pas testé, j'ai la flemme)