Forum

Catégorie : Programmes
Forum : Aide à la programmation
Vues : 1532
Réponses : 25
Type : discussion
Etat : réponses autorisées

Besion d'aide

Le Noob le 20/10/2010 à 21:52
Bonjour, j'ai un problème avec la programmation d'un jeu : fence2. En fait quand je le lance il me marque "erreur" et quand j'appuie sur "voir" il me montre cette ligne :Texte(33,A,"FENCING"
A votre avis, c'est quoi l'erreur. Merci d'avance.

P.S.: J'ai une TI 82 Stats.fr
Rézus le 20/10/2010 à 21:59
Il te marque erreur quoi ?
Le Noob le 20/10/2010 à 22:10
Il me marque "ERR:SYNTAX"
Rézus le 20/10/2010 à 22:12
Vérifie que tu n'as pas fait d'erreur de copie,et que tu as marqué "Texte(" en appuyant sur [2nd][prgm] et [0].
Le Noob le 20/10/2010 à 22:18
maintenant il me met "ERR:DIM INVALIDE" et toujours à la même ligne
Sangohan38 le 20/10/2010 à 22:25
As tu bien dimensionner ton graph avant?
Essaye de mettre:
Code
0->Xmin
94->Xmax
0->Ymin
62->Ymax

Au début de ton programme.

Sangohan38
Le Noob le 20/10/2010 à 22:31
c'est deja fait sof dans un autre ordre
Sangohan38 le 20/10/2010 à 22:36
Le problème viens donc de la variable A.
Regarde chaque ligne où elle apparait pour voir si tu n'as pas fait d'erreur.

Sangohan38
Le Noob le 20/10/2010 à 22:45
avant cette ligne elle n'aparait que la ligne juste avan qui est "For(A,o,25" et c'est comme indiquer sur ma feuille
Rézus le 20/10/2010 à 22:45
Remplace le 0 par un 1.
Le Noob le 20/10/2010 à 22:48
ca change rien
Le Noob le 20/10/2010 à 22:54
c'est quoi "ClrDraw" en francais ?
Rézus le 20/10/2010 à 22:56
EffDessin
Le Noob le 20/10/2010 à 22:58
Ok, ca c'est bon mais j'ai toujours le même problème.
Rézus le 20/10/2010 à 23:00
Le programme fait quoi avant de te marquer l'erreur ?
Le Noob le 20/10/2010 à 23:02
en fait rien, il travaille et me donne l'erreur.

Au fait je l'ai pas fini. Ca peut etre a cause de ca ?
Rézus le 20/10/2010 à 23:04
Peut-être,fini le avant,on verra les bugs après.
Le Noob le 20/10/2010 à 23:06
Ok, je reposte ici quand j'ai finie si il y a des bugs ou pas.
Le Noob le 22/10/2010 à 18:44
ca ne marche toujours pas et toujours au meme endroit........snif........SECOUR!!!!!!! svp......bouhouhouhou goutte.gif
linkakro le 22/10/2010 à 22:04
C'est dur d'immaginer toutes les erreurs.
Poste le programme pour qu'on se donne une idée.
Le Noob le 24/10/2010 à 22:45
voila le programme en question:

Code
:5ü ( ) H:5ü ( ) F
:0ü ( ) Xmin
:0ü ( ) Ymin
:94ü ( ) Xmax
:62ü ( ) Ymax
:ClrDraw
:CoordOff
:AxesOff
:For(A,0,25
:Text(A,33,"FENCING"
:End
:For(A,6,40
:Text(31,A,"TWO"
:Text(31,A-6,"      "
:End
:Text(56,22,"BY TRAVIS MAYS"
:Circle(46,31,20
:Line(0,94,64,0
:For(A,0,60
:End
:Line(64,62,24,0
:For(A,0,80
:End
:1ü ( ) A:14ü ( ) B:1ü ( ) C:1ü ( ) D
:Lbl J
:Menu("++FENCING TWO+++","EASY",E,"MEDIUM",5,"HARD",F,"INSTRUCTIONS",G," ",K
:
:Lbl E:2ü ( ) F:Goto 5:Lbl F:9ü ( ) F:Goto 5
:
:Lbl 5
:0ü ( ) Z
:Output(7,1,"----------------"
:Output(1,1,H
:Output(1,16,F
:If C=2:Output(8,1,"BLOCK"
:If D=2:Output(8,12,"BLOCK"
:Output(3,A,"  !":Output(4,A,"O !":Output(5,A,"O-I":Output(6,A,"I"
:Output(3,B,"!":Output(4,B,"! Á":Output(5,B,"I-Á":Output(6,B,"  I"
:getKeyü ( ) Á
:If Á=24:(A-1)ü ( ) A:If Á=26:(A+1)ü ( ) A:If Á=11:Goto 9
:If Á=21:2ü ( ) C
:If Áø21:1ü ( ) C
:
:If A<1:1ü ( ) A
:If (A+2)=B
:Goto A
:If (A+3)=B:Goto 7
:
:1ü ( ) D
:int (3rand)ü ( ) Á
:If Á=0:(B-1)ü ( ) B
:If Á=1:(B+1)ü ( ) B
:If B>14:(B-1)ü ( ) B:ClrHome:Goto 5
:
:Lbl 9
:(Z+1)ü ( ) Z
:If Z<3:Then
:Output(5,A+2," ":Output(4,A+2," ":Output(3,A+2," "
:Output(5,A,"OI":Output(4,A,"O!":Output(3,A," !":End
:If Zù ( ) 3 and Z<6:Then
:Output(4,A+1," ":Output(3,A+1," ":Output(5,A,"OH--":End
:If Z=6:Goto D
:Goto 9
:Lbl D
:If (A+3)=B and Dø2:Then:Goto C:End
:If D=2:Then:ClrHome:Goto 5:End
:ClrHome:Goto 5:End
:
:Lbl 7
:int (3rand)ü ( ) Á
:If Á=0:Then:1ü ( ) D:Goto 5:End
:If Á=1:Goto A
:If Á=2:Then:2ü ( ) D:Goto 5:End
:Lbl A
:(Z+1)ü ( ) Z
:Output(3,B," !":Output(4,B," !":Output(5,B," I":If Z=3:Then
:Output(3,B,"  ":Output(4,B,"  ":Output(5,B-1,"--H":Else:Goto A:End
:If Cø2:Then:(H-1)ü ( ) H:Goto B:End
:If C=2:Goto 5
:
:Lbl B
:Output(3,A+2," ":Output(4,A+2," ":If H<1:Goto Z:Pause
:1ü ( ) A:14ü ( ) B:Goto 5
:Lbl C
:Output(3,B," "
:Output(4,B," "
:(F-1)ü ( ) F
:If F<1:Then:Pause :Goto I:Else
:1ü ( ) A:14ü ( ) B:Goto 5:End
:
:Lbl Z
:ClrHome
:Disp "YOU'RE DEAD":Pause :Stop
:
:Lbl I
:ClrHome
:Output(4,7,"YOU":Output(5,7,"WIN":Pause
:Output(8,2,"(WANNA COOKIE?)"
:Stop
:
:Lbl K
:ClrHome:ClrDraw:7ü ( ) A:2ü ( ) B
:Output(4,7,"CRAP":Output(5,7,"GAME"
:Pause :ClrHome
:Disp "CURSER KEYS MOVE"
:Disp "YOU. 2ND  SHOOTS"
:Disp "HITPOINTS ARE AT"
:Disp "THE TOP AND AMMO"
:Disp "IS AT THE BOTTOM"
:Pause :ClrHome
:10ü ( ) Á
:Lbl 1
:Aü ( ) C:Bü ( ) D
:Output(A,1,">"
:Output(B,16,"<":Output(1,1,H
:Output(1,16,F
:Output(8,1,Á
:getKeyü ( ) Z
:If Z=25:(A-1)ü ( ) A:If Z=34:(A+1)ü ( ) A:If Z=21:Goto 2
:
:If A<2:2ü ( ) A
:If A>7:7ü ( ) A
:int (2rand)ü ( ) Z
:If Z=0:(B-1)ü ( ) B
:If Z=1:(B+1)ü ( ) B
:If B<2:2ü ( ) B
:If B>7:7ü ( ) B
:If B=A:Then
:int (2rand)ü ( ) Z
:If Z=0:Goto 3
:If Z=1:Goto 4:End:Lbl 4
:Output(C,1," "
:Output(D,16," ":Goto 1
:Lbl 3
:ClrHome
:Output(1,1,H
:Output(1,16,F
:Output(8,1,Á
:Output(A,1,">"
:Output(B,16,"<":Output(B,2,"<-":Pause :ClrHome
:(H-1)ü ( ) H
:If H<1:Goto Z
:8ü ( ) A:1ü ( ) B
:Goto 1
:
:Lbl 2
:If Á<1:Goto 1
:ClrHome
:Output(1,1,H
:Output(1,16,F
:Output(8,1,Á
:Output(A,1,">"
:Output(B,16,"<":For(Z,4,14
:Output(A,Z,"->":Output(A,(Z-2),"  ":End
:Pause :ClrHome
:If A=B:Then:(Á-1)ü ( ) Á:(F-1)ü ( ) F:If F<1:Stop:End
:If AøB:Then:(Á-1)ü ( ) Á:Goto 1:End
:Goto 1
:Lbl G
:ClrDraw
:Text(0,0,"THE  Y=  KEY  SWINGS  SWORD."
:Text(6,0,"THE  2ND  KEY  BLOCKS."
:Text(12,0,"MOVE  WITH  THE ARROW  KEYS."
:Pause :ClrDraw
:Goto J
Sangohan38 le 25/10/2010 à 01:47
Les seules endroits qui peuvent te faire planter la calto sont au niveau du redimensionnement du graph (cad de 0->Xmin à 62->Ymax) et dans For(A,0,25.
Regarde si tu n'as pas fait d'erreur dans ces parties et n'oublie pas le End après ton text.

Je te rappel au cas où que quand tu vois des minuscules, c'est des fonctions et pas un enchainement de lettre.

Sangohan38
Le Noob le 25/10/2010 à 13:14
je sais, tout est juste mais ca me met le curseur apres le deusieme traimat de "FENCING", même si je place quelque chose apres quand je met voir erreur
linkakro le 28/10/2010 à 21:42
Tu as dit plus tôt que c'était une erreur syntaxe, alors les valeurs ne sont pas en cause. Verrifie l'enchaînement des virgules etc.
Au pire supprimme toutes ces lignes :
Code
:For(A,0,25
:Text(A,33,"FENCING"
:End
:For(A,6,40
:Text(31,A,"TWO"
:Text(31,A-6,"      "
:End
Le Noob le 17/11/2010 à 16:47
J'ai fais comme t'as dis et ça fait "ERR:DIM INVALIDE" après:
Code
Texte(56,22,"BY TRAVIS MAY"
cry.gif
darkmory le 17/11/2010 à 18:54
ca veut dire que ton texte sort de l'écran et du coup il peut pas l'afficher
essaye de l'écrire dans un prog bidon mais avec 1,1 en coordonnées puis regarde combien de pixel sa fait et après tu modifie le prog fence en fonction