| MORPION symple a realiser |
| Auteur |
Message |
coco-rico38
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 14 Jan 2010, 19:33
|
Posté le : Jeu 14 Jan 2010, 20:14
|
|
 |
bonjour pouvez vous me dir ce ke vous en pencer c mon premer jeux graphique
| Code | :ZStandard
:AxesOff
:ClrDraw
:Horizontal 3.33
:horizontal -3.33
:vertical 3.33
:vertical -3.33
:Pause
:1->J
:1->X
:Repeat X=0
:ClrHome
:Disp "A1=7, A2=8, A3=9","B1=4, B2=5, B3=6","C1=1, C2=2, C3=3","0:ABANDON"
:Disp "","JOUEUR :",J
:Prompt X
:if X=7 and J=1
:then
:Line(-10,3.33,-3.33,10)
:Line(-10,10,-3.33,3.33)
:End
:if X=8 and J=1
:then
:Line(-3.33,10,3.33,3.33)
:Line(-3.33,3.33,3.33,10)
:End
:if X=9 and J=1
:then
:Line(3.33,10,10,3.33)
:Line(3.33,3.33,10,10)
:End
:if X=4 and J=1
:then
:Line(-10,-3.33,-3.33,3.33)
:Line(-10,3.33,-3.33,-3.33)
:End
:if X=5 and J=1
:then
:Line(-3.33,-3.33,3.33,3.33)
:Line(-3.33,3.33,3.33,-3.33)
:End
:if X=6 and J=1
:then
:Line(3.33,-3.33,10,3.33)
:Line(3.33,3.33,10,-3.33)
:End
:if X=1 and J=1
:then
:Line(-10,-10,-3.33,-3.33)
:Line(-10,-3.33,-3.33,-10)
:End
:if X=2 and J=1
:then
:Line(-3.33,-10,3.33,-3.33)
:Line(-3.33,-3.33,3.33,-10)
:End
:if X=3 and J=1
:then
:Line(3.33,-10,10,-3.33)
:Line(3.33,-3.33,10,-10)
:End
:if X=7 and J=2
Circle(-6.675,6.675,2)
:if X=8 and J=2
Circle(0,6.675,2)
:if X=9 and J=2
Circle(6.675,6.675,2)
:if X=4 and J=2
circle(-6.675,0,2)
:if X=5 and J=2
Circle(0,0,2)
:if X=6 and J=2
Circle(6.675,0,2)
:if X=1 and J=2
Circle(-6.675,-6.675,2)
:if X=2 and J=2
Circle(0,-6.675,2)
:if X=3 and J=2
Circle(6.675,-6.675,2)
:if X!=0
:Pause
:if J=2
:then
:1->J
:Else
:if J=1
:2->J
:End
:End
:ClrDraw
:clrHome
:AxesOn
:Disp |
----------------------
0b10010010 programateur sur pic 0b1010101110 |
 |
  |
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Ven 15 Jan 2010, 18:22
|
|
|
Programme assez long après faudrait tester pour voir ce que ça donne au niveau des graphismes.
Sinon je sais pas si tu sais mais il faut écrire en français sur ce forum (symple mais qu'est ce qu'il faut pas lire  )
Sangohan38
|
| |
|
| |
coco-rico38
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 14 Jan 2010, 19:33
|
Posté le : Ven 15 Jan 2010, 20:55
|
|
|
ok desoler pour l'ecritur c'est l'abitude je vai fair plus attention si tu peu tester mon morpion sa serai pas mal et si tu veut le modifier c'est encor mieu merci d'avence.
----------------------
0b10010010 programateur sur pic 0b1010101110 |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 16 Jan 2010, 13:05
|
|
|
Sinon les navigateurs internet intègrent désormais un correcteur d'orthographe car là c'est vraiment dur de te comprendre.
Pour le programme, si tu as le câble upload le et je le test car j'ai la flegme de le recopier.
Sangohan38
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 16 Jan 2010, 14:25
|
|
|
Tu peux peut-être remplacer la multitude de If par un If J=1 et un J=2 en remplaçant les coordonnées par des formules.
3-J->J remplace tout ton If/Then/Else/End
tu dois enlever le if X!=0
Quelles sont les dimensions de ta fenêtre ? On peut s'en servir pour simplifier les possibles formules.
Voici un exemple proche du tiens mais j'ai la flemme d'ajuster pour que ce soit propre. Et puis je
n'ai pas tout optimisé.
| Code |
1->Xmin
30->Xmax
1->Ymin
30->Ymax
axesOff
ClrDraw
Horizontal 10
horizontal 20
vertical 10
vertical 20
1->J
1->X
Lbl0
ClrHome
Disp "","JOUEUR :",J
Lbl1
Prompt X
If X>9 <--- rejète certains nombres invalides (les entiers)
goto1
ent(X/3)->V <--- remplacent les If de chaque nombre X
X-V*3->U
If U=0
3->U
(U-1)*10+1->U
(V+1)*10->V
If X=0
goto2
If J=1
Then
line(U,V,U+10,V-10)
line(U,V-10,U+10,V)
Else
circle(U+5,V+5,5)
End
3-J->J <---remplace If J=1,Then,Else
Pause
goto0
lbl2
EffEcr
AxesOn
|
Ces codes sont mini mais c'est le début avant les tests de score ou de "case remplie".
Sous réserve que je me sois trompé.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
coco-rico38
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 14 Jan 2010, 19:33
|
Posté le : Sam 16 Jan 2010, 18:31
|
|
|
ok merci pour le programe et non sangohan g pas le cable et pour les faut d'horthographe je suis desolé mais vue que je suis disorthographique c'est pas facile tout les jour.
J'ai une dernierre question pour le programme comme je peut fair comment pour quil y est un gagnan? par ce que la on peut metre des rond sur des des croix et vis versa mais il dis jamais J1 ou J2 gagner quand ya une ligne, je sais pas comment faire
----------------------
0b10010010 programateur sur pic 0b1010101110 |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 16 Jan 2010, 19:56
|
|
|
Il faut que tu créer une liste où une matrice et ensuite lorsque c'est au joueur 1 de jouer, tu met 1 dans la liste/matrice et lorsque L1(1=L1(2=L1(3, tu met les conditions de victoire.
Sinon pour bien allégé ton programme, au lieu de mettre des cercles et des lignes, utilise la fonction text.
Sinon voici un morpion que j'ai fait et que j'ai essayé de faire le plus légé possible:
| Code | EffEcr
EffListe L
9ü dim(L
1üA
Disp "+-+-+-+","! ! ! !","+-+-+-+","! ! ! !","+-+-+-+","! ! ! !","+-+-+-+"
Lbl 1
0üK
codeTouch(üK
partEnt(K/10-6)üY
10partD–c(.1K)-1üX
If X<1 ou X>3 ou Y<1 ou Y>3:Goto 1
If A=1:Output(2Y,2X,"X
If A=ú![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png) 1:Output(2Y,2X,"O
úAüA
AüL(3(Y-1)+X
If abs(L(1)+L(2)+L(3))ø3 et abs(L(4)+L(5)+L(6))ø3 et abs(L(7)+L(8)+L(9))ø3 et abs(L(1)+L(4)+L(7))ø3 et abs(L(2)+L(5)+L(8))ø3 et abs(L(3)+L(6)+L(9))ø3 et abs(L(1)+L(5)+L(9))ø3 et abs(L(3)+L(5)+L(7))ø3:Goto 1
If A=ú1
1üB
If A=1
2üB
Output(8,1,"JOUEUR GAGNE!"
Output(8,8,B
Pause
EffEcr
Output(1,1," |
Sangohan38
|
| |
|
| |
coco-rico38
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 14 Jan 2010, 19:33
|
Posté le : Sam 16 Jan 2010, 20:05
|
|
|
merci je v le tester et je t'en dit des nouvelle ^^
----------------------
0b10010010 programateur sur pic 0b1010101110 |
| |
|
| |
coco-rico38
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 14 Jan 2010, 19:33
|
Posté le : Dim 17 Jan 2010, 10:49
|
|
|
Linkakro!
Le code que tu a poster pour mon morpion c'est des chose que tu a rajouter ou il est entier??
----------------------
0b10010010 programateur sur pic 0b1010101110 |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 17 Jan 2010, 14:08
|
|
|
J'ai tenté de garder ton plan, et j'ai modifié ce qui me semblait simplifiable.
Il ne fait aucun test de victoire ni de case remplie, et ne quitte pas quand c'est terminé.
Mais je ne l'ai pas testé.
Je n'ai pas tenté de recopier quoi que ce soit.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
coco-rico38
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 14 Jan 2010, 19:33
|
Posté le : Dim 17 Jan 2010, 16:15
|
|
|
ok psk moi je l'ai tester et sa marche pas 
----------------------
0b10010010 programateur sur pic 0b1010101110 |
| |
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 15:23
|
|
|
c'est quoi ù avec un autre accent stp?
|
| |
|
| |
lolio67
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56
|
Posté le : Mer 27 Jan 2010, 16:45
|
|
|
C'est la fleche que tu met avec la touche sto
Exemple :
If K=105
0->X
Voila
|
| |
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 17:07
|
|
|
dans úAüA ce sont ->A->A ???
|
| |
|
| |
lolio67
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56
|
Posté le : Mer 27 Jan 2010, 17:19
|
|
|
Ca doit etre -A->A mais chui pas sur ,
faut que sangohan38 te reponde
|
| |
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 17:22
|
|
|
je confirme il ne marche pas ici: EffEcr
EffListe L
9üdim(L
|
| |
|
| |
lolio67
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56
|
Posté le : Mer 27 Jan 2010, 17:24
|
|
|
Faut que tu voit avec celui qui l'a fait
J'en suis pas encore a ce niveau de programation 
|
| |
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 17:29
|
|
|
^^ ok
|
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 27 Jan 2010, 17:36
|
|
|
Il te donne quelle erreur ?
Tu as bien écrit EffListe L1 en utilisant le catalogue et la toutche L1 ?
PS:Et si quelqu'un pouvait m'expliquer ce qu'est la fonction abs( ce serait sympa.
|
| |
|
| |
lolio67
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56
|
Posté le : Mer 27 Jan 2010, 17:43
|
|
|
Moi aussi ,ca sert a quoi "abs"
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Mer 27 Jan 2010, 17:50
|
|
|
abs( c'est super utille !!!!!
c'est la valeur absolue
ça te donne la distance à zero d'un nombre réel, la valeur sans le signe (toujours positive)
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 17:53
|
|
|
L1? c'est juste marqué L et quelle touche L1? ^^ (je suis en TI82 stats)
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Mer 27 Jan 2010, 17:56
|
|
|
c'est [2nde]+[1] 
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 18:02
|
|
|
a bah ok et de partout ou ya L c'est L1?
|
| |
|
| |
olivier
Invité
|
Posté le : Mer 27 Jan 2010, 18:05
|
|
|
géniale maintenant ca bloque la:
0üK
codeTouch(üK
partEnt(K/10-6)üY
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Mer 27 Jan 2010, 18:14
|
|
|
le ü c'est [sto->] au dessus de [on]
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
olivier
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08
|
Posté le : Mer 27 Jan 2010, 18:34
|
|
|
c'est ce que j'ai mit
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Mer 27 Jan 2010, 18:41
|
|
|
le code touche tu l'a pris dans le menu prgm ?
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
olivier
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08
|
Posté le : Mer 27 Jan 2010, 18:44
|
|
|
yes
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Mer 27 Jan 2010, 20:46
|
|
|
il ne faut pas mettre de (
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
olivier
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08
|
Posté le : Jeu 28 Jan 2010, 18:18
|
|
|
j'ai du faire un truc (je ne sait pas quoi ^^) parce que maintenant ca bloque plus loin (bah oui faut bien que ca beug ca serai trop facile sinon -_-"):
10partD–c(.1K)-1üX
If X<1 ou X>3 ou Y<1 ou Y>3:Goto 1
If A=1:Output(2Y,2X,"X
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Jeu 28 Jan 2010, 19:22
|
|
|
c'est quel type d'erreur ?
où précisément ?
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
olivier
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08
|
Posté le : Jeu 28 Jan 2010, 19:30
|
|
|
TYPE DONNEE
10partD–c(.1K)-1üX
If X<1 ou X>3 ou Y<1 ou Y>3:Goto 1
If A=1:Output(2Y,2X,"X
|
| |
|
| |
sypotu
Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Jeu 28 Jan 2010, 21:48
|
|
|
alors là je vois pas...
tu n'a pas mis d'espaces ?
----------------------
Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
| |
|
| |
olivier
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08
|
Posté le : Ven 29 Jan 2010, 19:18
|
|
|
non
|
| |
|
| |
