Forum

Catégorie : Programmes
Forum : Aide à la programmation
Vues : 4136
Réponses : 28
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Problème avec Snake

Egoutagny le 16/11/2007 à 19:19
Bonjour,
j'ai télécharger le snake sur le site :
https://www.ticalc.org/archive[...]/124/12436.html

Je l'ai tout tapé à la main et relus 3 fois maxiangry.gif maxiangry.gif
ET... SYNTAX ERROR
Un truc vraiment bizarre ...
Voilà le programme
Code
ClrHome
Output(1,3,"XSNAKE  V4.7
Output(3,8,"BY
Output(5,7,"XprO
Output(8,2,"HIGH SCORE:
Output(8,14,ZÖMin
Normal
PlotsOff
AxesOff
FnOff
GridOff
For(A,1,999
End
0ü ( ) Xmin
94ü ( ) Xmax
0ü ( ) Ymin
62ü ( ) Ymax
0ü ( ) N
0ü ( ) P
0ü ( ) O
39ü ( ) dim(áY
1ü ( ) M
ClrDraw
Lbl 0
Repeat 0
Fill(99,áY
áYü ( ) áX
49ü ( ) B
47ü ( ) A
34ü ( ) D
1ü ( ) E
10ü ( ) L
0ü ( ) H
0ü ( ) I
Horizontal 0
Horizontal 1
Horizontal 2
Horizontal 60
Horizontal 61
Horizontal 62
Vertical 0
Vertical 1
Vertical 2
Vertical 3
Vertical 91
Vertical 92
Vertical 93
Vertical 94
getKey
While M
While H
While not(I)D=24
Dü ( ) C
Repeat Ans+I
A-3ü ( ) A
pxl-Test(61-B,Aü ( ) I
Pt-On(A,B,2
Aü ( ) áY(E
Bü ( ) áX(E
1+E(EøLü ( ) E
Pt-Off(áY(E),áX(E),2
getKey
End
Ansü ( ) D
End
While not(I)(D=25
Dü ( ) C
Repeat Ans+I
B+3ü ( ) B
pxl-Test(61-B,Aü ( ) I
Pt-On(A,B,2
Aü ( ) áY(E
Bü ( ) áX(E
1+E(EøLü ( ) E
Pt-Off(áY(E),áX(E),2
getKey
End
Ansü ( ) D
End
While not(I)(D=26
Dü ( ) C
Repeat Ans+I
A+3ü ( ) A
pxl-Test(61-B,Aü ( ) I
Pt-On(A,B,2
Aü ( ) áY(E
Bü ( ) áX(E
1+E(EøLü ( ) E
Pt-Off(áY(E),áX(E),2
getKey
End
Ansü ( ) D
End
While not(I)(D=34
Dü ( ) C
Repeat Ans+I
B-3ü ( ) B
pxl-Test(61-B,Aü ( ) I
Pt-On(A,B,2
Aü ( ) áY(E
Bü ( ) áX(E
1+E(EøLü ( ) E
Pt-Off(áY(E),áX(E),2
getKey
End
Ansü ( ) D
End
If D=21
Pause
If D=45
Then
Lbl 2
ClrHome
Output(2,7,"GAME
Output(3,7,"OVER
Lbl 3
ClrDraw
10N+(L-10)/3+Oü ( ) O
If O>ZÖMin
Then
Oü ( ) ZÖMin                                        Et là ça bug
Output(5,5,"NEW HIGH
End
Output(6,5,"SCORE:
Output(6,11,O
DelVar áX
DelVar áY
Return
End
If I
Then
If A=J and B=K
Then
Pt-Off(J,K
L+3ü ( ) L
0ü ( ) I
0ü ( ) H
Else
For(A,3,31
Horizontal A
Horizontal 62-A
End
P+1ü ( ) P
If P=3
Goto 2
(L-10)/3+Oü ( ) O
0ü ( ) M
N-1ü ( ) N
Goto 0
End
End
If D<24 or D>26 and Dø34
Cü ( ) D
End
While not(H
1+3randInt(1,19ü ( ) K
2+3randInt(1,29ü ( ) J
not(pxl-Test(62-K,J+1ü ( ) H
End
Pt-On(J,K,3
If L=40
0ü ( ) M
0ü ( ) I
End
ClrDraw
N+1ü ( ) N
If N=7
Then
ClrHome
Output(1,1,"CONGRATULATIONS!
Output(3,3,"YOU'VE WON!!
Goto 3
End
If N
{32,9,32,53,62,9,62,53ü ( ) áX
If N>1
augment(áX,{34,52,60,52,34,10,42,10,52,10,60,10ü ( ) áX
If N>2
augment(áX,{2,31,12,31,22,31,42,31,52,31,72,31,82,31,90,31ü ( ) áX
If N>3
augment(áX,{2,52,12,52,22,52,72,52,82,52,90,52,2,10,12,10,22,10,42,10,52,10,72,10,82,10,92,10ü ( ) áX
If N>4
augment(áX,{11,41,11,21,23,41,23,21,71,41,71,21,83,41,83,21ü ( ) áX
If N>5
augment(áX,{41,41,41,21,53,41,53,21ü ( ) áX
If 99-áX(1
Then
For(X,1,dim(áX),4
áX(Xü ( ) A
áX(X+1ü ( ) B
áX(X+2ü ( ) C
áX(X+3ü ( ) D
If A=C
Then
Line(A-1,B,A-1,D
Line(A+1,B,A+1,D
Else
Line(A,B-1,C,B-1
Line(A,B+1,C,B+1
End
Line(A,B,C,D
End
End
1ü ( ) M
End


Assez incompréhensible puisque le symbole a été utilisé au moins trois fois...
Quelqu'un a une idée??
Egoutagny le 16/11/2007 à 19:54
En fait je ne sais pas si le "ÖMin" sert à qqch...
ratuss le 17/11/2007 à 02:06
Salut,

Quand tu mets GOTO il te renvoi ou ?
Egoutagny le 17/11/2007 à 11:31
lequel GOTO??
W[a]nTeD le 17/11/2007 à 11:37
Et bien quand le jeu bug, il y a ecrit err:????? et aprés tu fais quitter ou goto ("voir" si la calculette est en francais!)! Et là tu te retrouve dans le programme, dis nous à quelle ligne tu te retrouve godgrace.gif
Egoutagny le 17/11/2007 à 11:41
à la ligne où j'ai mis "Et là ça bug"
coc5 le 17/11/2007 à 17:03
Code
ZÖMin


Ca correspond à quoi en Ti-Basic ?
vibra le 17/11/2007 à 18:14
À rien je crois.
ratuss le 17/11/2007 à 23:17
A une variable, du style Xmax

sinon https://tout82.pages-perso.fre[...]t.php?sujet=799
Egoutagny le 18/11/2007 à 12:58
coc5 a écrit :
Code
ZÖMin


Ca correspond à quoi en Ti-Basic ?


ça correspond à un truc genre Zn(en italique)min
coc5 le 18/11/2007 à 13:40
Dans ce cas c'est bizarre parce-que ce serait plutôt une erreur domaine qui devrait s'afficher...

Essaie de voir si tu n'as pas mis des esapaces entre les commandes ou après le Znmin.
Nomrmalement, ZnMin doit correspondre à un groupe de mot !
Egoutagny le 18/11/2007 à 13:50
en fait, j'ai viré le nmin donc il reste plus que Z et ça ne me le fait plus
par contre il y a des truc bizarres comme un meilleur score de 156 (je n'ai jamais fait plus de 10 moodforlove.gif ) ... je pense que c'est lié.
ratuss le 18/11/2007 à 15:10
tu fais 0->Z dans l'écran principal.

+
Egoutagny le 20/11/2007 à 13:03
ok
Egoutagny le 21/11/2007 à 17:56
ça y est j'ai trouvé !!!!

Pour avoir Znmin il faut aller dans VARS puis 2 (Zoom...) puis 2 fois à droite (ZU) et 4 fois en bas
Egoutagny le 21/11/2007 à 19:13
Euh..... Je veux pas jouer les boulets mais j'ai encore un problème...

Quand je passe au niveau 3, la calculette me met ERR:DIM MISMATCH ici :

Code
augment(áX,{34,52,60,52,34,10,42,10,52,10,60,10ü ( ) áX


je l'ai relu encore et encore....crazy.gif

Ca vient de moi ou du prog????
ratuss le 22/11/2007 à 17:24
pour le á tu as bien mis le petit L ? (disponible dans le catalogue)
Egoutagny le 22/11/2007 à 17:43
oui...
ratuss le 22/11/2007 à 17:46
...et pour ü la flèche sto ?
Egoutagny le 22/11/2007 à 17:55
oui...
ratuss le 22/11/2007 à 18:18
Citation
DIM MISMATCH

Vous avez tenté d'effectuer une opération qui porte sur plusieurs listes ou matrices, mais leurs dimensions ne coincident pas.



Citation
augement(listeA,listeB)

Donne une liste qui se compose de listeA à la fin de laquelle est rajoutée listeB


... Dans le code je vois pas trop d'erreurs => est ce que ta liste LX est définit (va voir du coté de la mémoire pour ca...) ?
Sangohan38 le 28/11/2007 à 16:07
Egoutagny, j'ai mis dans la section article toutes les fonctions disponible sur une 83 donc je pense que tu aurais du commencer par la.

Pour ta ligne qui bug, tu à mis un moins (signe de la négativitée) devant le X car si tu regarde le code, tu voit le symbole de la flèche puis celui du signe de la négativitée.

Sangohan38
Egoutagny le 01/12/2007 à 15:54
Non mais laissez tomber je l'ai supprimé et comme j'ai bientôt le cable ce sera bcp mieux

En tout cas merci a vous
tahmahal le 15/12/2007 à 12:37
J4au un probleme :

Sur ce passage :

Code
While not(I)(D=34
Dü ( ) C
Repeat Ans+I
B-3ü ( ) B
pxl-Test(61-B,Aü ( ) I
Pt-On(A,B,2
Aü ( ) áY(E
Bü ( ) áX(E
1+E(EøLü ( ) E
Pt-Off(áY(E),áX(E[couleur=#FF5500])[/couleur],[couleur=#55FF00]2[/couleur]


Im me met soit "ERR DIM INVALIDE" si je ne supprime pas la parenthèse rouge, soit ERR ARGUMENT sur le 2 vert.

Quun saurait comme résoudre ce problème?
ratuss le 15/12/2007 à 15:59
Ce jeu n'est pas bugué. C'est sans doute une erreur de recopiage.

+
alex_swa le 22/09/2008 à 04:22
Bonjour votre ZÖMin correspond a Znmin

j'éspère vous avoir aidé bigmouth.gif
yogo le 23/11/2009 à 22:58
Bonsoir à tous

Je sais que je remonte le topic mais que signifie "à" ? ahh.gif
Et on le trouve t-on sur une calculatrice ti 82 stats.fr?

Merci d'avance
Sangohan38 le 24/11/2009 à 17:32
A vu d'œil, je dirais que ça correspond au L d'une liste c'est-à-dire le petit L que tu trouve dans le catalogue où dans la partie dédiée au listes.

Sangohan38
Kerumen le 13/12/2009 à 19:26
Bonjour,

J'ai recopié le programme, tout marche bien sauf que, quand le serpent se dirige vers la droite, il va 2X moins vite que quand il va vers le haut, vers la gauche ou vers le bas. J'ai relu 3 fois mais je ne trouve pas d'erreur !

Quelqu'un saurait il ou se situe l'endroit pour indiquer la vitesse du serpent pour chaque touche indiqué ? ou alors comment faire pour régler le problème ?

Merci de votre aide...

Kerumen
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.