Forum TI-Planet.org

Bonjour à tous !

Petit nouveau sur TI-Planet, je crée ce sujet pour résoudre un de mes problèmes...

Voilà :

Je programme actuellement une bibliothèque en Axe pour faire des Fenêtres graphiques facilement et rapidement, mais j'ai un énorme problème que je n'arrive pas à résoudre seul (je ne comprends même pas pourquoi ce problème persiste vu toutes les méthodes que j'ai essayées...)

Voici les deux codes :

Code: Select all

prgmTESTSRC

.TESTS

prgmWINSRC

AppRun()
.Disp [i],LetShow("Salut","Salut ! Je suis un clown (lol !)")>Dec,[i]
Disp [i],LetShow("SALUT","SALUT")>Dec,[i]
AppExit()
Return

Lbl LetShow
Choice({r1})
90-length({r2})->theta
While theta
32->{90-theta+{r2}}
theta--
End
0->{90+{r2}}
{r2}->U
For(A,0,5
conj(U,Q,90
"                "->Str2
If ({A*15+Q}=32)
Text("")
Else
For(theta,0,14
{A*15+theta+Q}->Z
Z->{theta+Str2}
End
Text(Str2)
.Output(0,0,Q
.Repeat getKey
.End
End:End
ReturnShow()[

prgmWINSRC

.WINFWORK

Goto EndLib

Lbl AppRun
ClrHomeClrDraw
ClrDraw^^r
Return

Lbl AppExit
ClrHomeClrDraw
ClrDraw^^r
Return

.Gui

Lbl Input
ClrHomeClrDraw
Text(9,56,"Saisie
Text(22,56,"OK
StoreGDB
Line(47,56,47,63
Window({r1})
MenuBar()
3->W
Return

Lbl Choice
ClrHomeClrDraw
Text(19,56,"Oui
Text(66,56,"Non
StoreGDB
Line(47,56,47,63
Window({r1})
MenuBar()
2->W
Return

Lbl Info
ClrHomeClrDraw
Text(44,56,"OK
StoreGDB
Window({r1})
MenuBar()
1->W
Return

Lbl EmptyWin
Window("")
Return

Lbl Window
0->L
Line(11,12,84,12
Line(10,13,10,50
For(theta,0,1
Line(85+theta,13+theta,85+theta,50+theta
Line(11+theta,51+theta,85+theta,51+theta
End
Pxl-Off(86,52
Line(1,0,94,0
Line(0,1,0,7
Line(94,1,94,7
Line(1,8,94,8
Line(2,9,95,9
DispGraph
Text(2,1,{r1}
StoreGDB
Return

Lbl MenuBar
Line(0,56,0,62
Line(95,56,95,62
Line(1,55,94,55
Line(1,63,94,63
Return

Lbl Text
DispGraph
Text(12,6*L+13,{r1}
StoreGDB
L++
Return

Lbl Show
0->theta
DispGraph
If W=1
Repeat getKey
End:End
If W=2
While theta!=49 and (theta!=50) and (theta!=52) and (theta!=53)
getKey->theta
End
If theta<51
0->theta:Else:1->theta
End:End
Returntheta

Lbl Sub
DeltaList(0)->W
For(theta,{r2},{r3}
{theta+{r1}}->{theta-{r2}+1+W}
End
W+1->W
ReturnW

Lbl EndLib

(je précise que ce code est celui sorti par TokenIDE avec le fichier Axe.xml)

J'ai donc compilé le programme TESTSRC, j'ai exécuté la commande Asm(prgmTESTSRC), et là, je tombe là-dessus :



Impossible de savoir pourquoi, mais dès que je tente de copier un octet de Q à Str2, Q est modifié...
J'ai essayé de nombreuses méthodes sans succès.

Quelqu'un saurait-il résoudre mon problème ?
Merci d'avance.

Cordialement.

verifie tes commande texte !

Text(12,6*L+13,{r1}

celle la par exemple plante tout, tu affiche quoi ? un nombre ? un token ?...

Ah désolé j'avais pas précisé...
TokenIDE m'a sorti Text(12,6*L+13,{r1} mais quand je regarde sur ma calculatrice c'est bien Text(12,6*L+13,r1
C'est que le logiciel a besoin de mettre des accolades pour savoir que c'est une variable polaire...

D'ailleurs, si on regarde bien le code, on voit que r1 est toujours une chaîne de caractères...

Attend, premierement en axe on ferme ses parenthese et ses guillement sinon ca peut crée certaine erreur ! Text(44,56,"OK ecris Text(44,56,"OK") plutot !

mais ?

Code: Select all

"                "->Str2
If ({A*15+Q}=32)
Text("")
Else
For(theta,0,14
{A*15+theta+Q}->Z
Z->{theta+Str2}

Tu compiles en quoi ? noshell ? applications ?

PS :

While theta!=49 and (theta!=50) and (theta!=52) and (theta!=53) remplace tout ce bazar par :

While theta-49>3

J'ai fermé les guillemets pour les chaînes de caractères mais ça ne change rien.
Sinon, je compile en NoShell.

Dans tous les cas, le problème de ton code c'est qu'à un moment ou à un autre, à la place d'une adresse caractère, tu as une adresse mémoire autre que celles voulues, donc vérifie bien tous tes "disp" et tous tes "text()" !

Je vois partout des Text(argument) comme par exemple Text(Str2). Sachant que ceci déplace le stylo vers l'argument mais n'écrit rien, contrairement à Text argument, es-tu sûr de ton code ?

Comment ça, Text argument ?