Programmation ti 82-stats.fr

Fermé
H3llone - 21 sept. 2011 à 21:20
 JUJU - 27 sept. 2013 à 23:07
Bonjour, Je souhaiterai recopier ce code de snake sur ma calculette mais que dois-je faire des " => "? merci beaucoup.






Voici le code:


94=>Xmax
(-)62=>Ymin
0=>Ymax
AxesNAff
FonctNAff
6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
1=>dim(Liste6
If .7349=partDéc(Liste6(1:Liste6(1=>O
EffListe Liste4
EffListe Liste5
99=>dim(Liste4
99=>dim(Liste5
For(ø,1,6,1.4
Ligne(88,(-)ent(ø),6,(-)ent(ø)
End
Ligne(6,(-)57,88,(-)57
Ligne(88,(-)56,88,(-)6
Ligne(6,(-)6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
(-)8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test((-)I,J:Goto 5
Ligne(J,I,J+2,I-2
Ligne(J,I-2,J+2,I
Goto 3
Lbl 2
6+50partDéc((A+C)/50=>A
8+80partDéc((B+D)/80=>B
If pxl-Test(A+2,B:Goto 4
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"[4 espaces]
A=>Liste4(E:B=>Liste5(E
codeTouch(=>K
If K=0:Goto 2
If D=72:Then
If K=24:67=>D
If K=26:77=>D
If 1=abs(K-25:44=>C
Goto 2:End
If C[pas égal à]44:Goto 2
If K=25:39=>C
If K=34:49=>C
If K=25 ou K=34:72=>D
Goto 2
Lbl 4
Texte(A,B,"º
Ligne(B+1,(-)A-3,B+2,(-)A-2
If (-)I[pas égal à]A+2 ou J[pas égal à]B ou N=99:Goto Q
N+1=>N
Texte(0,38,N+1
Goto 5
Lbl Q
If N+1>O:N+1.7349=>Liste6(1
Texte(27,31,"GAME OVER
Pause
EffEcr
Output(2,5,"SNAKE NN
Output(3,3,"VERSION  1.0
Output(5,5,"NOUFNOUF
Output(6,5,"06/10/06






7 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
22 sept. 2011 à 07:24
bonjour

=> est mis pour la touche STO (3 => X met 3 dans la variable X)

n'abuses quand même pas de snake!!

bonne suite
3
Mais par exemple comment je tape 0=>0
Et aussicommebt taper Liste6
1
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
23 sept. 2011 à 10:09
re

je t'ai dit que je pensais que .... (la TI 82 sortie d'usine possede ces 6 listes, on peut bien sur en ajouter, mais il n'y a rien dans le début du programme qui le suggère)
RQ1. je ne connais pas la TI 82 Statsfr
mais
RQ2. cette ligne me parait étrange ...
If .7349=partDéc(Liste6(1:Liste6(1=>O


bonne suite
1
Salut,
Comment il faut écrire la ligne précédente ? j'ai pas compris !
Merci =)
0
Bjr a tous, j'aimerais savoir comment on fait pour mettre le "Winner"

merci d'avance bsx
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
22 sept. 2011 à 09:24
re

1. c'est certainement 0 (le nombre) sto O (la lettre)
2. Je pense que Liste 1, Liste 2, etc ... font référence aux listes prédéfinies L1, L2, etc ... accessibles depuis le clavier (touches 1, 2 ...)

bonne suite
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Et je fais comment les virgules?
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
22 sept. 2011 à 20:03
re

avec la touche virgule

RQ1. un message commence toujours par bonjour
RQ2. quand tu reçois une réponse, même si elle ne correspond pas exactement à ta demande, tu termines ta réponse par merci.

ça aide ....

bonne suite
0
Re,
Es-tu sur que Liste1 par exemple est L1?
Merci d'avance.
0