Poster un nouveau sujet Poster une réponse
Problème...
Auteur Message
azerty1



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Dim 15 Mai 2011, 19:04   Citer 

Bonjour, voilà, je "désespère"... Je ne trouve pas pourquoi lorsque je mets cela par exemple:

Code
:0->S
:Lbl J
:EffEcr
:Disp "GO
:Pause
:entAléat(1,2 -> D
:If D=1:Then:92 ->M:Disp "1:End
:If D=2:Then:93 ->M:Disp "2:End
:For(I,0,300
:End
:codeTouche->A
:If A=M
:S+1->S
:If A[différent de]M
:Goto 1
:Goto J
:Lbl 1
:Disp "PERDU


Pourquoi, cela me renvoie automatiquement au Lbl 1, même si j'appuis sur la bonne touche?

----------------------
Ti-Connect 64bits
PROTECT
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 15 Mai 2011, 19:20   Citer 

Je ne comprends pas bien pourquoi.

Verrifie que Goto1 est bien juste après If A=/=M. Il ne doit pas y avoir de ligne ni de ":" entre les deux (sauf s'il est sur la même ligne).

Je te propose aussi cette version :
Code
0->S
Lbl J
EffEcr
Pause "READY?
entAléat(1,2->D
Disp D
For(I,0,300
End
codeTouche->A
If A=91+D
S+1->S
If A=91+D:Goto J
Disp "PERDU



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Dim 15 Mai 2011, 19:46   Citer 

Non j'ai bien vérifié... C'est très bizarre...
J'essaie ta version dès que j'ai le temps, merci!

----------------------
Ti-Connect 64bits
PROTECT
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Dim 15 Mai 2011, 19:56   Citer 

Donc ton prog marche, mais le truc c'est que je voulais me servir de cela, en faisant intervenir les chiffres de 1 à 9... donc je fais un prog identique au premier, et cela marche 1 fois sur 10 quasiment... :/

----------------------
Ti-Connect 64bits
PROTECT
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 15 Mai 2011, 20:33   Citer 

Augmente le temps de la temporisation pour voir.

Je te propose ces deux solutions :
Code
0->S
Lbl J
EffEcr
Pause "READY?
entAléat(1,9->D
Disp D
If D=1:92
If D=2:93
If D=3:94
If D=4:82
If D=5:83
If D=6:84
If D=7:72
If D=8:73
If D=9:74
Rép->M
For(I,0,500
End
codeTouche->A
If A=M
S+1->S
If A=M
Goto J
Disp "PERDU


Code
0->S
{92,93,94,82,83,84,72,73,74->L1
Lbl J
EffEcr
Pause "READY?
entAléat(1,9->D
Disp D
L1(D->M
For(I,0,500
End
codeTouche->A
If A=M
S+1->S
If A=M
Goto J
Disp "PERDU



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Dim 15 Mai 2011, 20:38   Citer 

Dèjà essayer... Meme avec 2000, toujours le même résultats...

----------------------
Ti-Connect 64bits
PROTECT
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes