Forum

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

Puissance 4 tout leger - Page 1 / 2

titozzz le 05/03/2010 à 15:00
Voila un petit puissance 4 pour jouer a 2 ,sans truc en trop ^^
1 pour le joueur 1 , 2 pour le jouer 2 et 2nd pour effacer les grille
on se déplace avec les fleches
Lancer Puissan4 la premiere fois et après, lancer Puiss4anc
http://www.mediafire.com/download.php?2jgyl4mzmcz
http://www.mediafire.com/download.php?mu05erznnmo

Vous pouvez supprimer puissan4 après la premiere utilisation

Puiss4an:

Code
:Menu("PUISSANCE 4","JOUER",D,"QUITTER",Q
:Lbl Q
:Stop
:Lbl D
:2.5->X
:2.5->Y
:RecallPic 5
:While 1
:   Pt-On(X,Y
:   getKey->K
:   Y->W
:   X->V
:   If K=24 and X>5:X-5->X
:   If K=34 and Y>5:Y-5->Y
:   If K=26 and X<85:X+5->X
:   If K=25 and Y<55:Y+5->Y
:   If K=92:Pt-On(V,W,2
:   If K=93:Pt-On(V,W,3
:   Pt-Off(V,W
:   If K=21:Goto E
:   
:End
:Lbl E
:ClrDraw
:Goto D


puissan4
Code
:ClrDraw
:AxesOff
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:Line(0,0,90,0
:Line(0,0,0,60
:Line(90,0,90,60
:Line(0,60,90,60
:Line(5,60,5,0
:Line(10,60,10,0
:Line(15,60,15,0
:Line(20,60,20,0
:Line(25,60,25,0
:Line(30,60,30,0
:Line(35,60,35,0
:Line(40,60,40,0
:Line(45,60,45,0
:Line(50,60,50,0
:Line(55,60,55,0
:Line(60,60,60,0
:Line(65,60,65,0
:Line(70,0,70,60
:Line(75,0,75,60
:Line(80,0,80,60
:Line(85,0,85,60
:Line(0,5,90,5
:Line(0,10,90,10
:Line(0,15,90,15
:Line(0,20,90,20
:Line(0,25,90,25
:Line(0,30,90,30
:Line(0,35,90,35
:Line(0,40,90,40
:Line(0,45,90,45
:Line(0,50,90,50
:Line(0,55,90,55
:StorePic 5
:prgmPUISS4NC


Ou voir plus bas ^^
Stupid le 05/03/2010 à 18:49
C'est sur que si y'a aucun tests de victoire ça pèsera pas très lourd clown.gif

Aussi
Code
:Line(10,60,10,0
:Line(15,60,15,0
:Line(20,60,20,0
:Line(25,60,25,0
:Line(30,60,30,0
:Line(35,60,35,0
:Line(40,60,40,0
:Line(45,60,45,0
:Line(50,60,50,0
:Line(55,60,55,0
:Line(60,60,60,0
:Line(65,60,65,0
:Line(70,0,70,60
:Line(75,0,75,60
:Line(80,0,80,60
:Line(85,0,85,60
:Line(0,5,90,5
:Line(0,10,90,10
:Line(0,15,90,15
:Line(0,20,90,20
:Line(0,25,90,25
:Line(0,30,90,30
:Line(0,35,90,35
:Line(0,40,90,40
:Line(0,45,90,45
:Line(0,50,90,50
:Line(0,55,90,55


c'est
Code
:For(A,10,85,5
:Line(A,60,A,0
:If A<61
:Line(0,A-5,90,A-5
:End
titozzz le 05/03/2010 à 19:44
Pas con, j'ai pas l'habitude d'être intelligent bigmouth.gif bigmouth.gif
Didouille le 05/03/2010 à 19:51
Du coup c'est peut être mieux de tout mettre dans le même programme
titozzz le 05/03/2010 à 22:22
je fais ca 2main
darkjack le 25/09/2010 à 00:09
Je trouve pas StorePic sur ma Ti-82 Stats.fr, quelqu'un peut m'aider svp ^^ ?
Sangohan38 le 25/09/2010 à 08:45
Sur ta calculatrice c'est renommé en SauvImage.

Sangohan38
darkjack le 25/09/2010 à 09:51
Mici ^^ mais sur le programme je met SauveImage 5 ou SauveImage Img5 ?
darkjack le 25/09/2010 à 10:04
Et euh recall pic en Ti 82 sa donne quoi svp ^^' ? aprés tout les autres je connaît happy.gif ( sangohan ces traductions ne sont pas dans ton sujet sur les traduction Ti 83 -> Ti 82 tu pourrais les rajouter ^^ ?)
Panache le 25/09/2010 à 10:38
Réfléchit un peu...
Si tu sauve une image c'est pour la rappeler après !
Donc ça veut dire Rapelimage c'est tout... godgrace.gif
azerty le 25/09/2010 à 11:16
mais c'est quoi la touche menu?

quelqu'un peu m'expliquer svp
Sangohan38 le 25/09/2010 à 11:23
La fonction Menu permet ... de faire un menu.
Pour ça il faut donner un titre au menu (ce qui est marquer dans les premiers guillemets) puis les différents choix (7 au max). On n'oublie bien sur pas de renvoyer les choix aux différentes étiquettes d'où les chiffres/lettres qui suivent les choix.
Ah au fait tu l'as dans le menu PRGM.

Sangohan38
azerty le 25/09/2010 à 18:47
merci mais au début dans menu, il faut mettre les virgules et les guillemets? eyeonly.gif
azerty le 25/09/2010 à 18:58
et c'est quoi clrdraw et recallpic????
azerty le 25/09/2010 à 19:01
et Pt-On et getKey ??? godgrace.gif
Sangohan38 le 25/09/2010 à 20:14
Oui pour menu il faut marquer tout ce que l'auteur met.
Après ClrDraw est traduit par EffDessin, recallpic par rappelImage, Pt-On par Pt-Aff et getKey par codetouche.

Sangohan38
titozzz le 25/09/2010 à 23:25
Et bah, quel emoi provoqué par ce petit programme xD j'en ferais un version simplifiée et améliorée cette semaine bigmouth.gif
azerty le 26/09/2010 à 11:08
merci ^^ bigmouth.gif
azerty le 26/09/2010 à 11:13
et le "and" on le trouve où?
azerty le 26/09/2010 à 11:15
c'est pareil que "et"? moodforlove.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.