).
) et desormes sur le nouveau CD, avec la nouvelle TI (84+) j'ai la 1.6, du coup si quelqu'un sait ou récupérer l'ancienne version ... (je sais pour les programme il y a aussi TI Graphlink mais je le trouve pénible, pas de possibilité de voir tout la ligne en même temps, pas de "syntax check" (certes il ne marchait pas toujours très bien) et surtout pas de possibilité de transférer directement sur la TI)
(bon faudrait déjà que j'arrive a corriger ce 
de bug, je ne perd pas courage, mais des fois si )
)
prgmEFACVARS (peut être remplacer par quelque ligne, remettre en mode plein écran, initialiser les variables qui vont etre utiliser, ... enfin : préparer la calculette a recevoir le jeu)
AxesOff
FnOff
0→;Xmin
0→;Ymin
94→;Xmax
62→;Ymax
Text(20,25,"Mon jeu de morpion a moi" // Comme c'est du texte tu peut mettre ce que tu veut (enfin presque, longueur)
Text(30,30,"Trouver sur Yaronet"
Text(40,4,"VERSION EN DEVELOPEMENT"
Pause
ClrDraw
Horizontal 0 //On trace le quadrillage X
Vertical 0
For(X,1,89,8)
Vertical X
End
For(Y,1,57,8 //On trace le quadrillage Y
Horizontal Y
End
For(Y,57,62,1) //On trace le bordures
Horizontal Y
End
For(X,89,94,1) //On trace le bordures
Vertical X
End
80→;dim(L1 //On crée une liste L1 pour stocker l'emplacement du pion
Fill(0,L1 //On y met des 0
44→;X
1→;E
0→;U
6→;Y
Text(Y,X,"V"
[Fin du traçage du damier, début de surveillance de l'appuie touche]
while E
getKey→;K
If K=24 //Touche <-
Then
Text(Y,X," "
X-8→;X
If X≤;4
4→;X
Text(Y,X,"V"
End
If K=26 //Touche ->
Then
Text(Y,X," "
X+8→;X
If X≥;84
84→;X
Text(Y,X,"V"
End
If K=(touche vers le haut : 25?)
Then
Text(Y,X," "
Y+8→;Y
If Y≥;50
50→;X
Text(Y,X,"V"
End
If K=(touche vers le bas : 34??)
Then
Text(Y,X," "
Y-8→;Y
If 4≥;Y
4→;Y
Text(Y,X,"V"
End
If K=45 //Là c'est pour quitter (0->E => Condition While E )
Then
0→;E
2→;U
End
Text(0,2," JOUEUR : ",U+1," A VOUS L'HONEUR"
If K=105 //(touche entrer)
Then
[.code pour voir si on peut effectivement mettre le pion du joueur, le mémoriser dans une matrice (ou une liste), ainsi que le code permettant de verifier si il n'y a pas un joueur qui aurait gagner (là ne pique pas trop sur moi car j'ai quelque problème, mise en place : OK, vérification ligne : OK, vérification colonne : OK, vérification diagonale : No comment).] End
), soit c'est de la calculette ....
adriweb (./9) :
ouai cool merci !!
j'pense que pour le morpion, j'vais utiliser une matrice 3*3 et pis j'vais prendre ce code pour le déplacement !!
lol )
StoreGDB 0 :Full :GridOff :AxesOff :FnOff :PlotsOff :‾4.4→Xmin :16.4→Xmax :‾1.5→Ymin :12.2→Ymax :‾1→J :Ans→K :Lbl 1 :ClrDraw :For(A,4,8,4 : Line(0,A,12,A : Line(A,0,A,12 :End : DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar I11→L :Lbl 2 :‾K→K :"O :If K=J : "X :Ans→Str1 :Text(J,56,1,Ans :Lbl 3 :getKey→Θ :If Ans=45 :Then : RecallGDB 0 : DelVar GDB0DelVar Str1Output(1,1," : Return :End :If Ans=23 xor ABCDEFGHI : Goto 6 :7→M :If Θ=72 and not(A :Then : K→A : 27 : Goto 4 :End :If Θ=73 and not(B :Then : K→B : 45 : Goto 4 :End :If Θ=74 and not(C :Then : K→C : 63 : Goto 4 :End :25→M :If Θ=82 and not(D :Then : K→D : 27 : Goto 4 :End :If Θ=83 and not(E :Then : K→E : 45 : Goto 4 :End :If Θ=84 and not(F :Then : K→F : 63 : Goto 4 :End :43→M :If Θ=92 and not(G :Then : K→G : 27 : Goto 4 :End :If Θ=93 and not(H :Then : K→H : 45 : Goto 4 :End :If Θ=94 and not(I :Then : K→I : 63 : Goto 4 :End :Goto 3 :Lbl 4 :End :Text(J,M,Ans,Str1 :If 3=abs(A+B+C :Then : Line(1,10,L,10 : 0 :End :If 3=abs(A+E+I :Then : Line(1,L,L,1 : 0 :End :If 3=abs(C+F+I :Then : Line(10,L,10,1 : 0 :End :If 3=abs(C+E+G :Then : Line(1,1,L,L : 0 :End :If 3=abs(A+D+G :Then : Line(2,L,2,1 : 0 :End :If 3=abs(G+H+I :Then : Line(1,2,L,2 : 0 :End :If 3=abs(B+E+H :Then : Line(6,L,6,1 : 0 :End :If 3=abs(D+E+F :Then : Line(1,6,L,6 : 0 :End :If Ans : Goto 2 :Text(56,32,"VICTOIRE :Pause :Goto 1 :Lbl 6 :Text(56,34,"EGALITE :Pause :Goto 1
"
je suis content !:ClrHome
:Full
:StoreGDB 1
:FnOff
:Func
:AxesOff
:GridOff
:0→Ymin
:0→Xmin
:62→Ymax
:94→Xmax
:ClrDraw
:
:Repeat A≤10 and A
: Input "Hauteur(1-10):",A
: abs(int(A→A
:End
:Repeat B≤15 and B
: Input "Largeur(1-15):",B
: abs(int(B→B
:End
:Repeat L>0 and L≤max(A,B
: Input "Longueur:",L
: abs(int(L→L
:End
:
:min(int(62/A),int(94/B→C
:
:
:BC→D
:AC→E
:iPart(47-.5D→F
:iPart(31-.5E→G
:
:F+D
:For(X,G,G+E,C
: Line(F,X,Ans,X
:End
:
:G+E
:For(X,F,F+D,C
: Line(X,G,X,Ans
:End
:
:If fPart(.5E
: G+1→G
:
:0→X
:0→Y
:
:G+YC→I
:F+XC→J
:
:Pxl-On(I+1,J+1
:Pxl-On(I+1,J+C-1
:Pxl-On(I+C-1,J+C-1
:Pxl-On(I+C-1,J+1
:{A,B→dim([A]
:Fill(2,[A]
:0→W
:0→Θ
:0→Z
:Repeat Z or W≥AB
: Repeat max(Ans={21,24,25,26,34,45,105
: getKey→K
: End
: If Ans=45
: Then
: ClrDraw
: ClrHome
: RecallGDB 1
: DelVar GDB1DelVar [A]
: Stop
: End
: If Ans≠105 and Ans≠21
: Then
: Pxl-Off(I+1,J+1
: Pxl-Off(I+1,J+C-1
: Pxl-Off(I+C-1,J+C-1
: Pxl-Off(I+C-1,J+1
:
: X+(Ans=26)(X+1<B)-(Ans=24)(X>0→X
: Y+(K=34)(Y+1<A)-(K=25)(Y>0→Y
: G+YC→I
: F+XC→J
:
: Pxl-On(I+1,J+1
: Pxl-On(I+1,J+C-1
: Pxl-On(I+C-1,J+C-1
: Pxl-On(I+C-1,J+1
: Else
: X+1→X
: Y+1→Y
: If 2=[A](Ans,X
: Then
: Θ→[A](Ans,X
:
: If Ans
: Then
: Circle(J+.5C,62-(I+.5C),‾1.5+.5(C-1
: Else
: Line(J,62-I,J+C,62-I-C
: Line(J,62-I-C,J+C,62-I
: End
:
: 1→S
: 1→V
: 1→T
: While X+Ans≤B and V
: Θ=[A](Y,X+Ans→V
: S+Ans→S
: T+1→T
: End
: S→U
:
: 1→V
: 1→T
: While X-Ans≥1 and V
: Θ=[A](Y,X-Ans→V
: S+Ans→S
: T+1→T
: End
:
: If S≥L
: Then
: 1→Z
: Line(F+C(X-1+U),62-(G+CY-.5C),F+C(X-1+U-S),62-(G+CY-.5C
: End
:
: 1→S
: 1→V
: 1→T
: While Y+Ans≤A and V
: Θ=[A](Y+Ans,X→V
: S+Ans→S
: T+1→T
: End
: S→U
:
: 1→V
: 1→T
: While Y-Ans≥1 and V
: Θ=[A](Y-Ans,X→V
: S+Ans→S
: T+1→T
: End
:
: If S≥L
: Then
: 1→Z
: Line(F+CX-.5C,62-(G+C(Y-1+U)),F+CX-.5C,62-(G+C(Y-1+U-S
: End
:
: 1→S
: 1→V
: 1→T
: While X+Ans≤B and Y+Ans≤A and V
: Θ=[A](Y+Ans,X+Ans→V
: S+Ans→S
: T+1→T
: End
: S→U
:
: 1→V
: 1→T
: While X-Ans≥1 and Y-Ans≥1 and V
: Θ=[A](Y-Ans,X-Ans→V
: S+Ans→S
: T+1→T
: End
:
: If S≥L
: Then
: 1→Z
: Line(F+C(X-1+U),62-(G+C(Y-1+U)),F+C(X-1+U-S),62-(G+C(Y-1+U-S
: End
:
:
: 1→S
: 1→V
: 1→T
: While X+Ans≤B and Y-Ans≥1 and V
: Θ=[A](Y-Ans,X+Ans→V
: S+Ans→S
: T+1→T
: End
: S→U
:
: 1→V
: 1→T
: While X-Ans≥1 and Y+Ans≤A and V
: Θ=[A](Y+Ans,X-Ans→V
: S+Ans→S
: T+1→T
: End
:
: If S≥L
: Then
: 1→Z
: Line(F+C(X-1+U),62-(G+C(Y-U)),F+C(X-1+U-S),62-(G+C(Y-U+S
: End
:
: 1-Θ→Θ
: 1+W→W
: getKey
: End
: X-1→X
: Y-1→Y
: End
:End
:RecallGDB 1
:DelVar GDB1DelVar [A]
:Repeat Ans
: getKey
:End
:
:ClrHome
:ClrDraw