Poster un nouveau sujet Poster une réponse
trouver certaine touches pr
Auteur Message
invité
Invité
Posté le : Dim 11 Oct 2009, 10:56   Citer 

Bonjours , j'ai trouver un snake sur le programme des internaute :

EffDessin
0=>Xmin
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,cupsmiley.gif6
Ligne(6,cupsmiley.gif6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
cupsmiley.gif8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test(cupsmiley.gifI,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,cupsmiley.gifA-3,B+2,cupsmiley.gifA-2
If cupsmiley.gifI[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


mais voila certaines touche (mise en rouge) je ne trouve pas et j'ai tout recopier a la main sur une calculette ti 82 stats.fr .

Pour liste j'ai chercher et essayer plein de truc avec liste et un triangle devant mais rien n'y fait ! Pour fonctNAff , pas du tout trouver !


Et pour les 4 espaces j'ai supposer et j'ai mis 4 espace et donc du vide comme sa [ ] !
Et pour pas egal j'ai mis le signe differents.....est ce bon ?

  Haut de page Bas de page 
 
Didouille



Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18
Posté le : Dim 11 Oct 2009, 14:31   Citer 

Pour FonctNaff je crois que c'est 2nd + vars + 5 + 2
Pour les 4 espace, il faut mettre " " happy.gif
Pas égale à c'est bien le signe différent (2nd + math + 2)
Pour faire liste 6, c'est très facile et faut avoir les yeux en face des trous, c'est 2nd + 6 laugh.gif

----------------------
--Didouille--
 Adresse email Haut de page Bas de page 
 
invité
Invité
Posté le : Dim 11 Oct 2009, 14:55   Citer 

FonctNaff en fesant 2nd vars , le 5 c student Fdp et de toute facon je l'ais mm pas trouver dans le catalogue .


Et merci pour les liste ^^ et j'ai donc laisser comme sa pour les espaces et differents !



Mais du coup j'ai rien pour FonctNAff et quand j'essaye de lancer le programme sa me met l'erreur sur





EffDessin
0=>Xmin
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,cupsmiley.gif6
Ligne(6,cupsmiley.gif6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
cupsmiley.gif8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test(cupsmiley.gifI,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,cupsmiley.gifA-3,B+2,cupsmiley.gifA-2
If cupsmiley.gifI[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

  Haut de page Bas de page 
 
invité
Invité
Posté le : Dim 11 Oct 2009, 14:58   Citer 

bon enfaite il marche a peu pres mais le machin laisse une trainé et il manque toujours une ligne

  Haut de page Bas de page 
 
Didouille



Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18
Posté le : Dim 11 Oct 2009, 17:18   Citer 

Si sa laisse une trainée c'est à cause des 4 espace qui manque.
Marque sa exactement :
Texte(Liste4(E),Liste5(E),"(la tu met quatre espaces entre les guillemets)"

Pour FonctNaff c'est ce que t'avais dit mais peu être que comme on pas la même calculatrice, c'est pas le même chemin; Sur la tienne je pense c'est : 2nd + vars + Aff/Naff + FonctNaff

Pour le code touche normalement c'est bon.

----------------------
--Didouille--
 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