Autorisation : Membre
Nb de messages : 2
Inscrit le : Mer 14 Nov 2012, 19:54
Posté le : Mer 14 Nov 2012, 20:08
Salut,
est ce que vous pourriez m'aider s'il vous plait et me dire pourquoi ca me met "erreur domaine " a cet enddroit :
:Goto 3
:Lbl 2
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
:If pxl-Test(A+2,B[ici]:Goto 4
:Text(A,B,"º
:
:Lbl 3
Ca me met le curseur [ici] sur les deux points
Et j'ai vérifier ( ca ma pris très longtemps XD ) je crois pas avoir fait d'erreur en recopiant
Voici le code entier au cas ou ( c'est le code de ratuss )
Version 1.0 (1200 octets)
:ClrDraw
:0=>Xmin
:94=>Xmax -)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O:.7349=>V
:7=>dim Liste6
:1=>P
:Goto S
:Lbl R
:ClrHome:Disp "BLOQUE
:Pause
:Lbl S
:Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
:Lbl E
:If 39>Liste6(4) or VøfPart Liste6(4:Goto R
:5=>P:38=>B
:For(ø,23,68,5
:For(Z,13,16
:Line(ø,Z-ø,ø+3,Z-ø
:End
:End
:Goto A
:Lbl F
:If 39>Liste6(5) or VøfPart Liste6(5:Goto R
:26=>A:6=>P
:For(ø,42,45
:Line(8,20-ø,86,20-ø
:Line(8,ø,27,ø
:Line(67,ø,86,ø
:Line(ø-14,7,ø-14,(-)21
:Line(ø-14,(-)32,ø-14,(-)57
:Line(ø+21,(-)32,ø+21,(-)57
:Line(ø+21,7,ø+21,(-)10
:End
:Goto A
:Lbl G
:If 39>Liste6(6) or VøfPart Liste6(6:Goto R
:6=>A:7=>P
:For(ø,1,15
:13+5iPart rand14=>I
:5iPart rand8+3=>J
:For(Z,0,3
:Line(I,Z-J,I+3,Z-J
:End
:End
:Goto A
:Lbl C
:3=>P
:Lbl D
:If 39>Liste6(3-iPart (P/3)) or VøfPart (Liste6(3-iPart (P/3:Goto R
:For(ø,7,10
:For(Z,0,45,45
:Line(8,ø-Z,41,ø-Z
:Line(53,ø-Z,86,ø-Z
:End
:For(Z,1,76,75
:Line(ø+Z,(-)11,ø+Z,(-)25
:Line(ø+Z,(-)37,ø+Z,(-)51
:End:End
:If P=3:Goto A
:3=>P
:Lbl B
:If 39>Liste6(P) or VøfPart Liste6(P:Goto R
:For(ø,27,35
:Line(28,ø,66,ø
:End
:Line(32,(-)31,62,(-)31,0 +1=>P
:Lbl A
:If V=fPart Liste6(P:Liste6(P=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim Liste4
:99=>dim Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart ø,6,(-)iPart ø
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,6
:Line(6,6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart O
:Lbl 5
:8-5iPart rand10=>I
:8+5iPart rand16=>J
:If pxl-Test(I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:
:Lbl 3
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>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 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,A-3,B+2,A-2
:If I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1+V=>Liste6(P
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION 1.0
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06
Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Mer 14 Nov 2012, 20:13
C'est que A et/ou B est/sont trop petit(s) ou trop grand(s) pour que le texte tienne sur l'écran. Vérifie donc à peu près toutes les lignes où ces variables sont utilisées. Et regarde si tu n'en as pas oublié.
Et pour plus de clarté, édite ton post et met le programme en format code. Ça évitera par exemple les smileys, qui sont apparus.
De plus, si c'est un programme trouvé sur le site, veille à poster directement dans le topic d'origine, la prochaine fois.
Autorisation : Membre
Nb de messages : 848
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Dim 13 Oct 2013, 15:34
Bonjour...
Citer
C'est que A et/ou B est/sont trop petit(s) ou trop grand(s) pour que le texte tienne sur l'écran. Vérifie donc à peu près toutes les lignes où ces variables sont utilisées. Et regarde si tu n'en as pas oublié.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 14 Oct 2013, 23:44
Les lignes suivantes sont probablement la cause. fPart(=partDéc(
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
Le grand classique mais pas lié semble-t-il : confusion entre le zéro, la lettre O et le thêta ø.
---------------------- 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)
( c'est le code de ratuss )
-)62=>Ymin
ø,27,
+1=>P
*