TI82 - Page 1

Bonsoir,
je panne sur le dernier code de la page
http://www.tiforge.info/tigruge/tutoriaux/antiseche.html
Mon graphique ne se dessine pas, sur le côté droit en haut il y a comme
une barre de chargement qui monte vers le haut sur 5mm
N'y a t'il pas derreur de saut de ligne ou autre sinon?
Merci de m'éclairer

le code en question :
PROGRAM:MDP  
:Trace Trace le graphique en cour
:Lbl 1  
:For(X,1,1E99) boucle
:If Getkey=21:Goto A Si la touche pressé est 2nd, saut vers la boucle qui contrôle le 2ém touche
:End  
   
:Lbl A  
:For(X,1,1E99) //
:If getkey=52:Goto B Si la touche pressé est sin, saut vers la boucle qui contrôle le 3ém touche
:End  
   
Lbl B  
:For(X,1,1E99)  
getkey-->K enregistre getkey en K
:If K=45:Goto C Si la touche pressé est Clear, saut vers le reste du programme
If K≠45 and K≠0:Goto 1 Si la touche appuyé est fausse, retour au début !
:End  
   
Lbl C  
Output(1,1," C'EST BON" //Faites ici votre programme comme d'habitude
Pause //
Stop

Une question, la "barre de cargement est-elle en haut à droite et "défille-telle" ? si oui, c'est normal, il s'agit d'in indicateur comme quoi la TI execute un programme.

Sinon, il est également possible que tu ai une fonction qui se trace. Vérifie que tu n'en a pas d'activée dans l'éditeur de fonction.

Sinon le code ne me semble pas contenir d'erreures (même s'il est possible qu'il ralentisses un peu voir qu'il donne une erreur mémoire (rien de grave mais faut relancer le programme) si on se trompe trop souvant.

Pourquoi ne pas mêttre de lignes du type If K≠45 and K≠0:Goto 1 Si la touche appuyé est fausse, retour au début !à chaque fois?

Sandro

PS : si c'est pour tricher, noublie pas de bloquer l'édition, sinon le prof peut aller voir le tust depuis l'éditeur de programme.

Merci de ta réponse, effectivement cest la barre de chargement mais le graphique ne se déssine pas en fait c'est parceque je navais rien mis comme fonction... Mais impossible de stopper le programme.
J'aimerais introduire directement dans le programme une fonction simple pour faire un petit graphique, je ne sais pas comment faire.
Je ne sais pas trop coder à ce niveau la, et pas non plus comment bloquer édit.

[nosmile]Remplir une fonction :
:"X+X²-2"->Str1
tr>Eq(Str1, Y1)

Str>Eq je suis pas plus sur du nom, mais tu dois obligatoirement passer par une chaine de caractêres.
:For(X,1,1E99)
peut être remplacé élégament par
:While(true)
Cependant, comme Sandro l'a fait remarquer, on évite en général d'effectuer des sauts au milieu d'une boucle
Bloquer Edit : ça change pas grand chose hein, les inspecteurs feront pas la différence... Cela dit, je crois que tu peux utiliser des programmes comme MirageOS pour bloquer edit sur ton programme (se rapporter au mode d'emploi)
Sinon, il y a des dizaines d'utilitaires qui le font sur Ticalc.org.

C'est pas moi qui ai fait ce code...
À chaque saut de ligne il y a des ":" mais j'ai l'impression qu'il en manque?

On dirait bien. Ca ne marche pas sans les retours à la ligne ou les ":".

Merci,
J'ai réussi à le faire fonctionner avec des while(true) super!
Parcontre je trouve pas sur Google comment cacher le "edit" sans avoir à utiliser l'ordinateur?

C'est une ligne de code assembleur mais je la connais pas. Tu as pas un ami qui a une ti et des jeux dessus?

Merci...
Sinon j'ai des problème avec mon code, des que le cercle est tracé le programme dit "ok"

:Cercle(4,4,4)
:Lbl 1
:While (TRUE)
:If codeTouche=42:Goto A
:End
:Lbl A
:While (TRUE)
:If codeTouche=71:Goto B
:End
:Lbl B
:While (TRUE)
:codeTouche->K
:If K=105:Goto C
:If K =/= 105 et K =/= 0
:Goto 1
:End
:Lbl C
:Output(1,1,"OK")
:Pause :EffEcr

Ah oui, c'est vrai, la calto connait pas les valeurs de vrai et faux (booléens).
Ca fait longtemps que j'ai pas codé...
Si tu remplaces TRUE par 1 ça marchera

Merci

Merci à tous!
J'aimerais savoir une dernière chose : comment faire pour qu'on puisse faire défiler le text en output( vers le bas?
Merci

tu pourrais expliquer ce que tu endend par là s'il te plais.

Essaye de rajouter des Disp " " (1 par ligne à décaler), mais je ne suis pas sur que c'est de ça que tu parle.

Sandro

To175 (./12) :
J'aimerais savoir une dernière chose : comment faire pour qu'on puisse faire défiler le text en output( vers le bas?

Tu peux préciser ta question?
Dans Output, les deux chiffres passés en paramêtres sont x et y (à toi de tester pour savoir lequel est y).
Y : 0 = 1ère ligne, 1 = 2è ligne...
Mais attention, Output ne te fais que de l'affichage sur une ligne.
QUand tu veux effacer une partie de l'écran, tu peux faire un output avec des espaces au même endroit que l'ancien texte.

Si tu veux de l'affichage multiligne facilement, passe par Disp comme l'a dit Sandro

Merci,
Quand j'ai écrit mon text avec des Output( ça prends tout lécran, mon text est long et le nombre de lignes est supérieur au nombre de ligne de la calculatrice donc je voudrais savoir comment faire, si je dois ajouter quelque chose ou autre, pour pouvoir faire défiler le texte vers le haut pour pouvoir lire ce qui est caché en bas!

Merci