Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 41981
Réponses : 134
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Pacman ... enfin presque ^^ - Page 1 / 3

nujik le 22/10/2006 à 18:08
Bon vous me dirai se que vous en penser, je vous post une sorte de pacman fait maison ...

Code
ClrHome
0->T
-1->S
4->A
6->B
12->D
12->I
12->N
12->X
2->O
2->J
2->E
2->Y
Lbl 3
T+1->T
ClrHome
Output(3,6,"LEVEL
Output(5,8,T
Pause
Lbl 0
S+1->S
int(8rand+1)->V
int(8rand+1)->U
Lbl 1
ClrHome
If A=D and B=E or A=I and B=J or A=N and B=O and A=X or B=Y
Then
Output(3,6,"PERDU
Output(5,3,"SRORE : "
Output(5,11,S
Pause
Stop
End
Output(V,U,"e          ***e=[2nd],[diviser]=21,65(en getKey)***
getKey->W
If W=24
A-1->A
If W=26
A+1->A
If W=25
B-1->B
If W=34
B+1->B
If A=0
16->A
If A=17
1->A
If B=0
8->B
If B=9
1->B
Output(B,A,"O
Output(Y,X,"H
If T>1
Output(E,D,"H
If T>2
Output(J,I,"H
If T>3
Output(O,N,"H
int(rand3)-1->Z
int(rand3)-1->@          ***@=[Teta], mais j'ai pas trouver le [Teta]***
If T>1
Then
int(rand3)-1->F
int(rand3)-1->G
end
If T>2
Then
int(rand3)-1->K
int(rand3)-1->L
end
If T>3
Then
int(rand3)-1->P
int(rand3)-1->Q
end
rand->H
rand->M
rand->R
rand->C
If H>0.5
Then
E+G->E
D+F->D
end
If M>0.5
Then
I+K->I
J+L->J
end
If R>0.5
Then
N+P->N
O+Q->O
end
If C>0.5
Then
Y+@->Y
X+Z->X
end
If X=0
16->X
If Y=0
8->Y
If X=17
1->X
If Y=9
1->Y
If D=0
16->D
If E=0
8->E
If D=17
1->D
If E=9
1->E
If I=0
16->I
If J=0
8->J
If I=17
1->I
If J=9
1->J
If N=0
16->N
If O=0
8->O
If N=17
1->N
If O=9
1->O
If A=U and B=V
Goto 0
If S=10T and S<35
Goto 3
Goto 1



Bon, voila, moi j'ai fait l'effort de post, alors maintenant il vous reste plus qu'a le programmer sur votre calculatrice godgrace.gif , et me dire ce que vous en penser ... presque 140 ligne, rien que ca !!!
ratuss le 22/10/2006 à 20:40
Salut, tu veux pas envoyer un lien vers un .82p SVP ?? happy.gif
morstelder le 02/11/2006 à 17:35
Il marchait quant tu l'a essayé parceque tes if comme ils sont mis ca risque pas de macher laugh.gif laugh.gif
ratuss le 03/11/2006 à 11:25
Ah ?

Un petit tour ici ca te fera du bien ^^: https://tout82.pages-perso.fre[...]t.php?sujet=619

tcho @+
Wolves le 03/11/2006 à 16:31
rien a voir ds se post
Sangohan38 le 03/11/2006 à 16:34
Si ca a quelque chose a voir puisque ce prog peut être modifié en l'allégant.

Sangohan38
ratuss le 05/11/2006 à 09:00
Non c'étais surtout pour celui (ou celle) qui prentendait que les if ne fonctionnerais pas... crazy.gif

@+
FulliZing le 11/11/2006 à 19:11
pouvez me dire si le prog fonctione
merci
ratuss le 12/11/2006 à 08:29
Le meilleur moyen de savoir s'il fonctionne c'est de le tester clown.gif minied.gif kiss.gif
Jcotnys le 15/11/2006 à 17:26
Ratuss a écrit :

Le meilleur moyen de savoir s'il fonctionne c'est de le tester

laugh.gif laugh.gif godgrace.gif
fo savoir ki va le tester oci! godgrace.gif
unknow le 15/11/2006 à 17:31
c'est claire qui? parce que 140 lignes pour quelqu'unj qui n'a pas le cable ba c'est ch***. Je vais l'acheter bientot, n'empeche tout les possibilités qu'ouvre ces calto c'est stylé.
Stupid le 15/11/2006 à 18:36
il est pas si long,car beaucoup de lignes auraient pu etre reduite,doit y'en avoir pour 60 lignes...
Sangohan38 le 17/11/2006 à 20:47
Tu copie sur ti-graph link, tu remplace les signes, tu sauvegarde tu trouve un VTI correct et tu jou.

Sangohan38

PS: 140 lignes c'est simple a taper.
Ishito le 12/12/2006 à 12:50
J'ai un problème dessus. Quand je lance une partie il se met a buger dès que je veut bouger et me dit err:domain pour la ligne Output(B,A"O
Sangohan38 le 12/12/2006 à 13:13
Cela doit provenbir du fait que A ou B à une valeur qui se trouve en dehor de l'écran.
Verifie ces valeures quand le prog bug et tu verra comlbien elle valent et après tu n'as plus qu'as cherhcer d'où vien le problème.

Sangohan38
craminou le 13/12/2006 à 14:33
non , je pense plutot que c'est que c'est Ouput(A,B,"O"

prend garde au virgule , sans elles , le programme ne veut plus dire la meme chose !
Ishito le 14/12/2006 à 12:55
En fait la virgule je l'ai déjà mise (j'ai mal recopié ici) donc c'est pas la virgule.
shika33 le 14/12/2006 à 13:05
Sangohan38 a écrit :
Cela doit provenbir du fait que A ou B à une valeur qui se trouve en dehor de l'écran.
Verifie ces valeures quand le prog bug et tu verra comlbien elle valent et après tu n'as plus qu'as cherhcer d'où vien le problème.

Sangohan38


Euh tu peux expliquer car j'ai le même probleme et je suis pas sur d'avoir compris.
Sangohan38 le 14/12/2006 à 13:15
Une variable d'affichage doit contenir un nombre inférieur à 1 où supérieur ayu maximum.
Autrement dit, cela y afficherait en dehors de l'écran d'où l'erreur.

Sangohan38
haseo le 14/12/2006 à 21:36
j ai un prob a la ligne ou il y a int(8rand+1)-}V je ne la trouve pas
j ai une ti 82 stat j ai bien trouver randint(mais je sais pas c est quelle valuer qui faut metre
shika33 le 15/12/2006 à 14:00
Sangohan38 a écrit :
Une variable d'affichage doit contenir un nombre inférieur à 1 où supérieur ayu maximum.
Autrement dit, cela y afficherait en dehors de l'écran d'où l'erreur.

Sangohan38


Oui mais ça m'avance pas, comment on peut régler ça (j'y connait rien en programmation par rapport à vous)?
Jcotnys le 15/12/2006 à 16:46
bon moi je reposte le prog modifié:

Code

ClrHome
0->T
-1->S
4->A
6->B
12->D
12->I
12->N
12->X
2->O
2->J
2->E
2->Y
Lbl 3
T+1->T
ClrHome
Output(3,6,"LEVEL
Output(5,8,T
Pause
Lbl 0
S+1->S
int(8rand+1)->V
int(8rand+1)->U
Lbl 1
ClrHome
If A=D and B=E or A=I and B=J or A=N and B=O and A=X or B=Y
Then
Output(3,6,"PERDU
Output(5,3,"SRORE : "
Output(5,11,S
Pause
Stop
End
Output(V,U,"e          ***e=[2nd],[diviser]=21,65(en getKey)***
getKey->W
If W=24:A-1->A
If W=26:A+1->A
If W=25:B-1->B
If W=34:B+1->B
If A=0:16->A
If A=17:1->A
If B=0:8->B
If B=9:1->B
Output(B,A,"O
Output(Y,X,"H
If T>1:Output(E,D,"H
If T>2:Output(J,I,"H
If T>3:Output(O,N,"H
int(rand3)-1->Z
int(rand3)-1->@          ***@=[Teta], mais j'ai pas trouver le [Teta]***
If T>1
Then
int(rand3)-1->F
int(rand3)-1->G
end
If T>2
Then
int(rand3)-1->K
int(rand3)-1->L
end
If T>3
Then
int(rand3)-1->P
int(rand3)-1->Q
end
rand->H
rand->M
rand->R
rand->C
If H>0.5
Then
E+G->E
D+F->D
end
If M>0.5
Then
I+K->I
J+L->J
end
If R>0.5
Then
N+P->N
O+Q->O
end
If C>0.5
Then
Y+@->Y
X+Z->X
end
If X=0:16->X
If Y=0:8->Y
If X=17:1->X
If Y=9:1->Y
If D=0:16->D
If E=0:8->E
If D=17:1->D
If E=9:1->E
If I=0:16->I
If J=0:8->J
If I=17:1->I
If J=9:1->J
If N=0:16->N
If O=0:8->O
If N=17:1->N
If O=9:1->O
If A=U and B=V:Goto 0
If S=10T and S<35:Goto 3
Goto 1


et il faut rajouter :


Code

:If A<1:1->A
:If A>16:16->A
:If B<0:1->B
:If B>8:8->B

ce ke j' appelle "les conditions de définitions" minied.gif
voila bon fo l'essayé maintenant crazy.gif
el spectro le 15/12/2006 à 16:51
désolé je ne peu pas (je suis au CDI) godgrace.gif
Sangohan38 le 15/12/2006 à 20:19
Et bien tu rajoute avant l'affichage:

Code
If "Variable De X"[INFERIEUR OU EGAL A]0:1->"Variable de X"
If "Variable de X"[SUPERIEUR OU EGAL A]17:16->"Variable de X"
If "Variable de Y"[INFERIEUR OU EGAL A]0:1->"Variable de Y"
If "Variable de Y"[SUPERIEUR OU EGAL A]9:8->"Variable de Y"


Sangohan38
Ishito le 22/12/2006 à 12:42
Ta modif faut la mettrer a la fin ou à un endroit précis??
Sangohan38 le 22/12/2006 à 13:01
Avant l'affichage, je l'ai marqué.

Sangohan38
Hakoronaï le 16/10/2008 à 22:22
je l'ai rentrer mais ya un problème avec -> comment je fait pour représenter la plèche sur une TI 82 stats fr ? et le e ? je fait e=21.65 ? et quand ya exemple (rand3)-1->Z
le premier tirait c'est le petit ( du signe négatif) ou les deux sont le signe de soustraction ?

PS: je sais pas faire de programme c'est pour sa que j'en sais rien ^^
Sangohan38 le 18/10/2008 à 16:19
La flèche -> est la touche sto située au dessus de ON.
Pour le e, tu parle d'un E majuscule ou du e de l'exponentielle?
Le petit moins est le signe de la négativité.

Sangohan38
Antoine le 28/10/2008 à 11:59
Je ne trouve pas int(8rand+1)
Sur la ti82
J'ai essayer de faire Ent(8NbreAleat1)
Mais aucun resultat !
Sangohan38 le 28/10/2008 à 17:42
Il faut que tu tape ent(nbralét(8+1) .

Sangohan38
antoine le 28/10/2008 à 18:04
Merci !
Antoine le 28/10/2008 à 18:25
J'ai un erreur domaine a la ligne

Output(Y,X,"H
Pourtant tout en haut de mon script j'ai mis:
:If A<1:1->A
:If A>16:16->A
:If B<0:1->B
:If B>8:8->B

Et

If "Variable De X"[INFERIEUR OU EGAL A]0:1->"Variable de X"
If "Variable de X"[SUPERIEUR OU EGAL A]17:16->"Variable de X"
If "Variable de Y"[INFERIEUR OU EGAL A]0:1->"Variable de Y"
If "Variable de Y"[SUPERIEUR OU EGAL A]9:8->"Variable de Y"
Sangohan38 le 28/10/2008 à 18:57
Normal, il faut mettre:

Code
If X<1:1->X
If Y<1:1->Y
If X>16:16->X
If Y>8:8->Y


Sangohan38

PS: pense à utiliser les balises code.
Antoine le 28/10/2008 à 20:12
Merci de votre réponse mais
J'ai toujours erreur domaine !
Il se situe après le h
Sangohan38 le 28/10/2008 à 21:31
Pourrait tu nous indiquer la valeur de X et Y.

Sangohan38
Antoine le 29/10/2008 à 02:39
En mettant Disp X
Disp Y

J'ai eu une erreur domaine au niveau du e a l'envers.
Je n'ai pas le cordon et j'ecris tout a la main.
Mais a vrai dire au moins j'analyse les script et j'ai reussi a creer mon propres script de nombre
Antoine le 10/11/2008 à 19:57
Petit up
Sangohan38 le 11/11/2008 à 09:41
Pour nous donner la valeur de X et Y, il faut que tu exécute le programme et lors de l'erreur, tu fait QUIT et ensuite, tu tape X et Y à l'écran ce qui affichera leurs valeurs.

Sangohan38
manuel76 le 18/09/2010 à 12:56
salut moi je ne comprend pas jai bien tout recopier le programme et ma calculatrice me met qu'il y a une erreur sur la ligne Output(V,U,"e et je ne comprend pas
quelqu'un pourrait m'aider stp
Sangohan38 le 19/09/2010 à 19:32
Si ça te met une erreur c'est que t'as sans doute mal recopié...
Donne nous les valeurs de U et V.

Sangohan38
Rézus le 19/09/2010 à 20:19
Et le type d'erreur qu'il t'affiches.
Chopinois le 24/09/2010 à 17:12
Salut ! J'ai aussi le même problème que manuel76 à la ligne :
Output(V,U,"e

Ils m'ont marqué erreur domaine.
Pour ce qui est des valeurs, j'ai V=1 et U=5.
Rézus le 24/09/2010 à 17:16
Erreur domaine tu es sur de tout ce que tu viens de dire ?
Parce qu'une erreur domaine avec un Output ne survient que si une des valeurs (ou les deux) est inférieur à 1 ou supérieur à 8 donc c'est très bizard.
Chopinois le 25/09/2010 à 14:07
Ah non scuse moi, j'ai bien une erreur domaine mais les valeurs de U et V sont :
U = 0.7818 ...
V = 0.7548 ...
Rézus le 26/09/2010 à 11:09
Tu as recopié ces lignes sans erreur ?
Code
Lbl 0
S+1->S
int(8rand+1)->V
int(8rand+1)->U
Lbl 1
Chopinois le 26/09/2010 à 15:00
Oui j'en suis sur.
Sangohan38 le 26/09/2010 à 15:16
Ta calculatrice est surement en français... tu as bien marquer Ent(8nbraléat+1)?

Sangohan38
Chopinois le 26/09/2010 à 15:27
Ah oui merci ^^ bigmouth.gif
Mais maintenant j'ai une autre erreur domaine maxiangry.gif à la ligne :

Output(Y,X,"H

Avec comme valeur :
Y = 1.5690...
X = 11.7880...
H = 0.8844...
Sangohan38 le 26/09/2010 à 15:51
Regarde si tu n'as pas oublier des lignes tout au début du programme avant le lbl 3.

Sangohan38
Chopinois le 26/09/2010 à 16:10
J'ai tout vérifié, il n'y a rien qui manque.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.