Forum

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

Morpion & Puissance 4 - Page 1 / 2

Sangohan38 le 24/05/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 le 24/05/2006 à 16:39
Ca prend combien en taille tout ca ?
Sangohan38 le 24/05/2006 à 16:40
Le morpion, il en prend 2455 octets et le puissance 4 moin de 2000
ratuss le 24/05/2006 à 16:59
Pour le morpion t'as fait une A.I. ?
Sangohan38 le 24/05/2006 à 17:09
Nan, j'ai pas fait d'AI.
Sangohan38 le 25/05/2006 à 10:44
Je vien d'ajouter le morpion en .82p
ratuss le 25/05/2006 à 11:16
Tu l'as testé ton .82p?
Sangohan38 le 25/05/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 le 25/05/2006 à 11:23
ti graph link 83+ anglais

Ouest ce que tu l'as trouve ??
Sangohan38 le 25/05/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 le 13/06/2006 à 19:11
comment on marque par ex ds snake :

Xmax
Xmin
...

SVP aidez moi ( sinon j'arrive a tout
webmaster le 13/06/2006 à 19:14
Bonsoir,

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

@+ Le Webmaster beer.gif
Help le 13/06/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 le 13/06/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 le 16/06/2006 à 12:15
salu : tu marque kelke chose dans un program soit avec la fonction text(.. ou la fonction output ! minied.gif
Sangohan38 le 16/06/2006 à 13:41
Ouai, j'aime pas trop disp vu qu'on peut pas mettre un maximum de lignes.
ratuss le 16/06/2006 à 13:55
Disp, c'est la methode la plus simple, c'est pas mal pour les debutants happy.gif, mais effectivement output permet 8 lignes de textes et en plus c'est plus rapide à afficher happy.gif
Sangohan38 le 16/06/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.
ratuss le 16/06/2006 à 20:23
Disp "B
-> 3 octets

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

godgrace.gif

Et si tu veux afficher plein de texte, alors vaut aussi mieux utiliser disp :
Disp "TEXTE","TEXTE","TEXTE","TEXTE","TEXTE","TEXTE"
Sangohan38 le 16/06/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. godgrace.gif
ratuss le 17/06/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 crazy.gif )
Sangohan38 le 17/06/2006 à 18:52
Si c'est ce que voulais dire.
craminou le 15/07/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... happy.gif
Sangohan38 le 15/07/2006 à 17:15
Bien jouer mais mon morpion a été bvite fait. Je pense que je peut en faire un plus simple.
Sangohan38 le 27/08/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 clown.gif
ratuss le 27/08/2006 à 11:52
Ca prend combien de place ??
Sangohan38 le 28/08/2006 à 08:54
Moin que l'autre que j'avais fait.
craminou le 06/09/2006 à 15:17
c'est a dire ???????? godgrace.gif
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.... crazy.gif
Sangohan38 le 08/09/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 le 20/09/2006 à 13:45
a quoi sa correspond le A avec un accent??
ratuss le 20/09/2006 à 15:30
C'est ou ??
titeufbig le 20/09/2006 à 19:58
Citation
:Text(10,A," SANGOHAN38"
titeufbig le 20/09/2006 à 19:59
Mais sur le code on dirait que y'a un accent, c'est un A tt simple non?
craminou le 21/09/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 !!! ahh.gif ahh.gif ahh.gif ahh.gif ahh.gif
ps g ti connect et ti graph link 82 é 83
ratuss le 21/09/2006 à 18:29
Citation
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/[...]=Utilitaires+PC
titeufbig le 22/09/2006 à 20:29
et je le fait comment ce A avec accent?
Sangohan38 le 22/09/2006 à 20:31
C'est l'équivalmence du signe [THETA].

PS: Désoler pour le retard mais faudra vous y faire.
Stupid le 11/10/2006 à 18:20
C4EST QUOI GRIDoff en french?
ratuss le 12/10/2006 à 19:14
GridOff is the same function as QuadNaff ( in [format] ) clown.gif
Sangohan38 le 01/11/2006 à 18:42
Flood -> Supprimé. godgrace.gif

Sangohan38
ratuss le 02/11/2006 à 08: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 maxiangry.gif )
Sangohan38 le 02/11/2006 à 09: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 le 19/11/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/fi[...]ORPION.82p.html
Stupid le 30/05/2007 à 17:37
puissance 4 il est en réseau et y'a moyen de mettre un mode réseau?
Sangohan38 le 31/05/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 le 31/05/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 le 31/05/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 le 01/06/2007 à 00: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 le 24/06/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


cupsmiley.gif
vibra le 24/06/2007 à 22:57
T'as pas plus long ?? karate.gif
Sérieux ça sert à quoi de faire un morpion sur calculette alors qu'il suffit de tracer 4 lignes sur un bout de papier !! crazy.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.