Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 81910
Réponses : 440
Type : discussion
Etat : réponses autorisées

Pongs - Page 1 / 9

Sangohan38 le 20/08/2006 à 16:39
Voici 2 pongs.
Le premier se joue seul et le deuxième a 2.

Code
:ClrHome
:0->W
:0->S
:7->A
:8->C
:7->D
:-1->E
:1->F
:Lbl 0
:If D=8:Goto 1
:ClrHome
:Output(8,A,"----
:Output(D,C,"O
:getKey->K
:If K=24 and A-1>0
:A-1->A
:If K=26 and A+3<16:A+1->A
:If K=105:Pause
:C+F->C
:D+E->D
:If D=1:1->E
:If D=7 and C=A or D=7 and C=A+1 or D=7 and C=A+2 or D=7 and C=A+3
:Goto 2
:If C=1:1->F
:If C=16:-1->F
:Goto 0
:Lbl 2
:-1->E
:S+1->S
:Goto 0
:Lbl 1
:Output(8,1,"SCORE:"
:Output(8,7,S
:Pause
:ClrHome
:Output(1,1,"        "
:Stop


Et le deuxième:

Code
:int rand2->B
:int rand2->D
:If B=0:-1->Z
:If B=1:1->Z
:If D=0:-1->O
:If D=1:1->O
:4->A
:4->C
:8->X
:4->Y
:Lbl 0
:ClrHome
:Output(A,1,"!
:Output(A+1,1,"!
:Output(C,16,"!
:Output(C+1,16,"!
:Output(Y,X,"O
:getKeyü ( ) K
:If K=105:Pause
:If K=25 and C-1ø0:C-1ü ( ) C
:If K=21 and A-1ø0:A-1ü ( ) A
:If K=41 and A+2ø9:A+1ü ( ) A
:If K=34 and C+2ø9:C+1ü ( ) C
:X+Z->X
:Y+O->Y
:If X=1:Goto 1
:If X=16:Goto 2
:If Y=1:1->O
:If Y=8:-1->O
:If X=2 and A=Y or X=2 and A+1=Y
:1->Z
:If X=15 and C=Y or X=15 and C+1=Y:-1->Z
:Goto 0
:Lbl 1
:ClrHome
:Output(4,1,"JOUEUR 2 GAGNE."
:Pause
:ClrHome
:Output(1,1,"    "
:Stop
:Lbl 2
:ClrHome
:Output(4,1,"JOUEUR 1 GAGNE."
:Pause
:ClrHome
:Output(1,1,"   
:Stop
EDITE par linkakro 30/08/2014 : la discussion a donné naisssance à d'autres codes, certains de meilleure qualité.
Linkakro page 18 Dim 29 Sep 2013 Départ aléatoire, et correction du plantage des coins inférieurs.
Silennus page 18 Mar 08 Oct 2013, 16:43 Prototype Duo, basé sur une autre source, qui elle était un quasi plagiat de celui de Sangohan38. (ne me souvient pas si c'était solo ou duo)
Linkakro page 20 Jeu 17 Oct 2013, 20:57 Corrections de celui de Silennus, et quelques changements facultatifs pour des portions équivalentes.
Linkakro page 21 Mer 30 Oct 2013 Résultat avec fusion de tout ce qui a été fait avant. Commentaires pour aider à la saisie sur tout modèle ti82/82stat/82statfr/83.
Sangohan38 le 23/08/2006 à 08:53
Y'a quelqu'un pour tester svp.
c moi le 23/08/2006 à 13:10
salut tt le monde

excusez moi mai pendant les vacances je n etai pa la dc je n ai pa pu ecrire soccer et la mon frere la effacer angry.gif

sinon pour ton jeu g essayer les premier et il marche bi1 happy.gif
et le 2eme ossi merci bokou happy.gif happy.gif
Sangohan38 le 24/08/2006 à 07:09
Merci mais un peu d'expèrience et ça fait le premier pong.

Pour le deuxième, je suis parti du même principe.
Dark TI le 26/08/2006 à 18:16
cry.gif cry.gif J'essaierai mais l'an dernier je suis reste 2 mois sans reussir a en faire un potable, je suis degoute crazy.gif cry.gif godgrace.gif
Sangohan38 le 27/08/2006 à 09:12
Il m'a fallu environ 2 heures et des vacances ou je fesait ch***.
Courage c'est super simple.
xeros le 29/08/2006 à 11:35
il y a kan meme un PB
la balle repete sans cesse la meme trajectoire ahh.gif
autrement il est bien
happy.gif
Sangohan38 le 29/08/2006 à 18:46
Normal qu'elle répète sans cesse la même trajectoire, tu remarque quand quand elle change de sens que lorsqu'ellle touche un mur.
pb le 17/09/2006 à 11:55
ça marche pa sure ti 82stats .fr a la ligne 12 aider moi
]
ratuss le 17/09/2006 à 14:10
Slt,

Le problème avec la fr c'est qu'elle est francisé, toutes les instructions sont traduits en francais, donc en gros c'est la veille galère si tu veux recopier un prog avec des instructions en anglais.

Un conseil : télécharge ti-graph-link version francaise pour ti 83 (ti 82 sta fr et ti 83 c'est la meme chose), ensuite tu telecharges des .82p ou .83p, tu les ouvrent avec Ti graph link, tu imprimes et tu recopies...

Tu trouveras ton bohneur ici : https://tionline.pages-perso.free.fr/jeux.htm

@+
Sangohan38 le 17/09/2006 à 15:33
Tu m'a devancer.
Et par défaut, elle a été faites pour ti-83+ donc sur une STATS non francisé, ça devrait marcher.
Falcon le 18/09/2006 à 18:22
J'ai la Ti 82 Stat.fr et ça marche pas du tous, je lance le programme, mais tout est bloqué !
jéjélapince le 18/09/2006 à 20:40
J'ai une TI-82 stats.fr
Moi ça marche pas à la ligne :0->S

sinon pour les stats.fr Clrhome=Effecr Getkey=codetouche
Sangohan38 le 22/09/2006 à 20:30
C'est sans doute parceque vous avez mis -> et non la touche [STO].

Sa renvoie quoi comme erreur?

PS: je l'ai programmer sur ti-83 + donc je peut vous certifier que c'est compatible avec une 82 stats.
Jcotnys le 24/09/2006 à 17:00
moi jve bien tester ton jeu
mé a 1 condition : que vous testez mes jeux ( c pa compliqué, exemple : choice !)
merci davance minied.gif
Sangohan38 le 24/09/2006 à 17:38
Je vais essayer car en plus cette semaine j'aurais tout mon temps.
Jcotnys le 25/09/2006 à 14:45
merci !! minied.gif et moi je testerai le tien minied.gif (à 100%)
ratuss le 25/09/2006 à 14:48
Purée ca craint, on dirait que c'est une corvée de vouloir tester les jeux de l'autre (surtout qu'a la base c'est plutot l'inverse), sinon a quoi ca sert de creer des jeux si c'est juste pour embeter le monde crazy.gif
Jcotnys le 25/09/2006 à 14:54
laugh.gif laugh.gif laugh.gif laugh.gif laugh.gif laugh.gif
ben c vrai .
une kestion : ki a testé mon jeu choice????
bon c vrai ki a le concours donc je vous pardonne un peu minied.gif
voila zete content ? ahh.gif
ratuss le 25/09/2006 à 14:57
c'étais quoi deja comme sorte de jeu ? minied.gif
Jcotnys le 25/09/2006 à 15:03
choice ou minex ??
pour choice allé voir dans programmes des internautes -> sujet:"choice"
ratuss le 25/09/2006 à 15:15
Bah je parlais de choice
Jcotnys le 27/09/2006 à 13:04
ben teste le et tu verra minied.gif
ratuss le 27/09/2006 à 14:22
Ts, moi depuis que j'ai gouté a l'ASM meme le meilleur jeu du monde en basic na plus aucun interet pour moi (quoique football simulation 6 est vraiment un beau jeu)...

Le fait que je le teste inclurais que je le telecharge, je le mette sur un autre pc (ou ti connect est installé), que je le passe dans la calcu, et que je le teste (t'imagine un peu) karate.gif godgrace.gif

Ps : t'inquiete pas je le testerais tout à l'heure vu que je suis quand meme super gentil... kiss.gif

@+
Jcotnys le 28/09/2006 à 17:20
merci bcp, cela me touche bocoup beer.gif
j'esper ke ce jeu satisfera sa majesté !( laugh.gif laugh.gif laugh.gif laugh.gif laugh.gif )
ratuss le 28/09/2006 à 17:55
Citation
merci bcp, cela me touche bocoup beer.gif


Oh puis en fait non...


godgrace.gif
Sangohan38 le 29/09/2006 à 21:18
Espèce de frimmeur Ratuss.
Tout ça juste parceque t'a un peu plus de message que moi.
Sansuko le 04/10/2006 à 15:22
Une question quand meme quand il y a :Output(1,1," " il y a combien d'espace entre les " " ? svp
et aussi il y a :Output(8,A,"---- ce sont le - ou le cupsmiley.gif dela calculette ?
Merci

ps: je suis un debutant crazy.gif
ratuss le 04/10/2006 à 17:45
Code
"        "
"       "
"      "
"     "
"    "
"   "
"  "
" "


(soit 8 espaces)

@+

Ps : sinon oui les - sont des "moins" a priori
Ps2 : glasses.gif (pour Sango qui semble terriblement jaloux)
Sangohan38 le 06/10/2006 à 21:28
Ouiiiin en plus tu me ermet même pas de répondre a des questions qui conceernes mes progs.
ratuss le 13/10/2006 à 09:42
A la guerre comme a la guerre godgrace.gif
Sangohan38 le 13/10/2006 à 20:50
871 a 909 vivement que mon ordi portable remarche et la ton avance va vite fondre...
craminou le 14/10/2006 à 16:36
flood?? godgrace.gif
Sangohan38 le 14/10/2006 à 17:47
C'est toi qui flood la parcequ je répond et je fait une phrase avec un verbe+ un sujet+ un complément.

Donc je ne flood pas.
craminou le 14/10/2006 à 20:23
lol , en effet eyeonly.gif
nujik le 18/10/2006 à 19:16
heu, moi je suis en terminale, mais je viens d'espagne et la bas ils ont jamais vu une vrai calcu de leur vie, donc moi non plus avant la rentrée, mais je me suis mit a prog ya 2 jours et j'amerai savoir quel est l'effet de :
"getkey->K" car je n'ai pas réussi a le comprendre en faissant des tests sur ma ti ... merci d'avance ^^

PS, a oui au fait, ton prog marche sur une ti 83+ ...
ratuss le 18/10/2006 à 19:42
getkey->K ?

t'enregistre la valeur de getkey dans K. en gros ca te permet de savoir si l'utilisateur a préssé une touche.


essaye ca:
Code

0=>K
while K=0
getkey=>K
end
disp "TOUCHE PRESSE:",K



@+
nujik le 18/10/2006 à 19:47
Thxs, donc si j'ai bien compris, quand le joueur presse une touche, ca revient a faire k+1=k et ca ammène donc la question suivante ... heu, si le joueur presse une autre touche qu'une fleche le prog foire ? et comment le prog tu fais pour "savoir" quelle touche il presse ?
nujik le 18/10/2006 à 19:50
Arf, suis un boulet frozen.gif , la prochaine fois avant de poster je fais ce que tu me dit ^^ bon, j'ai compris thx
nujik le 18/10/2006 à 19:59
Ouais, maintenant que je métrise getkey, tout devient clair => en fait il est pas compliqué comme prog, par contre je vois bien a quoi sert la commande "output", mais je ne la métrise pas, ni la commande "for" ... tu aurais pas un exemple comme pour getkey ou un site ou il explique toutes les commandes ?
ratuss le 18/10/2006 à 20:05
Je peu t'en faire un vite fait qui regroupe les 2 :

Code
For (A,1,8
Output(A,4,"Y
pause
end


@+
nujik le 18/10/2006 à 20:20
Bon encore une question de boulet (si ca te derrange tu le dis ...), j'arrive pas a trouver cmment on fais pour effacer un prog (je sais comment tous les effacer, mais c'est pas tres interressant), ni comment on change le nom d'un prog ...
benjamin le 18/10/2006 à 21:18
Pour effacer un programme, tu vas dans memoire ( touches: "seconde" + "+") puis delete (touches: "2") puis presses la touche 7, choisis le programme que tu veux effacer, puis presses la touche entrer, et ton programme sera effacé !

PS: Ce n'est pas une question de boulet mais il faut un petit peu chercher par sois même avant de demander, mais lorsque tu ne trouves vraiment pas, là tu peux demander.^^ et pour changer le nom d'un programme je nais pas encore trouvé ! mais les deux acolytes sngohan et ratuss vont surement pouvoir t'aider !

a+ benji glasses.gif
nujik le 18/10/2006 à 22:35
merci, en fait c'est pas que j'avais la fleme de chercher, mais comme j'ai deja une 10aine de programmes, et que ca ma pris pas mal de temps a les faire vu que je débute, Et que en plus je suis très mauvais en anglais, je préfèrais pas trop chercher de peur m'embroullier crazy.gif et de tout effacer !!
jean le 19/10/2006 à 14:25
pb lé touch march pa comen fr
Jcotnys le 19/10/2006 à 15:56
ya pa ke sango et ratuss ! laugh.gif
pour changer le nom du prog, fo utiliser la touche rcl dan le programme:

je mexplique :
- tu fais un nouveau prog avec le nom ke ta choisi.
- tu quit (2nd del)
- t'éxécute le prog ki a le mauvais nom
- tu va dans ton nouvo programme ke ta créer puis tu fais 2nd sto .
voila minied.gif
nujik le 19/10/2006 à 18:04
?? ca marche pas ou je fais pas les bonnes manip ... tu peux présciser a partir de la 3ieme étape pliz ?
nujik le 19/10/2006 à 18:17
Bon vu que javais tous les outil pour faire le pong2J, j'ai essayer de le faire tous seul et j'ai presque réussi ... enfin il est pas très différent ... j'ai quand meme ajouter quelques modification qui le rende un peu mieux (enfin de mon pts de vue) :

1) J'ai mis au point un petit systhème de contage de points, avant le debut du jeux, le programme demande le Nb de point pour gagner ...

2) Et pour que la balle ne fasse pas tjs la meme trajectoire, j'ai introduit la possibiliter de smatch de facon aléatoire, mais ca marche pas encore très bien ...

Bref je post tous ca des que j'ai arranger les Pb (merci au boss de la ti de ne pas donner les solutions pour le moment ^^) maxiangry.gif sinon je me fache
ratuss le 19/10/2006 à 18:20
Citation
(merci au boss de la ti de ne pas donner les solutions pour le moment ^^)


Qui ca ? Moi ? glasses.gif
nujik le 19/10/2006 à 18:34
en plus j'ai remarqué qu'a qualité égale, le mellieur prog est celui qui occupe le moins d'octets, donc je me demandais si au lieu de mettre "A+2=9" tu gagnerais pas de la place avec "A=7" !! Et hop quelques octets dans la pache ... enfin je crois ?