Forum

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

Pes - Page 1 / 2

mad67 le 28/01/2007 à 15:59
voila mon pes6:

Code
clrhome
output4,4,"Madian corp"
output5,4,"presente"
output6,4,"pes 6
fot(T,0,800)
end
clrhome
0->S
0->Y
0->Z
input"ton equipe",str1
input"equipe ia:",str2
input"difficulté 2 a 9",Z
input"but victoire:",Y
clrhome
0->G
0->H
lbl99
0->M
0->S
5->A
1->B
5->C
16->D
5->E
8->F
lbl 1
if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6
if C=E and F+1=D and C=A and C> ou egal a 5
goto 9
if C=E and F+1=D and C=A and C< ou egal a 4
goto 8
if C=E and F+1=D
goto7
if C>E
C-1->C
if C<E
C+1->C
if D<F+1
D+1->D
if D>F+1
D-1->D
lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-
output(3,16,"-
output(7,16,"-
if F=1 and E> ou egal a 4 and E<ou egal a6
goto 10
if F=16 and E>ou egal a 4and E<ou egal a6
goto11
if F=1 or F=16
goto 12
getkey->K
if K=45 and A=E and B+1=F
5->S
if C=E and F+1=D
0->S
if S=5
F+1->F
if K=26 and A=E and B+1=F
goto 2
if K=24 and A=E and B+1=F
goto 3
if K=34 and A=E and B+1=F
goto 5
if K=25 and A=E and B+1=F
goto 4
if K=24
B-1->B
if K=26
B+1->B
if K=25
A-1->A
if K=34
A+1->A
goto1
lbl 2
F+1->F
B+1->B
goto 1
lbl 3
F-1->F
B-1->B
goto 1
lbl 4
A-1->A
E-1->E
goto 1
lbl 5
A+1->A
E+1->E
goto 1
lbl 7
F-1->F
D-1->D
goto 6
lbl 8
C+1->C
E+1->E
goto 6
lbl 9
C-1->C
E-1->E
goto 6
lbl 10
H+1->H
goto 13
lbl 11
G+1->G
goto 13
lbl 12
goto 13
lbl 13
clrhome
disp"Le score est de",str1,G,Str2,H
for(T,0,800
end
clrhome
if G=Y
goto 16
if H=Y
goto 17
goto 99
lbl 16
disp str1,"A gagné
for(T,0,800
end
clrhome
stop
lbl 17
disp str2,"A gagné
for(T,0,800
end
clrhome
stop
el spectro le 30/01/2007 à 11:27
a quoi sert ce programme ?? ahh.gif
Sangohan38 le 30/01/2007 à 13:16
On dirait un jeu de tir au but.
Il n'est compatible qu'a partir de la 82 STATS car il y a l'instruction STRING.

Sangohan38
mad67 le 31/01/2007 à 14:54
Pas de tir au but mais de foot pur et dur
mad67 le 31/01/2007 à 15:05
voila mon pes6 amélioré avec comptage de minute etc...
Code
clrhome
output4,4,"Madian corp"
output5,4,"presente"
output6,4,"pes 6
fot(T,0,800)
end
clrhome
input"ton equipe",str1
input"equipe ia:",str2
input"difficulté 2 a 9",Z
clrhome
0->G
0->H
0->Y
lbl99
0->M
0->S
5->A
1->B
5->C
16->D
5->E
8->F
lbl 1
if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6
if C=E and F+1=D and C=A and C> ou egal a 5
goto 9
if C=E and F+1=D and C=A and C< ou egal a 4
goto 8
if C=E and F+1=D
goto7
if C>E
C-1->C
if C<E
C+1->C
if D<F+1
D+1->D
if D>F+1
D-1->D
lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-
output(3,16,"-
output(7,16,"-
Y+0.5->Y
if Y=90:goto 13
if F=1 and E> ou egal a 4 and E<ou egal a6
goto 10
if F=16 and E>ou egal a 4and E<ou egal a6
goto11
if F=1 or F=16
goto 12
getkey->K
if K=45 and A=E and B+1=F
5->S
if C=E and F+1=D
0->S
if S=5
F+1->F
if K=26 and A=E and B+1=F
goto 2
if K=24 and A=E and B+1=F
goto 3
if K=34 and A=E and B+1=F
goto 5
if K=25 and A=E and B+1=F
goto 4
if K=24
B-1->B
if K=26
B+1->B
if K=25
A-1->A
if K=34
A+1->A
goto1
lbl 2
F+1->F
B+1->B
goto 1
lbl 3
F-1->F
B-1->B
goto 1
lbl 4
A-1->A
E-1->E
goto 1
lbl 5
A+1->A
E+1->E
goto 1
lbl 7
F-1->F
D-1->D
goto 6
lbl 8
C+1->C
E+1->E
goto 6
lbl 9
C-1->C
E-1->E
goto 6
lbl 10
H+1->H
goto 13
lbl 11
G+1->G
goto 13
lbl 12
goto 13
lbl 13
clrhome
disp"Le score est de",str1,G,Str2,H
for(T,0,800
end
clrhome
Disp"on est a la",Y,"minute"
fot(T,0,800
end
clrhome
if Y=90
goto 40
goto 99


if G>H
goto 16
if H>G
goto 17
if G=H
goto 18
lbl 18
clrhome
disp"matche nul"
for(T,0,800
end
clrhome
stop
lbl 16
clrhome
disp str1,"A gagné
for(T,0,800
end
clrhome
stop
lbl 17
disp str2,"A gagné
for(T,0,800
end
clrhome
stop
Sangohan38 le 01/02/2007 à 13:15
Il y a combien de joueurs?

Sangohan38
mad67 le 03/02/2007 à 10:07
2 ton joueur et l ia
mad67 le 14/02/2007 à 14:12
voici la version ti 82 http://www.new-uploader.com/fi[...]1/PES5.83p.html
pour l avoir sans cable ti graph link!!
unknow le 28/02/2007 à 11:29
Sa a l'air sympa ton jeu mais comment tu fais pour rentrer les commandes :
_rand int
_Theta
_getkey
???
parceque ma TI est en francais et ces enntrées son en anglais et je c'est pas à quoi sa correspond en francais.
Sangohan38 le 28/02/2007 à 13:32
Va sur cette page: https://tout82.pages-perso.fre[...]t.php?sujet=620
Et tu trouvera une page comportant toutes les traductions que tu cherche.

Sangohan38
unknow le 02/03/2007 à 11:38
je sui aller voir mais je n'ai pas tout trouver. Il me reste :
_Theta
_str1/str2(je ne c pa commen entré ces entré et g une ti-82 stat)
Sangohan38 le 02/03/2007 à 14:25
Str sont les string c'est à dire des chaines de caractères.
Theta est un signe grec coresspondant à [ALPHA]+3.
Pour Str, fait [2nd]+0 et cherche.

Sangohan38
Blackangel le 02/03/2007 à 17:59
Bonjour,

On peut aussi y acceder en faisant [var] + 7, c'est plus rapide que le catalogue je trouve...

Blackangel
Sangohan38 le 03/03/2007 à 15:01
Je ne connaissait pas l'emplacement c'est pour cela que j'ai donné cette méthode.

Sangohan38
mad67 le 05/03/2007 à 11:15
sinon l autre version c'est sans string
mad67 le 23/05/2007 à 07:41
et voila l'amelioration que j'ai faite que je posterai(elle est fini)
PMdej le 23/05/2007 à 18:20
Enfin !!!!
t'as pas intéret a ce qu'il soit pourrie parce que avec le temps que t'as mis a le fair !!!!! .....; enfin c'est toujours ca !!!!
godgrace.gif
mad67 le 26/05/2007 à 11:28
j'avais arreter de programmer
PMdej le 26/05/2007 à 18:01
ouais ouais ..... la bonne excuse !!!!! ....
godgrace.gif
mad67 le 27/05/2007 à 12:11
toi ta rien programmer encore alors tu peux parler
PMdej le 27/05/2007 à 12:56
d'ici lundi prochain j'expose 2 nouveaux programme !!!!!!!!!!!
godgrace.gif
mad67 le 27/05/2007 à 17:54
Si ils sont aussi intéressant que toi c'est la peine et dans tout sa j'ai pas le temps de le poster.
Sangohan38 le 27/05/2007 à 20:56
J'ai modifier deux petits mots de ton message pour éviter un quiproquo.

Sangohan38
mad67 le 16/06/2007 à 11:38
voila le lien http://web.archive.org/web/200[...]om/file/3290828
et le code complet:
Code
clrhome
0->O
0->P
0->Y
input"difficulte:",z
input"ton equipe:",str 1             <-vous pouvez vous en passer
input"equipe ia:",str2
clrhome
lbl 3
5->A
1->B
5->C
16->D
5->E
15->F
lbl 5
0->G
0->H
0->I
0->J
0->K
0->L
0->M
0->N
output(3,1,"-
output(7,1,"-
output(3,16,"-
output(7,16,"-
lbl1
if n=1:-1->L
output(a,b,"                         <-1 espace
output(c,d,"                         <-1 espace
output(e,f,"                         <-1 espace
if e=c and f=d or a=e and b=f:0->K
if e=c and f=d or e=a and f=b:0->L
a+g->a
b+h->b
c+i->c
d+j->d
e+k->e
f+l->f
0->g
0->h
0->i
0->j
0->k
0->l
output(a,b,"x
output(c,d,"O
output(e,f,".
y+0.5->Y
if f=16 or f=1:goto 2
getkey->theta               <- ou autre si on ne l'as pas
if theta=24 and b n'est pas egal 1
-1->h
if theta=26 and b n'est pas egal 16
1->H
if theta=25 and a n'est pas egal 1
-1->g
if theta=34 and a n'est pas egal 8
1->g
if theta=24 and a=e and b+1=f and b n'est pas egal 1
-1->l
if theta=26 and a=e and b+1=f and b n'est pas egal 16
1->l

if theta=25 and a=e and b+1=f and a n'est pas egal 1
-1->k
if theta=25 and a=e and b-1=f and a n'est pas egal
1->k
ik theta = 34 and a=e and b+1=f and a n'est pas egal 8
1->k
ih theta=34 and a=e and b-1=f and a n'est pas egal 8
1->k
if theta=45 and a=e and b+1=f
1->m
if theta=105
clrhome
if theta=105
pause
if c=e and d-1=f
0->m
if m=1
1->l
randint(1,z)->x
if x=1
goto 1
if e>c
1->i
if e<c
-1->i
if f+1>d and i n'est pas egal 1 and i n'est pas egal -1
1->j
if f+1<D and i=0
-1->j
if c=e and d-1=f and c=a and c superieur ou egal 5
-1->k
if c=e and d-1=f and a=e and c<5
1->k
if c=e and d-1=f and a=e and c<5
1->i
if c=e and d-1=f and b+3 inferieur ou egal d and j=0 and i=0
-1->l
if c=e and d-1=f and b+3 inferieur ou egal d and j=0 and i=0
-1->j
if c=e and d-1=f and a n'est pas egal e and d-3 inferieur ou egal b or c=e and d-1=f and a+2 inferieur ou egal e and d-2 inferieur ou egal b or c=e and d-1=f and a-2 superieur ou egal e and d-2 inferieur ou egal b or c=e and d-1=f and b>d
1->n
if a=e and b+1=f
0->n
if n=1
-1->l
goto 1
lbl 2
if e superieur ou egal 4 and e inferieur ou egal 6 and f=1
p+1->p
if e superieur ou egal 4 and e inferieur ou egal 6 and f=16
o+1->o
clrhome
disp"le score est de",str 1,o,str2,p   -> vous povez contourner
for(t,0,800)
end
clrhome
disp"et on est a la",y,"minute"
for(t,0,800)
end
clrhome
if y=45
1->F
if f=1
then
5->a
1->b
5->c
16->d
5->e
2->f
end
if f=16
then
5->a
1->b
5->c
16->d
5->e
15->f
end
if y=45
goto 5
if y n'est pas egal 90
goto 5
if o>p
z+1->z
if o<p
z-1->z
0->y
0->o
0->p
pause
goto 3
mad67 le 17/06/2007 à 13:54
he donnez vos avis la.
Sangohan38 le 17/06/2007 à 15:48
D'accod un petit avis: au lieu de mettre à la fin de ton prog chaque fois si X=16 ... tu ferais mieux de mettre if X=16:then:...:End.
Ca prendra moins de place et fera moins bugger.

Sangohan38
ratuss le 17/06/2007 à 19:54
c'est beaucoup trop lent ! extraterre.gif

mis à part ca c'est correct
mad67 le 18/06/2007 à 10:21
merci mais sa fait depuis septembre que je commence donc il faut racourcir le prog mais comment?
Sangohan38 le 20/06/2007 à 21:05
Déja en enlevant le If F=16 à chaque ligne mais en mettant If F=16:Then:...:End.

Sangohan38
mad67 le 21/06/2007 à 09:17
oui et en plus.
pjl 19 le 14/10/2009 à 17:02
J'ai deux problèmes.Mon X réaparé dans les cages quand j'ai marqué ce qui fait que après un but j'en mets des tonnes.et le 0 ne bouge pas donc je met les buts comme je veux.J'ai relu j'ai pas trouvé l'erreur une idée??
Didouille le 14/10/2009 à 17:06
Non aucune, ce post date de 2 ans, je sais pas si quelqu'un aura la réponse, mais je pense avant tout que c'est une erreur de recopiage
pjl19 le 14/10/2009 à 18:15
si c'est du recopiage je veux bien qu'on me dise ou car j'ai relu trois fois.Merci didouille winkle.gif
Didouille le 14/10/2009 à 20:30
Je ne suis pas devin, je ne peut pas deviner où son tes erreurs minied.gif
drdiablo le 14/10/2009 à 22:57
Quelqu'un pourrai mettre un lien pour le télécharger ? bigmouth.gif
C'est compatible TI-82 Stats.fr ?


Merci bigmouth.gif
mad67 le 15/10/2009 à 13:16
je pourrais le faire ^^

mais je l'ai plus sur ma calto
pjl 19 le 15/10/2009 à 19:05
Dis mad tu vois pas d'ou vienne mes erreurs steup?
RAXdu38 le 06/04/2010 à 21:45
j'ai un petit probleme concernant le programme du foot.

"if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C"

suis- je obliger de faire ce "egal" (manuellement ou par fonction) ou est ce que je peu le traduire par : =.

Si je suis obliger de le trouver comme fonction, je ne le trouve pas.

Pourrier vous me préciser ou il se trouve !

Merci beaucoup laugh.gif
madian le 07/04/2010 à 12:19
non c'est le cigle inferieur ou egal pas les 2 simboles séparé

en gros < avec la ptite barre en dessous happy.gif
RAXdu38 le 10/04/2010 à 09:07
Merci beaucoup mais comment puis je faire le petit "a" qui se trouve juste après.

" if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C "

Doit je le taper a la main ou est ce une fonction que je doit entrée ou est ce compris dans le sigle (inférieur ou égal)

Merci d'avance pour votre réponse laugh.gif
Sangohan38 le 10/04/2010 à 15:30
C'est compris dans le sigle, tu a juste à le trouver.

Sangohan38
reptor94 le 11/04/2010 à 19:59
Bonjour a tous, moi j'ai un autre probleme.

Tout marche très bien : la présentation, l'entrée des équipes et de la difficultée.

C'est a ce moment la que ma calculette maffiche : ERR:ARGUMENT

Je clique sur voir et il me conduit o probleme suivant :

if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6

Et ma calculette m'indique cette parenthese et ce n'est la premiere fois. Kel est le probleme. Sachant que j'ai une TI 82 stats.fr.

Merci de votre réponses

reptor94 glasses.gif
Sangohan38 le 11/04/2010 à 20:46
C'est une seule fonction pas deux.
Si tu as la flegme de la cherchée tu peut toujours taper int rand(Z+1->Theta

Sangohan38
reptor94 le 11/04/2010 à 22:12
Merci pour ta réponse mais j'ai encore un autre probleme :

Dans la série de OutPut( ma calculette maffiche cela : "ERR : SYNTAXE"

Et ma barre clignote a cet endroit

lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-(ma barre clignote ici juste après le -)
output(3,16,"-
output(7,16,"-
if F=1 and E> ou egal a 4 and E<ou egal a6

Ke doit je faire ??? help please crazy.gif
Rézus le 12/04/2010 à 14:00
rajoute un guillemet entre le 3 et le -
reptor94 le 13/04/2010 à 13:21
Non c bon g trouver le probleme.

En fait il suffisait d'enlever le chiffre 3 car il était en trop.

clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"- 2 nombres
output(7,1,3- 3 nombres
output(3,16,"- 2 nombres
output(7,16,"- 2 nombres

voila minied.gif
Rézus le 13/04/2010 à 14:06
oh j'avais pas fait gaffe ^^
mad67 le 21/04/2010 à 10:07
il y avais une guillemet a la place du 3 bigmouth.gif
Hitlerlecon le 24/04/2010 à 12:38
il i a un otre probleme, mad !!!

quand le match est terminer, ma calculette m'ecrit :

Score :

Barca 6

Real 2

Temps 90
Minutes

PUIS

ma calculette m'ecrit : Err étiquettes. alor que j'ai recopier exactement le programme comme tu la écrit.

Peut tu e trouver le probleme merci !!!
Hitlerlecon le 25/04/2010 à 11:58
Alor ?

vous aver la solution ou pas???
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.