Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Morpion & Puissance 4

Page: 1, 2 >>

Morpion & Puissance 4

Auteur

Message

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 24 Mai 2006, 15:29

Et voici mon morpion fait maison:

Code

FullScreen
0=>Xmin
94=>Xmax
0=>Ymin
62=>Ymax
ClrDraw
CoordOff
GridOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,34
Text(28,A," MORPION"
End
Text(52,27,"VERSION 1.0"
Pause
ClrDraw
Lbl 1
Menu("MORPION:","JORER",2,"INSTRUCTIONS",3,"QUITTER",4
Lbl 4
ClrDraw
ClrHome
Ortput(1,1," "
Stop
Lbl 3
ClrDraw
Text(1,1,"PORR JORER, ON UTILISE LES"
Text(7,1,"TORCHES [1] A [9]."
Text(13,1,"SOIT 7 LA TORCHE EN HAUT A"
Text(19,1,"GAUCHE."
Line(52,30,52,0
Line(22,30,22,00
Line(52,30,22,30
Line(52,20,22,20
Line(52,10,22,10
Line(52,00,22,00
Line(42,30,42,0
Line(32,30,32,0
Pause
Goto 1
Lbl 2
ClrDraw
1=>A
0=>L2(1)
0=>L2(2)
0=>L2(3)
0=>L2(4)
0=>L2(5)
0=>L2(6)
0=>L2(7)
0=>L2(8)
0=>L2(9)
Line(32,10,32,40
Line(42,10,42,40
Line(52,10,52,40
Line(62,10,62,40
Line(32,10,62,10
Line(32,20,62,20
Line(32,30,62,30
Line(32,40,62,40
Text(1,25,"JOUEUR"
Lbl 5
1=>A
Text(1,52,A
1=>X
GetKey=>B
If B=92:Goto C
If B=93:Goto D
If B=94:Goto E
If B=82:Goto 9
If B=83:Goto A
If B=84:Goto B
If B=72:Goto 6
If B=73:Goto 7
If B=74:Goto 8
Goto 5
Lbl F
2=>A
Text(1,52,A
4=>X
GetKey=>B
If B=92:Goto C
If B=93:Goto D
If B=94:Goto E
If B=82:Goto 9
If B=83:Goto A
If B=84:Goto B
If B=72:Goto 6
If B=73:Goto 7
If B=74:Goto 8
Goto F
Goto 5
Lbl 6
24=>S
36=>N
7=>O
Goto I
Lbl I
If L2(O)+X=1:Then:L2(O)+X=>L2(O)
Text(S,N,"X":Goto G
Else
If L2(O)+X=4:Then:L2(O)+X=>L2(O):Text(S,N,"O":Goto H
Else
If L2(O)=1 and X=1 or L2(O)=4 and X=1
Goto 5
If L2(O)=1 and X=4 or L2(O)=4 and X=4:Goto F
Lbl 7
24=>S
46=>N
8=>O
Goto I
Lbl 8
24=>S
56=>N
9=>O
Goto I
Lbl 9
34=>S
36=>N
4=>O
Goto I
Lbl A
34=>S
46=>N
5=>O
Goto I
Lbl B
34=>S
56=>N
6=>O
Goto I
Lbl C
44=>S
36=>N
1=>O
Goto I
Lbl D
44=>S
46=>N
2=>O
Goto I
Lbl E
44=>S
56=>N
3=>O
Goto I
Lbl M
If L2(7)+L2(8)+L2(9)=3 or L2(7)+L2(8)+L2(9)=12
Line(32,35,62,35
If L2(4)+L2(5)+L2(6)=3 or L2(4)+L2(5)+L2(6)=12
Line(32,25,62,25
If L2(1)+L2(2)+L2(3)=3 or L2(1)+L2(2)+L2(3)=12
Line(32,15,62,15
If L2(7)+L2(4)+L2(1)=3 or L2(7)+L2(4)+L2(1)=12
Line(37,40,37,10
If L2(8)+L2(5)+L2(2)=3 or L2(8)+L2(5)+L2(2)=12
Line(47,40,47,10
If L2(9)+L2(6)+L2(3)=3 or L2(9)+L2(6)+L2(3)=12
Line(57,40,57,10
If L2(7)+L2(5)+L2(3)=3 or L2(7)+L2(5)+L2(3)=12
Line(32,40,62,10
If L2(9)+L2(5)+L2(1)=3 or L2(9)+L2(5)+L2(1)=12
Line(62,40,32,10
Pause
Goto 1
Lbl G
If L2(1)+L2(2)+L2(3)=3 or L2(4)+L2(5)+L2(6)=3 or L2(7)+L2(8)+L2(9)=3 or L2(1)+L2(4)+L2(7)=3 or L2(2)+L2(5)+L2(8)=3 or L2(3)+L2(6)+L2(9)=3 or L2(1)+L2(5)+L2(9)=3 or L2(3)+L2(5)+L2(7)=3:Then:Text(7,30,"GAGNE":Goto M
Else
If L2(1)+L2(2)+L2(3)+L2(4)+L2(5)+L2(6)+L2(7)+L2(8)+L2(9)=21:Then:Text(7,30,"EGALITE"
Pause
Goto 1
Else
If L2(1)+L2(2)+L2(3)ø3 and L2(4)+L2(5)+L2(6)ø3 and L2(7)+L2(8)+L2(9)ø3 and L2(1)+L2(4)+L2(7)ø3 and L2(2)+L2(5)+L2(8)ø3 and L2(3)+L2(6)+L2(9)ø3 and L2(1)+L2(5)+L2(9)ø3 and L2(3)+L2(5)+L2(7)ø3
Goto F
Lbl H
If L2(1)+L2(2)+L2(3)=12 or L2(4)+L2(5)+L2(6)=12 or L2(7)+L2(8)+L2(9)=12 or L2(1)+L2(4)+L2(7)=12 or L2(2)+L2(5)+L2(8)=12 or L2(3)+L2(6)+L2(9)=12 or L2(1)+L2(5)+L2(9)=12 or L2(3)+L2(5)+L2(7)=12
Then
Text(7,30,"GAGNE"
Goto M
Else
If L2(1)+L2(2)+L2(3)ø12 and L2(4)+L2(5)+L2(6)ø12 and L2(7)+L2(8)+L2(9)ø12 and L2(1)+L2(4)+L2(7)ø12 and L2(2)+L2(5)+L2(8)ø12 and L2(3)+L2(6)+L2(9)ø12 and L2(1)+L2(5)+L2(9)ø12 and L2(3)+L2(5)+L2(7)ø12
Goto 5

Et le code de mon puissance 4(il manque les conditions de victoire):

Code

FullScreen
0=>Xmin
94=>Xmax
0=>Ymin
62=>Ymax
ClrDraw
CoordOff
QuadOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,25
Text(32,A," PUISSANCE 4"
End
Text(52,27,"VERSION 1.0"
Pause
ClrDraw
Lbl 1
Menu("PUISSANCE 4","JOUER",2,"INSTRUCTIONS",3,"QUITTER",4)
Lbl 3
ClrDraw
Text(1,1,"LE BUT DE CE JEU EST "
Text(7,1,"D ALINER 4 PIONTS SOIT"
Text(13,1,"EN LIGNE, SOIT EN COLONNE"
Text(19,1,"SOIT EN DIAGONALE."
Text(28,1,"POUR CHOISIR LA COLONNE,"
Text(34,1,"ON UTILISE LES FLECHES ET"
Text(40,1,"LA TOUCHE [2ND]."
Pause
Goto 1
Lbl 4
ClrHome
ClrDraw
Output(1,1," "
Stop
Lbl 2
ClrDraw
41=>A
EffListe L1
43=>dim(L1
Float
Line(37,50,93,50
Line(37,42,93,42
Line(37,34,93,34
Line(37,26,93,26
Line(37,18,93,18
Line(37,10,93,10
Line(37,2,93,2
Line(37,50,37,2
Line(45,50,45,2
Line(53,50,53,2
Line(61,50,61,2
Line(69,50,69,2
Line(77,50,77,2
Line(85,50,85,2
Line(93,50,93,2
Text(17,5,"JOUEUR"
(-)2=>Y
Lbl 5
1=>[THETA]
1=>B
Text(17,31,[THETA]
Pt-Off(A-8,52
Pt-Off(A-8,53
Pt-Off(A-8,54
Pt-Off(A-8,55
Pt-Off(A+8,52
Pt-Off(A+8,53
Pt-Off(A+8,54
Pt-Off(A+8,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C=21:Goto 6
Goto 5
Lbl 7
2=>[THETA]
0.1=>B
Text(17,31,[THETA]
Pt-Off(A-8,52
Pt-Off(A-8,53
Pt-Off(A-8,54
Pt-Off(A-8,55
Pt-Off(A+8,52
Pt-Off(A+8,53
Pt-Off(A+8,54
Pt-Off(A+8,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C=21:Goto 6
Goto 7
Lbl 6
If A=41:1=>Z
If A=49:7=>Z
If A=57:13=>Z
If A=65:19=>Z
If A=73:25=>Z
If A=81:31=>Z
If A=89:37=>Z
Goto 0
Lbl 0
Z+1=>Z
Y+8=>Y
If L1(Z)[différent de]0 et B=1:Goto 0
If L1(Z)[différent de]0 et B=0.1:Goto 0
If L1(Z)=0 et B=1:Goto 8
If L1(Z)=0 et B=0.1:Goto 9
Lbl 8
Circle(A,Y,3
1=>L1(Z)
(-)2=>Y
Goto 7
Lbl 9
Circle(A,Y,3
0.1=>L1(Z)
Line(A-3,Y,A+3,Y
Line(A,Y-3,A,Y+3
(-)2=>Y
Goto 5

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 24 Mai 2006, 16:39

Ca prend combien en taille tout ca ?

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 24 Mai 2006, 16:40

Le morpion, il en prend 2455 octets et le puissance 4 moin de 2000

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 24 Mai 2006, 16:59

Pour le morpion t'as fait une A.I. ?

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 24 Mai 2006, 17:09

Nan, j'ai pas fait d'AI.

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 25 Mai 2006, 10:44

Je vien d'ajouter le morpion en .82p

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 25 Mai 2006, 11:16

Tu l'as testé ton .82p?

----------------------
--- LISTE DES JEUX POUR TI ---

Google_AdSense

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 25 Mai 2006, 11:22

Ouai: quand tu enregistre un prog à partir d'un bloc note de ti grph link, il te montre les erreures mais comme la j'ai pris sur le ti graph link 83+ anglais c'est bon.

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 25 Mai 2006, 11:23

ti graph link 83+ anglais

Ouest ce que tu l'as trouve ??

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 25 Mai 2006, 11:26

Aha...
Je l'ai trouvé sur le site http://education.ti.com mais tu va en bavé pour le trouvé dessus. Il ma fallut 1 h de recherche.

Help
Invité

Posté le : Mar 13 Jui 2006, 19:11

comment on marque par ex ds snake :

Xmax
Xmin
...

SVP aidez moi ( sinon j'arrive a tout

webmaster

Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13

Posté le : Mar 13 Jui 2006, 19:14

Bonsoir,

Il faut presser les touches [VARS]+[1]+...

@+ Le Webmaster

Help
Invité

Posté le : Mar 13 Jui 2006, 19:59

merci de m'aider mais je voulais savoir pour entrer cela ds un programme ( sur une ligne de commande ) donc je sais pas trop...

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mar 13 Jui 2006, 21:10

Et bien tu procède de la même manière mais en étant dans le programme (c'est à dire en l'éditant)

Jcotnys

Autorisation : Membre
Nb de messages : 178
Inscrit le : Lun 20 Mar 2006, 13:28

Posté le : Ven 16 Jui 2006, 12:15

salu : tu marque kelke chose dans un program soit avec la fonction text(.. ou la fonction output !

----------------------
le travail c la santé

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 16 Jui 2006, 13:41

Ouai, j'aime pas trop disp vu qu'on peut pas mettre un maximum de lignes.

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Ven 16 Jui 2006, 13:55

Disp, c'est la methode la plus simple, c'est pas mal pour les debutants

, mais effectivement output permet 8 lignes de textes et en plus c'est plus rapide à afficher

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 16 Jui 2006, 19:25

Pero, j'ai connu Output avant Dip ce qui fait que je favorise le Output.
Et puis pas besoin de mettre Disp quand j'arrive au même résultat en un Output.

Google_AdSense

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Ven 16 Jui 2006, 20:23

Disp "B
-> 3 octets

Output (1,2,"C
-> 7 octets

Et si tu veux afficher plein de texte, alors vaut aussi mieux utiliser disp :
Disp "TEXTE","TEXTE","TEXTE","TEXTE","TEXTE","TEXTE"

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 16 Jui 2006, 20:37

Pa forcement, moi j'utilise une méthode assez simple: on sait que c'est les " qui délimitent les lignes donc après le texte s'affiche en fonction.
Sinon, c'est pas pour 4 octets de plu qu'on va pleurer.
Même si au bout d'un moment, ça commence a devenir un grand chiffre.

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Sam 17 Jui 2006, 18:52

Oui c'est vrai tu as raison, on peut tout aussi mettre :

Code

Output (1,1,"LIGNE1 LIGNE2 LIGNE3

(je sais pas si c'est ca que tu voulais dire

)

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 17 Jui 2006, 18:52

Si c'est ce que voulais dire.

craminou

Autorisation : Membre
Nb de messages : 132
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Sam 15 Juil 2006, 15:02

pour ratuss et autres économes de la memoire j'en ai un de 2045 octé . je le metrai des que j'aurai reussi a le faire passer sur ti graph link puis sur le block note...

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 15 Juil 2006, 17:15

Bien jouer mais mon morpion a été bvite fait. Je pense que je peut en faire un plus simple.

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 27 Aoû 2006, 10:39

Voila ma nouvelle version de mon morpion:

Code

:FullScreen
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:ClrDraw
:CoordOff
:GridOff
:AxesOff
:Horizontal 0
:Horizontal 62
:Vertical 0
:Vertical 94
:For(A,1,07
:Text(10,A," SANGOHAN38"
:End
:For(A,1,10
:Text(A,53," PRESENTE:"
:End
:For(A,1,34
:Text(28,A," MORPION"
:End
:Text(52,27,"VERSION 2.0"
:Pause
:ClrDraw
:Lbl 1
:Menu("MORPION:","JOUER",2,"INSTRUCTIONS",3,"QUITTER",4
:Lbl 4
:ClrDraw
:ClrHome
:Output(1,1," "
:ClrList L1
:Stop
:Lbl 3
:ClrDraw
:Text(1,1,"POUR JOUER, ON UTILISE LES"
:Text(7,1,"TOUCHES [1] A [9]."
:Text(15,1,"APPUYES SUR LES TOUCHES ET
:Text(22,1,"APRES SUR [ENTER]."
:Line(52,30,52,0
:Line(22,30,22,00
:Line(52,30,22,30
:Line(52,20,22,20
:Line(52,10,22,10
:Line(52,00,22,00
:Line(42,30,42,0
:Line(32,30,32,0
:0->B
:Text(54,26,"1
:Text(54,36,"2
:Text(54,46,"3
:Text(44,26,"4
:Text(44,36,"5
:Text(44,46,"6
:Text(34,46,"9
:Text(34,36,"8
:Text(34,26,"7
:Lbl W
:If B[différent de]0:Goto X
:getKey->B
:If B=105:Goto 1
:If B=92:Text(54,26,"X
:If B=93:Text(54,36,"X
:If B=94:Text(54,46,"X
:If B=82:Text(44,26,"X
:If B=83:Text(44,36,"X
:If B=84:Text(44,46,"X
:If B=72:Text(34,26,"X
:If B=73:Text(34,36,"X
:If B=74:Text(34,46,"X
:1->[THETA]
:Goto W
:Lbl X
:[THETA]+1->[THETA]
:If [THETA][différent de]7:Goto X
:If B=92:Text(54,26,"1
:If B=93:Text(54,36,"2
:If B=94:Text(54,46,"3
:If B=82:Text(44,26,"4
:If B=83:Text(44,36,"5
:If B=84:Text(44,46,"6
:If B=72:Text(34,26,"7
:If B=73:Text(34,36,"8
:If B=74:Text(34,46,"9
:0->B
:Goto W
:Lbl 2
:ClrDraw
:1->A
:ClrList L1
:9->dim L1
:Line(32,10,32,40
:Line(42,10,42,40
:Line(52,10,52,40
:Line(62,10,62,40
:Line(32,10,62,10
:Line(32,20,62,20
:Line(32,30,62,30
:Line(32,40,62,40
:Text(1,31,"JOUEUR"
:Lbl 5
:1->A
:Text(1,57,A
:1->X
:getKey->B
:If B=92:Goto C
:If B=93:Goto D
:If B=94:Goto E
:If B=82:Goto 9
:If B=83:Goto A
:If B=84:Goto B
:If B=72:Goto 6
:If B=73:Goto 7
:If B=74:Goto 8
:Goto 5
:Lbl F
:2->A
:Text(1,57,A
:4->X
:getKey->B
:If B=92:Goto C
:If B=93:Goto D
:If B=94:Goto E
:If B=82:Goto 9
:If B=83:Goto A
:If B=84:Goto B
:If B=72:Goto 6
:If B=73:Goto 7
:If B=74:Goto 8
:Goto F
:Lbl 6
:24->S
:36->N
:7->O
:Lbl I
:If X=1 and L1(O)[différent de]0:Goto 5
:If X=4 and L1(O)[différent de]0:Goto F
:If L1(O)+X=1:L1(O)+X->L1(O)
:If L1(O)=1:Text(S,N,"X"
:If F=1 and L1(O)=1:Goto G
:If L1(O)+X=4:L1(O)+X->L1(O)
:If L1(O)=4:Text(S,N,"O"
:If F=1 and L1(O)=4:Goto H
:pxl-Test(S+1,N->F
:Goto I
:Lbl 7
:24->S
:46->N
:8->O
:Goto I
:Lbl 8
:24->S
:56->N
:9->O
:Goto I
:Lbl 9
:34->S
:36->N
:4->O
:Goto I
:Lbl A
:34->S
:46->N
:5->O
:Goto I
:Lbl B
:34->S
:56->N
:6->O
:Goto I
:Lbl C
:44->S
:36->N
:1->O
:Goto I
:Lbl D
:44->S
:46->N
:2->O
:Goto I
:Lbl E
:44->S
:56->N
:3->O
:Goto I
:Lbl M
:If L1(7)+L1(8)+L1(9)=3 or L1(7)+L1(8)+L1(9)=12
:Line(32,35,62,35
:If L1(4)+L1(5)+L1(6)=3 or L1(4)+L1(5)+L1(6)=12
:Line(32,25,62,25
:If L1(1)+L1(2)+L1(3)=3 or L1(1)+L1(2)+L1(3)=12
:Line(32,15,62,15
:If L1(7)+L1(4)+L1(1)=3 or L1(7)+L1(4)+L1(1)=12
:Line(37,40,37,10
:If L1(8)+L1(5)+L1(2)=3 or L1(8)+L1(5)+L1(2)=12
:Line(47,40,47,10
:If L1(9)+L1(6)+L1(3)=3 or L1(9)+L1(6)+L1(3)=12
:Line(57,40,57,10
:If L1(7)+L1(5)+L1(3)=3 or L1(7)+L1(5)+L1(3)=12
:Line(32,40,62,10
:If L1(9)+L1(5)+L1(1)=3 or L1(9)+L1(5)+L1(1)=12
:Line(62,40,32,10
:Text(7,33,"GAGNE"
:Pause
:Goto 1
:Lbl G
:If L1(1)+L1(2)+L1(3)=3 or L1(4)+L1(5)+L1(6)=3 or L1(7)+L1(8)+L1(9)=3 or L1(1)+L1(4)+L1(7)=3 or L1(2)+L1(5)+L1(8)=3 or L1(3)+L1(6)+L1(9)=3 or L1(1)+L1(5)+L1(9)=3 or L1(3)+L1(5)+L1(7)=3
:Goto M
:If L1(1)+L1(2)+L1(3)+L1(4)+L1(5)+L1(6)+L1(7)+L1(8)+L1(9)=21:Goto Y
:If L1(1)+L1(2)+L1(3)[différent de]3 and L1(4)+L1(5)+L1(6)[différent de]3 and L1(7)+L1(8)+L1(9)[différent de]3 and L1(1)+L1(4)+L1(7)[différent de]3 and L1(2)+L1(5)+L1(8)[différent de]3 and L1(3)+L1(6)+L1(9)[différent de]3 and L1(1)+L1(5)+L1(9)[différent de]3 and L1(3)+L1(5)+L1(7)[différent de]3
:Goto F
:Lbl Y
:Text(1,28," EGALITE "
:Pause
:Goto 1
:Lbl H
:If L1(1)+L1(2)+L1(3)=12 or L1(4)+L1(5)+L1(6)=12 or L1(7)+L1(8)+L1(9)=12 or L1(1)+L1(4)+L1(7)=12 or L1(2)+L1(5)+L1(8)=12 or L1(3)+L1(6)+L1(9)=12 or L1(1)+L1(5)+L1(9)=12 or L1(3)+L1(5)+L1(7)=12
:Goto M
:If L1(1)+L1(2)+L1(3)[différent de]12 and L1(4)+L1(5)+L1(6)[différent de]12 and L1(7)+L1(8)+L1(9)[différent de]12 and L1(1)+L1(4)+L1(7)[différent de]12 and L1(2)+L1(5)+L1(8)[différent de]12 and L1(3)+L1(6)+L1(9)[différent de]12 and L1(1)+L1(5)+L1(9)[différent de]12 and L1(3)+L1(5)+L1(7)[différent de]12
:Goto 5

Et pour le télécharger vous connaissez le lien

Google_AdSense

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Dim 27 Aoû 2006, 11:52

Ca prend combien de place ??

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 28 Aoû 2006, 8:54

Moin que l'autre que j'avais fait.

craminou

Autorisation : Membre
Nb de messages : 132
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Mer 06 Sep 2006, 15:17

c'est a dire ????????

a par sa pour les "ouput " ou "disp " ,disp est qd meme trees utile car quand on veut aficher une variable alor qu'on ne conné pas la valeur, si c'est un chiffre a virgule, disp l'affiche en entier, ouput peut le couper au milieu d'une ligne .. si il est mal prévu ... bon dsl pour le morpion , en se moment je galere a le metre en txt , j'ai trop la flemme de taper tout se que j'ai fait de nouvot a la main alor je cherche moyen de transormer programme en . txt et .txt en programme....

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 08 Sep 2006, 20:38

Ya un moyen tout simple.

Tu va sur ti connect et normalement tu peut télécharger un truc dans ce genre.

titeufbig

Autorisation : Membre
Nb de messages : 33
Inscrit le : Dim 17 Sep 2006, 12:20

Posté le : Mer 20 Sep 2006, 13:45

a quoi sa correspond le A avec un accent??

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 20 Sep 2006, 15:30

C'est ou ??

----------------------
--- LISTE DES JEUX POUR TI ---

titeufbig

Autorisation : Membre
Nb de messages : 33
Inscrit le : Dim 17 Sep 2006, 12:20

Posté le : Mer 20 Sep 2006, 19:58

Citer

:Text(10,A," SANGOHAN38"

titeufbig

Autorisation : Membre
Nb de messages : 33
Inscrit le : Dim 17 Sep 2006, 12:20

Posté le : Mer 20 Sep 2006, 19:59

Mais sur le code on dirait que y'a un accent, c'est un A tt simple non?

craminou

Autorisation : Membre
Nb de messages : 132
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Jeu 21 Sep 2006, 17:28

tu a un lien ?? ou un autre émulateur qui soit capable de transformer un prog ti , ou un fichier .82p ou un .txt en prog ti , en fichier .82p ou en .txt?????
passe moi le lien je prend tout de suite !!!
jen é marre de gallerer . je peut mettre mes prog sur pc et MES prog du pc a la calculos mé pas les prog ke je télécharge é je peut ni transformre en . txt , de txt a .82p puis a calculos !!!

ps g ti connect et ti graph link 82 é 83

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 21 Sep 2006, 18:29

Citer

Mais sur le code on dirait que y'a un accent, c'est un A tt simple non?

Bah oui...

Ps : craminou : http://www.ti83plus.online.fr/home.phpdownloads.php?cat=Utilitaires+PC

----------------------
--- LISTE DES JEUX POUR TI ---

titeufbig

Autorisation : Membre
Nb de messages : 33
Inscrit le : Dim 17 Sep 2006, 12:20

Posté le : Ven 22 Sep 2006, 20:29

et je le fait comment ce A avec accent?

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 22 Sep 2006, 20:31

C'est l'équivalmence du signe [THETA].

PS: Désoler pour le retard mais faudra vous y faire.

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mer 11 Oct 2006, 18:20

C4EST QUOI GRIDoff en french?

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 12 Oct 2006, 19:14

GridOff is the same function as QuadNaff ( in [format] )

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 01 Nov 2006, 18:42

Flood -> Supprimé.

Sangohan38

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 02 Nov 2006, 8:08

Lol, t'étais pas obligé de le dire (purée c'est fou depuis que t'es modo j'ai même plus mes 1000 messages

)

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 02 Nov 2006, 9:14

Tu crois peut être que ça me fait plaisir de retomber a 978...
Mais en tant que modo je m'effoce de faire mon boulot.

Sangohan38

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 19 Nov 2006, 11:53

Voici un nouveau Morpion que j'ai fait différamment:

Code

:1->Xmin
:95->Xmax
:0->Ymin
:AxesOff
:62->Ymax
:0->G
:ClrDraw
:For(A,33,63,10
:Line(A,18,A,48
:1->C
:End
:ClrList L1
:9->dim L1
:For(A,18,48,10
:Line(33,A,63,A
:End
:Lbl 0
:C->B
:0->[THETA]
:getKey->[THETA]
:If [THETA]=72 and L1(7)=0:B->L1(7)
:If [THETA]=73 and L1(8)=0:B->L1(8)
:If [THETA]=74 and L1(9)=0:B->L1(9)
:If [THETA]=82 and L1(4)=0:B->L1(4)
:If [THETA]=83 and L1(5)=0:B->L1(5)
:If [THETA]=84 and L1(6)=0:B->L1(6)
:If [THETA]=92 and L1(1)=0:B->L1(1)
:If [THETA]=93 and L1(2)=0:B->L1(2)
:If [THETA]=94 and L1(3)=0:B->L1(3)
:If [THETA][DIFFERENT DE]0:Goto 1
:Goto 0
:Lbl 1
:If L1(7)=1:Text(16,36,"X
:If L1(7)=.1:Text(16,36,"O
:If L1(8)=1:Text(16,46,"X
:If L1(8)=.1:Text(16,46,"O
:If L1(9)=1:Text(16,56,"X
:If L1(9)=.1:Text(16,56,"O
:If L1(4)=1:Text(26,36,"X
:If L1(4)=.1:Text(26,36,"O
:If L1(5)=1:Text(26,46,"X
:If L1(5)=.1:Text(26,46,"O
:If L1(6)=1:Text(26,56,"X
:If L1(6)=.1:Text(26,56,"O
:If L1(1)=1:Text(36,36,"X
:If L1(1)=.1:Text(36,36,"O
:If L1(2)=1:Text(36,46,"X
:If L1(2)=.1:Text(36,46,"O
:If L1(3)=1:Text(36,56,"X
:If L1(3)=.1:Text(36,56,"O
:0->F
:If L1(1)+L1(2)+L1(3)=3 or L1(1)+L1(2)+L1(3)=.3:1->F
:If L1(4)+L1(5)+L1(6)=3 or L1(4)+L1(5)+L1(6)=.3:2->F
:If L1(7)+L1(8)+L1(9)=3 or L1(7)+L1(8)+L1(9)=.3:3->F
:If L1(1)+L1(4)+L1(7)=3 or L1(1)+L1(4)+L1(7)=.3:4->F
:If L1(2)+L1(5)+L1(8)=3 or L1(2)+L1(5)+L1(8)=.3:5->F
:If L1(3)+L1(6)+L1(9)=3 or L1(3)+L1(6)+L1(9)=.3:6->F
:If L1(1)+L1(5)+L1(9)=3 or L1(1)+L1(5)+L1(9)=.3:7->F
:If L1(7)+L1(5)+L1(3)=3 or L1(7)+L1(5)+L1(3)=.3:8->F
:If L1(1)+L1(2)+L1(3)+L1(4)+L1(5)+L1(6)+L1(7)+L1(8)+L1(9)=5.4:1->G
:If F[DIFFERENT DE]0 or G=1:Goto [THETA]
:If B=1:.1->C
:If B=.1:1->C
:Goto 0
:Lbl [THETA]
:If F=1:Line(33,23,63,23
:If F=2:Line(33,33,63,33
:If F=3:Line(33,43,63,43
:If F=4:Line(38,18,38,48
:If F=5:Line(48,18,48,48
:If F=6:Line(58,18,58,48
:If F=7:Line(33,18,63,48
:If F=8:Line(33,48,63,18
:If G=1:F+1->F
:If G=1 and F[DIFFERENT DE]9:Goto [THETA]
:Pause
:ClrDraw
:ClrHome
:Output(1,1,"

Et le lien:http://www.new-uploader.com/file/1263/MORPION.82p.html

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mer 30 Mai 2007, 17:37

puissance 4 il est en réseau et y'a moyen de mettre un mode réseau?

Google_AdSense

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 31 Mai 2007, 20:58

Tu parle de ton puissance 41 je suppose...
Pour le mettre "en réseau", il faut tout simplement utiliser lesx instructions get et send.
Pour plus d'informations, direction le manuel.

Sangohan38

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Jeu 31 Mai 2007, 21:00

je l'ai lu le manuel masi j'arrive pas à en faire un systeme d'envoi/réception pendant un prog

je connait, les fonctions mais j'ai pas la,methode

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Jeu 31 Mai 2007, 21:33

Code

FullScreen
0=>Xmin
94=>Xmax
0=>Ymin
62=>Ymax
ClrDraw
CoordOff
QuadOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,25
Text(32,A," PUISSANCE 4"
End
Text(52,27,"VERSION 1.0"
Pause
ClrDraw
Lbl 1
Menu("PUISSANCE 4","JOUER",2,"INSTRUCTIONS",3,"QUITTER",4)
Lbl 3
ClrDraw
Text(1,1,"LE BUT DE CE JEU EST "
Text(7,1,"D'ALINER 4 PIONTS SOIT"
Text(13,1,"EN LIGNE, SOIT EN COLONNE"
Text(19,1,"SOIT EN DIAGONALE."
Text(28,1,"POUR CHOISIR LA COLONNE,"
Text(34,1,"ON UTILISE LES FLECHES ET"
Text(40,1,"LA TOUCHE [2ND]."
Pause
Goto 1
Lbl 4
ClrHome
ClrDraw
Output(1,1," "
Stop
Lbl 2
ClrDraw
41=>A
EffListe L1
43=>dim(L1
Float
For(Q,10,50,8
Line(37,Q,93,Q
End
Line(37,2,93,2
For(Q,37,93,8
Line(Q,50,Q,2
End
Text(17,5,"JOUEUR"
(-)2=>Y
Lbl 5
1=>[THETA]
1=>B
Text(17,31,[THETA]
For(Z,8,-8,-16
For(W,52,55
Pt-off(A,52,A,55
End
End
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C[pas égal à]21
Goto 5
Lbl 7
2=>[THETA]
0.1=>B
Text(17,31,[THETA]
For(Z,8,-8,-16
For(W,52,55
Pt-off(A,52,A,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C [pas égal à 21]:Goto 7
Lbl 6
If A=41:1=>Z
If A=49:7=>Z
If A=57:13=>Z
If A=65:19=>Z
If A=73:25=>Z
If A=81:31=>Z
If A=89:37=>Z
Goto 0
Lbl 0
Z+1=>Z
Y+8=>Y
If L1(Z)[différent de]0 et B=1:Goto 0
If L1(Z)[différent de]0 et B=0.1:Goto 0
If L1(Z)=0 et B=1:Goto 8
If L1(Z)=0 et B=0.1:Goto 9
Lbl 8
Circle(A,Y,3
1=>L1(Z)
(-)2=>Y
Goto 7
Lbl 9
Circle(A,Y,3
0.1=>L1(Z)
Line(A-3,Y,A+3,Y
Line(A,Y-3,A,Y+3
(-)2=>Y
Goto 5

j'ai viré quelques octets à la version de Sango, mais j'ai du mal à cerner sa composition

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 01 Jui 2007, 0:04

Si je me souviens bien, il suffit de séléctionner la collonne en déplacant le curseur du haut et le rond s'affiche tout seul.
J'avais rajouté quelques touches pour la victoire ou le match nul car j'avais la flem de définir toutes les conditions de victoires.
J'oubliais de dire que ce prog utilise les listes.

Sangohan38

craminou

Autorisation : Membre
Nb de messages : 132
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Dim 24 Jui 2007, 21:53

mon morpion (puisque le cable marche , on en profite)

Code

0ü

Xmin
94ü

Xmax
1ü

Xscl
0ü

Ymin
62ü

Ymax
1ü

Yscl
8ü

Xres
ClrHome
ClrDraw
int(rand*2+1)ü

Q
0ü

O
0ü

P
Lbl Z
ClrDraw
0ü

R
0ü

S
0ü

T
0ü

U
0ü

V
0ü

W
0ü

X
0ü

Y
0ü

Z
Line(0,0,0,62
Line(23,0,23,62
Line(46,0,46,62
Line(68,0,68,62
Line(0,0,68,0
Line(0,22,68,22
Line(0,42,68,42
Line(0,62,68,62
Text(2,2,"1
Text(2,26,"2
Text(2,50,"3
Text(22,2,"4
Text(22,26,"5
Text(22,50,"6
Text(42,2,"7
Text(42,26,"8
Text(42,50,"9
Text(6,69,"JOUEUR
Text(12,69,"1=X
Text(18,69,"2=O
Text(0,69,"SIGNE
Text(24,69,"PARTIE
Text(30,69,"GAGNEE:
Text(36,69,"JOUEUR
Text(42,69,"1=",O
Text(48,69,"2=",P
Pause
If Q=3
Then
1ü

Q
End
If Q=1
Then
Output(1,1,"JOUEUR 1 COMMENCE
Pause
ClrHome
Goto A
End
If Q=2
Then
Output(1,1,"JOUEUR 2 COMMENCE
Pause
ClrHome
Goto B
End
Lbl A
Input "JOUEUR 1 ENTRE LE NUMERO DE LA CASE",A
If A=1 and R=0
Then
Goto 1
End
If A=2 and S=0
Then
Goto 2
End
If A=3 and T=0
Then
Goto 3
End
If A=4 and U=0
Then
Goto 4
End
If A=5 and V=0
Then
Goto 5
End
If A=6 and W=0
Then
Goto 6
End
If A=7 and X=0
Then
Goto 7
End
If A=8 and Y=0
Then
Goto 8
End
If A=9 and Z=0
Then
Goto 9
End
If Aø1 and Aø2 and Aø3 and Aø4 and Aø5 and Aø6 and Aø7 and Aø8 and Aø9
Then
ClrHome
Disp "CASE INEXISTANTE
Pause
ClrHome
Goto A
End
Goto 11
Lbl 1
Text(10,10,"X
1ü

R
Goto 10
Lbl 2
Text(10,40,"X
1ü

S
Goto 10
Lbl 3
Text(10,60,"X
1ü

T
Goto 10
Lbl 4
Text(30,10,"X
1ü

U
Goto 10
Lbl 5
Text(30,40,"X
1ü

V
Goto 10
Lbl 6
Text(30,60,"X
1ü

W
Goto 10
Lbl 7
Text(50,10,"X
1ü

X
Goto 10
Lbl 8
Text(50,40,"X
1ü

Y
Goto 10
Lbl 9
Text(50,60,"X
1ü

Z
Goto 10
Lbl 11
ClrHome
Output(1,1,"CASE DEJA UTILISEE
Pause
ClrHome
Goto A
Lbl 10
Pause
If S=1 and R=1 and T=1
Then
Goto 12
End
If U=1 and W=1 and V=1
Then
Goto 12
End
If X=1 and Z=1 and Y=1
Then
Goto 12
End
If R=1 and X=1 and U=1
Then
Goto 12
End
If S=1 and Y=1 and V=1
Then
Goto 12
End
If T=1 and Z=1 and W=1
Then
Goto 12
End
If R=1 and Z=1 and V=1
Then
Goto 12
End
If T=1 and X=1 and V=1
Then
Goto 12
End
If Rø0 and Sø0 and Tø0 and Uø0 and Vø0 and Wø0 and Xø0 and Yø0 and Zø0
Then
Goto 40
End
Goto B
Lbl 12
ClrHome
Output(1,1,"JOUEUR 1 GAGNE!
Pause
ClrHome
2ü

Q
O+1ü

O
Goto Z
Lbl B
Input "JOUEUR 2 ENTRE LE NUMERO DE LA CASE",A
If A=1 and R=0
Then
Goto 21
End
If A=2 and S=0
Then
Goto 22
End
If A=3 and T=0
Then
Goto 23
End
If A=4 and U=0
Then
Goto 24
End
If A=5 and V=0
Then
Goto 25
End
If A=6 and W=0
Then
Goto 26
End
If A=7 and X=0
Then
Goto 27
End
If A=8 and Y=0
Then
Goto 28
End
If A=9 and Z=0
Then
Goto 29
End
If Aø1 and Aø2 and Aø3 and Aø4 and Aø5 and Aø6 and Aø7 and Aø8 and Aø9
Then
ClrHome
Disp "CASE INEXISTANTE
Pause
ClrHome
Goto B
End
Goto 31
Lbl 21
Text(10,10,"O
2ü

R
Goto 30
Lbl 22
Text(10,40,"O
2ü

S
Goto 30
Lbl 23
Text(10,60,"O
2ü

T
Goto 30
Lbl 24
Text(30,10,"O
2ü

U
Goto 30
Lbl 25
Text(30,40,"O
2ü

V
Goto 30
Lbl 26
Text(30,60,"O
2ü

W
Goto 30
Lbl 27
Text(50,10,"O
2ü

X
Goto 30
Lbl 28
Text(50,40,"O
2ü

Y
Goto 30
Lbl 29
Text(50,60,"O
2ü

Z
Goto 30
Lbl 31
ClrHome
Output(1,1,"CASE DEJA UTILISEE
Pause
ClrHome
Goto B
Lbl 30
Pause
If S=2 and R=2 and T=2
Then
Goto 32
End
If U=2 and W=2 and V=2
Then
Goto 32
End
If X=2 and Z=2 and Y=2
Then
Goto 32
End
If R=2 and X=2 and U=2
Then
Goto 32
End
If S=2 and Y=2 and V=2
Then
Goto 32
End
If T=2 and Z=2 and W=2
Then
Goto 32
End
If R=2 and Z=2 and V=2
Then
Goto 32
End
If T=2 and X=2 and V=2
Then
Goto 32
End
If Rø0 and Sø0 and Tø0 and Uø0 and Vø0 and Wø0 and Xø0 and Yø0 and Zø0
Then
Goto 40
End
Goto A
Lbl 32
ClrHome
Output(1,1,"JOUEUR 2 GAGNE!
Pause
ClrHome
1ü

Q
P+1ü

P
Goto Z
Lbl 40
ClrHome
Output(1,1,"EGALITE
Pause
ClrHome
Goto Z

Google_AdSense

vibra

Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29

Posté le : Dim 24 Jui 2007, 22:57

T'as pas plus long ??

Sérieux ça sert à quoi de faire un morpion sur calculette alors qu'il suffit de tracer 4 lignes sur un bout de papier !!

----------------------
Vive la programmation et vive le vibraphone !!!

Page: 1, 2 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Morpion & Puissance 4

Page générée en 6 requêtes

Flux RSS