Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



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



Autorisation : Membre
Nb de messages : 468
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
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
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 : 468
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
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
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
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
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 
 
Google_AdSense



Publicité    



 
azerty1



Autorisation : Membre
Nb de messages : 468
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
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa