Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse <<   Page: , 2  
Les ü et ù
Auteur Message
azerty
Invité
Posté le : Sam 16 Oct 2010, 14:14   Citer 

C'est trop long et compliqué, je donne le code en entier et je surligne l'erreur :

EffEcr
Disp "PACMAN V1.0","BY JIM BUSH/GI","c1996
Pause
EffDessin
AxesNAff
ú60üYmin
2üYmax
97üXmax
3üXmin
[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,1,0,0,0,0,0,1,0,0,0,1][1,0,1,0,1,0,1,0,1,0,1,0,1,0,1][1,0,1,0,0,0,0,0,0,0,0,0,1,0,1][1,0,0,0,1,0,1,1,1,0,1,0,0,0,1][1,0,1,0,0,0,0,0,0,0,0,0,1,0,1][1,0,1,0,1,1,0,1,0,1,1,0,1,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]ü[A]
For(B,1,9
For(A,1,15
If [A](B,A
Then
Ligne(6A,ú6B,6A+5,ú6B
Ligne(6A,ú6B,6A,ú6B-5
Ligne(6A+5,ú6B,6A+5,ú6B-5
Ligne(6A+5,ú6B-5,6A,ú6B-5
Else
Ligne(6A+2,ú6B-2,6A+3,ú6B-2
Ligne(6A+2,ú6B-3,6A+3,ú6B-3
End
If (B=2 ou B=glasses.gif et (A=3 ou A=13)
Then
Ligne(6A+1,ú6B-1,6A+4,ú6B-1
Ligne(6A+4,ú6B-1,6A+4,ú6B-4
Ligne(6A+4,ú6B-4,6A+1,ú6B-4
Ligne(6A+1,ú6B-4,6A+1,ú6B-1
End
End
End
[[1]]ü[A]
SauveImage Img1
94üXmax
0üXmin
ú62üYmin
0üYmax
RappelImage Img1
0üD
0üE
3üO
Lbl A
EffEcr
Output(4,6,"READY!
Pause
45üA
ú38üB
45üF:6üH
ú14üG:0üI
FüJ:ú6üL
GüK:0üM
0üN
Lbl 2
If E=66:Goto B
Ligne(A+1,B,A+4,B
Ligne(A,B-1,A,B-4
Ligne(A+1,B-5,A+4,B-5
Ligne(A+5,B-1,A+5,B-4
Texte(0,0,"LIVES:",O," SCORE:",D
Lbl 0
If A=F et B=G ou A=J et B=K
Goto 8
Ligne(F,G-5,F,G-1,0
Ligne(F+1,G,F+4,G,0
Ligne(F+5,G-1,F+5,G-5,0
F+HüF
G+IüG
If A=F et B=G
Goto 8
Ligne(F,G-1,F,G-5
Ligne(F+1,G,F+4,G
Ligne(F+5,G-1,F+5,G-5
If pxl-Test(úG-I,F+H) ou NbrAl–at5<1
Goto 4
Lbl 5
Ligne(J,K-5,J,K-1,0
Ligne(J+1,K,J+4,K,0
Ligne(J+5,K-1,J+5,K-5,0
J+LüJ
K+MüK
If A=J et B=K
Goto 8
Ligne(J,K-1,J,K-5
Ligne(J+1,K,J+4,K
Ligne(J+5,K-1,J+5,K-5
If pxl-Test(úK-M,J+L) ou NbrAl–at5<1
Goto 6
Lbl 7
N-1üN
Texte(0,70,"TIME:",N(N>0)
codeTouch(üC
If Cù24 et C÷26 ou C=34
Goto 1
If C=105
Pause
Goto 0
Lbl 1
Texte(úB,A," "
If C=24 et non(pxl-Test(úB,A-6
A-6üA
If C=25 et non(pxl-Test(úB-6,A
B+6üB
If C=26 et non(pxl-Test(úB,A+6
A+6üA
If C=34 et non(pxl-Test(úB+6,A
B-6üB
If pxl-Test(úB+2,A+2
Goto 3
Goto 2
Lbl 3
D+1üD
E+1üE
If (A=15 ou A=75) et (B=ú14 ou B=ú50)
Then
D+24üD
6üN
End
Goto 2
Lbl 4
0üÁ
If H
1üÁ
0üH
0üI
If A<F et non(pxl-Test(úG,F-6
ú6üH
If AùF et non(pxl-Test(úG,F+6
6üH
If B÷G et non(pxl-Test(úG+6,F
ú6üI
If B>G et non(pxl-Test(úG-6,F
6üI
If H et I
Then
If Á=1
0üH
If non(Á
0üI
End
Goto 5
Lbl 6
0üÁ
If L
1üÁ
0üL
0üM
If A<J et non(pxl-Test(úK,J-6
ú6üL
If AùJ et non(pxl-Test(úK,J+6
6üL
If B>K et non(pxl-Test(úK-6,J
6üM
If B÷K et non(pxl-Test(úK+6,J
ú6üM
If L et M
Then
If Á=1
0üL
If non(Á
0üM
End
Goto 7
Lbl 8
If N>0
Goto 9
Texte(úB,A," "
Ligne(A,B-1,A,B-5,0
Ligne(A+1,B,A+4,B,0
Ligne(A+5,B-1,A+5,B-1,0
Ligne(J,K-1,J,K-5,0
Ligne(J+1,K,J+4,K,0
Ligne(J+5,K-1,J+5,K-5,0
Ligne(F,G-1,F,G-5,0
Ligne(F+1,G,F+4,G,0
Ligne(F+5,G-1,F+5,G-5,0
EffEcr
Disp "LOSER!!!
Pause
0üI:0üM
6üH:ú6üL
O-1üO
If O
Goto A
EffEcr
Disp "HA HA HA!",D
Stop
Lbl 9
EffEcr
Disp "GOT HIM!!
Pause
If A=F et B=G
Then
Ligne(F,G-1,F,G-5,0
Ligne(F+1,G,F+4,G,0
Ligne(F+5,G-1,F+5,G-5,0
45üF
ú14üG
D+100üD
End
If A=J et B=K
Then
Ligne(J,K-1,J,K-5,0
Ligne(J+1,K,J+4,K,0
Ligne(J+5,K-1,J+5,K-5,0
45üJ
ú14üK
D+100üD
End
Goto 2
Lbl B
EffEcr
Disp "ALL CLEAR!!
Pause
EffDessin
RappelImage Img1
500+DüD
0üE
Goto A

Voilà.

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 16 Oct 2010, 14:23   Citer 

Plusieurs variables sont définies ici au démarrage.

Code
45üA        //verrifie surtout ça
ú38üB       //
45üF:6üH
ú14üG:0üI
FüJ:ú6üL
GüK:0üM
0üN


Toutefois nous ignorons toujours les valeurs de A et B au moment de l'erreur. Teste les en dehors du programme après l'arrêt.

PS: quand tu postes un programme, utilise des balises codes pour formater comme moi.
Edit: oups je te demande pardon, car les couleurs ne marchent pas dans les balises code.

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

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
azerty
Invité
Posté le : Sam 16 Oct 2010, 18:40   Citer 

désolé pur les balises.

J'ai testé les deux variables :

A=45 , cependant au test de B, la calculette m'affiche B=1.

Pourtant j'ai bien écrit

:45->A
:-38->B

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 16 Oct 2010, 20:28   Citer 

Ou bien ici

Code
If C=24 et non(pxl-Test(úB,A-6
A-6üA
If C=25 et non(pxl-Test(úB-6,A
B+6üB
If C=26 et non(pxl-Test(úB,A+6
A+6üA
If C=34 et non(pxl-Test(úB+6,A
B-6üB
If pxl-Test(úB+2,A+2


Les autres endroits suivent des mécanismes nettement plus compliqués, et je ne peux rien localiser.

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

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
azerty
Invité
Posté le : Sam 16 Oct 2010, 21:59   Citer 

Dur dur karate.gif je crois que je vais arrêter de corriger celui-là.

Sinon j'ai un autre programme, lui lorsque je le démarre rien ne se passe et il marque "Fait".

Qu'est-ce que ça veut dire ?

  Haut de page Bas de page 
 
azerty
Invité
Posté le : Sam 16 Oct 2010, 22:09   Citer 

J'ai trouvé le bug je crois :

Ma précédente erreur était :

:1->8

Comme je ne savais pas par quoi remplacer le 8, j'ai supposé que c'était un B

Or sur le code que j'ai coller sur le forum ce 8 se transforme en Á

Tout comme ü et ú, je crois que ce Á correspond à un signe. Mais lequel ?

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 17 Oct 2010, 1:45   Citer 

Ce signe est le symbole Theta (Obtenu en tapant sur 2nd puis 3).

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
azerty
Invité
Posté le : Dim 17 Oct 2010, 9:15   Citer 

ça y est ça marche happy.gif

Sinon pour mon autre programme que signifie le "Fait"

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 17 Oct 2010, 12:07   Citer 

Sa signifie juste que le programme à fini d'être exécuter.
Si tu veux l'enlever, met à la fin de tes programmes (ou à l'étiquette qui s'y rapporte Output(1,1," ").

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 17 Oct 2010, 12:41   Citer 

Il a précédemment dit que rien ne se passais dans le prog. Cela signifie probablement qu'il ne demandais pas juste comment effacer le "Fait".

Parmi les raisons pour lesquelles un programme se termine dès le lancement, il y a l'oubli d'un End fermant un If/Then (gênant quand le If n'est pas validé).

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

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
azerty
Invité
Posté le : Dim 17 Oct 2010, 21:44   Citer 

:/ je ne sais pas sur ce coup là. Tout est correcte pourtant.

Merci beaucoup pour l'autre programme vous m'avez été super utiles, encore merci.

  Haut de page Bas de page 
 
lady commandement
Invité
Posté le : Mar 19 Oct 2010, 15:48   Citer 

bonjour savez vous a quoi correspondent ces lettres pour une ti 83???

aidez svp

il me faut connaitre ces touches pour que je puisse finir de recopier un programme.

  Haut de page Bas de page 
 
guiges3



Autorisation : Membre
Nb de messages : 92
Inscrit le : Ven 15 Jan 2010, 11:26
Posté le : Mar 19 Oct 2010, 16:00   Citer 

Lis le topic depuis le début c'est dit. ^^

 Adresse email Haut de page Bas de page 
 
lady comandement
Invité
Posté le : Mar 19 Oct 2010, 16:14   Citer 

je veut dire ces lettre la

ö Á å Ò

  Haut de page Bas de page 
 
guiges3



Autorisation : Membre
Nb de messages : 92
Inscrit le : Ven 15 Jan 2010, 11:26
Posté le : Mar 19 Oct 2010, 16:21   Citer 

Voila 2 min de recherche et j'ai trouvé.
http://tout82.free.fr/forum/sujet.php?sujet=799

 Adresse email Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Lun 25 Oct 2010, 18:42   Citer 

quand c'est un texte, les valeurs doivent etre positives

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , 2  





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa