Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 03 Jui 2011, 21:58
Est-ce que tu pourrait s'il te plaît remplacer les carractères bizzards par leur équivalence (la flèche du sto tu peu la remplacer par " -> ", le moins des négations par "-", si tu ne sais quoi mettre, met "[le nom du simbole en toutes lettres]"). Pourrais-tu s'il te plaîs également indiquer qu'el type d'erreur tu optiens (titre du menu d'erreur) et quand tu appuis sur [2] après l'érreur, sur quelle ligne et quel carractère s'arrette le curseur.
Merci d'avance pour ces éléments qui devraient grandement simplifier la découverte de l'erreur.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Pokepoke Invité
Posté le : Sam 04 Jui 2011, 11:06
::ClrHome
:Output(1,1,"VOUS ETES PRET A RELEVER DES DEFIS, CA TOMBE BIEN C'EST FAIT POUR VOUS
:For(I,1,16
:Output(7,I,"-
:End
:Output(8,2,"ESSIQUE T.
:For(I,1,2500
:End
:ClrHome
:For(I,1,16
:Output(2,I,"-
:Output(4,I,"-
:End
:Output(3,3,"PREMIER DEFI
:Output(7,4,"LES BOULES
:Pause
:ClrHome
:Output(1,1,"VOUS ALLEZ VOIR UNE SERIE DE BOULES DE MOTIFSDIFFERENTS PENDANT UN LAPS DE TEMPS ET VOUSDEVREZ RETABLIR LE MODELE.
:Pause
:ClrHome
:ClrDraw
:10→dim((Liste1
:10→dim(Liste2
:Fill(0,Liste2
:0→N
:Text(5,40,300
:Lbl 0
:For(I,1,10
:Line(8I,34,8I+3,34
:Line(8I,29,8I+3,29
:Line(8I-1,30,8I-1,33
:Line(8I+4,30,8I+4,33
:If N=1:Then
:Line(8I,30,8I+3,30
:Line(8I,31,8I+3,31
:Line(8I,32,8I+3,32
:Line(8I,33,8I+3,33
:End
:If N=0:Then
:randInt(1,3→S
:If S=2:Then
:Line(8I+1,31,8I+2,31
:Line(8I+1,32,8I+2,32
:End
:If S=3:Then
:Line(8I,31,8I+2,33
:Line(8I+2,30,8I+3,31
:End
:S→Liste1(I
:End
:End
:If N=1
:Goto 2
:For(T,300,0,‾1
:If T>99
:Text(5,40,T
:If T≤99 and T>9:Then
:Text(5,40,0
:Text(5,44,T
:End
:If T≤9:Then
:Text(5,40,"00
:Text(5,48,T
:End
:If T=0
:Goto 1
:End
:Lbl 1
:ClrDraw
:1→N
:Goto 0
:Lbl 2
:1→I
:Text(0,0,"CHOISISSEZ AVEC 1, 2 OU 3
:Text(6,0,"ET CONFIRMEZ AVEC ENTER
:Text(50,15,"1:
:Text(50,40,"2:
:Text(50,65,"3:
:For(J,1,3
:Line(25J-1,13,25J+2,13
:Line(25J-1,8,25J+2,8
:Line(25J-2,9,25J-2,12
:Line(25J+3,9,25J+3,12
:End
:Line(50,10,51,10
:Line(50,11,51,11
:Line(74,10,76,12
:Line(76,9,77,10
:Lbl 3
:Line(8I+1,20,8I+1,26
:Line(8I-1,24,8I+1,26
:Line(8I+3,24,8I+1,26
:Lbl 5
:getKey→H
:If H=92:Then
:1→Liste2(I
:For(E,30,33
:Line(8I,E,8I+3,E,0
:End
:End
:If H=93:Then
:2→Liste2(I
:For(E,30,33
:Line(8I,E,8I+3,E,0
:End
:Line(8I+1,31,8I+2,31
:Line(8I+1,32,8I+2,32
:End
:If H=94:Then
:3→Liste2(I
:For(E,30,33
:Line(8I,E,8I+3,E,0
:End
:Line(8I,31,8I+2,33
:Line(8I+2,30,8I+3,31
:End
:If H=105:Then
:Line(8I+1,20,8I+1,26,0
:Line(8I-1,24,8I+1,26,0
:Line(8I+3,24,8I+1,26,0
:I+1→I
:If I=11
:Goto 4
:Goto 3:End
:Goto 5
:Lbl 4
:1→I
:While I<10 and Liste1(I)=Liste2(I)
:I+1→I
:End
:If I=10:Then
:ClrHome
:Output(1,1,"C'EST UN SANS FAUTE !! VOUS AVEZ UNE TRES BONNE MEMOIRE. PLACE AU DEUXIEME DEFI.
:Pause
:DelVar Liste1
:DelVar Liste2
:Goto A
:Else
:ClrHome
:Output(1,1,"QUE D'ERREURS !!VOUS NE POUVEZ PAS ACCCEDER AU DEFI SUIVANT. C'EST PERDU.
:Pause
:ClrHome
Merci , pour la réponse ,
En fait , pour l'erreur , c'est que les dimensions de fenêtres ne sont pas présentes . Ce qui rend le programme incomprehensible . Je demande juste si vous pouviez m'aider à retrouver les dimensions de la fenêtre graphique .
Je pense que les dimensions de la fenêtre sont
0->Xmin:0->Ymin:94->Xmax:62->Ymax
sinon pour le programme je les réécris avec les sto= -> ainsi que les autres signes
Code
ClrHome
:Output(1,1,"VOUS ETES PRET A RELEVER DES DEFIS, CA TOMBE BIEN C'EST FAIT POUR VOUS
:For(I,1,16
:Output(7,I,"-
:End
:Output(8,2,"ESSIQUE T.
:For(I,1,2500
:End
:ClrHome
:For(I,1,16
:Output(2,I,"-
:Output(4,I,"-
:End
:Output(3,3,"PREMIER DEFI
:Output(7,4,"LES BOULES
:Pause
:ClrHome
:Output(1,1,"VOUS ALLEZ VOIR UNE SERIE DE BOULES DE MOTIFSDIFFERENTS PENDANT UN LAPS DE TEMPS ET VOUSDEVREZ RETABLIR LE MODELE.
:Pause
:ClrHome
:ClrDraw
:10->dim((Liste1
:10->dim(Liste2
:Fill(0,Liste2
:0->N
:Text(5,40,300
:Lbl 0
:For(I,1,10
:Line(8I,34,8I+3,34
:Line(8I,29,8I+3,29
:Line(8I-1,30,8I-1,33
:Line(8I+4,30,8I+4,33
:If N=1:Then
:Line(8I,30,8I+3,30
:Line(8I,31,8I+3,31
:Line(8I,32,8I+3,32
:Line(8I,33,8I+3,33
:End
:If N=0:Then
:randInt(1,3->S
:If S=2:Then
:Line(8I+1,31,8I+2,31
:Line(8I+1,32,8I+2,32
:End
:If S=3:Then
:Line(8I,31,8I+2,33
:Line(8I+2,30,8I+3,31
:End
:S->Liste1(I
:End
:End
:If N=1
:Goto 2
:For(T,300,0,-1
:If T>99
:Text(5,40,T
:If T(Inférieur ou égale )99 and T>9:Then
:Text(5,40,0
:Text(5,44,T
:End
:If T(inférieu ou égale )9:Then
:Text(5,40,"00
:Text(5,48,T
:End
:If T=0
:Goto 1
:End
:Lbl 1
:ClrDraw
:1->N
:Goto 0
:Lbl 2
:1->I
:Text(0,0,"CHOISISSEZ AVEC 1, 2 OU 3
:Text(6,0,"ET CONFIRMEZ AVEC ENTER
:Text(50,15,"1:
:Text(50,40,"2:
:Text(50,65,"3:
:For(J,1,3
:Line(25J-1,13,25J+2,13
:Line(25J-1,8,25J+2,8
:Line(25J-2,9,25J-2,12
:Line(25J+3,9,25J+3,12
:End
:Line(50,10,51,10
:Line(50,11,51,11
:Line(74,10,76,12
:Line(76,9,77,10
:Lbl 3
:Line(8I+1,20,8I+1,26
:Line(8I-1,24,8I+1,26
:Line(8I+3,24,8I+1,26
:Lbl 5
:getKey->H
:If H=92:Then
:1->Liste2(I
:For(E,30,33
:Line(8I,E,8I+3,E,0
:End
:End
:If H=93:Then
:2->Liste2(I
:For(E,30,33
:Line(8I,E,8I+3,E,0
:End
:Line(8I+1,31,8I+2,31
:Line(8I+1,32,8I+2,32
:End
:If H=94:Then
:3->Liste2(I
:For(E,30,33
:Line(8I,E,8I+3,E,0
:End
:Line(8I,31,8I+2,33
:Line(8I+2,30,8I+3,31
:End
:If H=105:Then
:Line(8I+1,20,8I+1,26,0
:Line(8I-1,24,8I+1,26,0
:Line(8I+3,24,8I+1,26,0
:I+1->I
:If I=11
:Goto 4
:Goto 3:End
:Goto 5
:Lbl 4
:1->I
:While I<10 and Liste1(I)=Liste2(I)
:I+1->I
:End
:If I=10:Then
:ClrHome
:Output(1,1,"C'EST UN SANS FAUTE !! VOUS AVEZ UNE TRES BONNE MEMOIRE. PLACE AU DEUXIEME DEFI.
:Pause
:DelVar Liste1
:DelVar Liste2
:Goto A
:Else
:ClrHome
:Output(1,1,"QUE D'ERREURS !!VOUS NE POUVEZ PAS ACCCEDER AU DEFI SUIVANT. C'EST PERDU.
:Pause
:ClrHome
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 04 Jui 2011, 14:38
Ma question était plutôt :
1) Est-ce que ça t'affiche une erreur ou est-ce que celà ne fonctionne simplement pas mais sans que la TI t'annonce une erreure (ex : ERR:SYTAXE,ERR:MEMORY,...)
2)Si tu optient un menu de la forme
Code
ERR:xxxxxxx
1:Quitter //"1:Quit" si ta TI est en anglais
2:Voir //"2:Goto" si ta TI est en anglais
Dis mois : -qu'est-ce qui est écrit à la place de xxxxxxx
-sur quelle ligne du programme s'arrette le curseur quand tu appuis sur 2
-sur quel caractère de cette ligne s'arrete le curseur.
Merci de bien vouloirs réaliser ces tests et de poster les résultats, ils devraient permettre de repérer plus facilement le problème.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Pokepoke Invité
Posté le : Sam 04 Jui 2011, 18:12
Merci , pour ces réponses , j'ai essayé avec la fenêtre graphique et cela marche . Merci encore de votre aide .
