[jeu] morpion ti-83+

[Angorar]

ok merci,
donc avant le output je ferait ?

Code: Select all

2*Y->Y
2*X->X

et aussi pour mon bout de code sa ne marche pas
une fois le programme lancé j'appui sur des touches et je quitte le prgm puis je fait [a] et sa ne m'affiche pas correctement se que sa devrait m'afficher je me suis trompé ou ?

je rapelle juste mon bout de code :

Code: Select all

0->t
    0->s
    Y/2->T   
    X/2->S   
    if J=1
    then
    1->[a](t,s)
    else
    2->[a](t,s]
    end

[Mingerton]

Le 2e code peut être ça à vue de nez :

Code: Select all

.5Y->Y
.5X->S
J-(J=2)+(J=1->J
Ans->[A](T,S

[grosged]

Je te conseille de penser tout ton programme avec une matrice de taille 3x3

Ainsi tu ne te perdras pas dans les multiplication ou division par 2...
Tu n'auras qu'à multiplier par 2 juste au moment d'afficher, en faisant par exemple un Output(2Y,2X,"O

Je reviens à mon petit bout de programme (attends une touche, puis détermine X et Y en fonction de la touche)

J'ai trouvé (encore) mieux:

si on soustrait 61 au getKey , on aura:

11,12,13
21,22,23
31,32,33

Vraiment cool pour avoir X et Y , non ?

Ce qui nous fait:

Code: Select all

Repeat max(K={11,12,13,21,22,23,31,32,33
getKey-61→K
End
10fPart(.1K→X   
int(.1K→Y


[Angorar]

grosged,
Je n'ai pas compris le but de faire -61
je vais vous copier mon code complet sa sera plus simple :

Code: Select all

ClrHome
Output(2,2,"A
Output(3,3,"N
Output(4,4,"G
Output(5,5,"O
Output(6,6,"R
Output(7,7,"A
Output(8,8,"R
Output(3,6,"MthetaRPION"
Output(5,8,"2 JOUEURS"
Pause
ClrHome
ClrDraw
For(A,1,6,1)
Output(A,1,"."
Output(A,3,"."
Output(A,5,"."
Output(A,7,"."
End
For(B,1,7,1)
Output(1,B,"."
Output(3,B,"."
Output(5,B,"."
Output(7,B,"."
End

[[0,0,0][0,0,0][0,0,0]]->[A]
DelVar Y
DelVar X
1->J
0->K
0->T
0->S
While 1
Repeat max(K={72,73,74,82,83,84,92,93,94
getKey->K
Output(4,9,"JOUEUR"
Output(5,12,J
End
J-(J=2)+(J=1->J

{72,73,74,82,83,84,92,93,94}->L1
max({2,2,2,4,4,4,6,6,6}(K=L1->Y
max({2,4,6,2,4,6,2,4,6}(K=L1->X
If J=1
Then
Output(Y,X,"O"
Else
Output(Y,X,"X"
0->T
0->S

Y/2->T
X/2->S
If J=1
Then
1->[A](T,S)   
Else
2->[A](T,S)

End
End



End

Merci pour votre aide

[grosged]

Avec , pour exemple la touche

6

d'une valeur de 84
on fait 84-61 = 23
et là on obtient très facilement X (ici égal à 3) et Y (ici égale à 2)

Pour résumer , on peut dire que getKey-61 = X+10Y

[Angorar]

Ok mais avant ma boucle
je ne doit pas mettre:

Code: Select all

DelVar Y
DelVar X

mais

Code: Select all

0->Y
0->x

c'est sa ?

et mon getkey devindra ;

Code: Select all

getkey-61

et au moment de fair mon output je doit faire quelle opération avec mon x et y ?

2) eme question avec ma matrice (j'ai résolu le porbleme il manquait un end a un endroit ^^)
quelle commande utiliser pour "tester" si il y a déja une valeur dans ma matrice [a], au coordonée S,T (c'est X,Y/2 vu que ma matrice est graphiquement 2 X plus petit que mon "terrain" de jeu).


merci d'avance

[Wistaro]

Pour tester si il y a une valeur, il suffit de faire un test:

Code: Select all


If([A](S, T
Then
...
End


Car à la base, [A](S,T) = 0

[Angorar]

Wistaro merci pour t'as réponce si rapide mais ce que je veut dire c'est :
Comment "bloqué" l'accès a une "case" si elle a déja été prise au par avant ,
J'ai réfléchi si je prend 9 variables sa passe ?
expemple
A pour 72
z 73
e 74
r 82
t 83
y 84
u 92
i 93
o 94

et si je joue en 72 donc en haut a gauche je met 1 dans A et ma boucle principale (qui pour le moment est while 1 ) s'appelerait repeate A=1 and Z=1 ect ..

je pense pas que c'est la méthode la plus "optimisé" mais dites moi comment vous auriez fait

merci

[Bisam]

Une matrice fait parfaitement l'affaire...
Dans une case, tu mets la valeur 0 si elle est vide, ou bien 1 ou 2 suivant le joueur qui a joué dans cette case.

[grosged]

Angorar,
Avant de te lancer directement dans la saisie d'instructions et autres sur la TI,
je te conseille de, tout d'abord, prendre le temps de bien réfléchir sur le déroulement de ton programme.
Personnellement , je me mets à la place de la TI : "à cet instant précis, qu'est-ce que je ferais ou calculerais, ou déciderais..."
C'est vraiment important de mettre sur papier (ou de visualiser mentalement) les différentes étapes de ton programme.
Jette un oeil sur les notions d'algorithmique : https://fr.wikipedia.org/wiki/Algorithmique
et d'organigramme de programmation : https://fr.wikipedia.org/wiki/Organigra ... grammation
ça va grandement t'aider, j'en suis sur