Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
(8) Morpion
Auteur Message
Belvar



Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Lun 09 Fév 2009, 19:10   Citer 

Programme assez volumineux qui n'a pas grand intérêt vu qu'on peut jouer au morpion avec juste du papier et un stylo mais bon, c'est un genre de défi personnel et puis ça fait classe de dire : "Hey, j'ai fait un morpion sur calculatrice, tu veux jouer ?" ^_^

Donc bah voilà on a un petit curseur qui ressemble à ça : ">" qu'n déplace et on appuie sur entrée pour jouer. Avant, j'avais fait un mode deux joueurs mais c'était en aléatoire donc ça n'avait vraiment aucun intérêt.


Voici le code :

Code
ClrHome
Output(2,5,"MORPION"
Output(3,3,"DEUX JOUEURS
Output(4,4,"PAR BELVAR":Output(6,3,"PRESS ENTER":Pause
Lbl θ:ClrDraw
Menu("MORPION","COMMENCER",15,"QUITTER",99)
Lbl 15
FnOff :0→Xmin:3→Xmax:–3→Ymin:0→Ymax
0→T:1→X:1→Y:7→V:2→U:1→J:0→C
{3,3}→dim([C]:{3,3}→dim([J]
Fill(0,[C]
Fill(0,[J]
Horizontal –1
Horizontal –2
Horizontal –3
Vertical 1
Vertical 2
Vertical 3
1→X:1→Y
Lbl 66
Fill(0,[C]
1→[C](X,Y)
Text(V,U,">"
Repeat T=21
getKey→T
If T=24:Goto G
If T=25:Goto H
If T=26:Goto D
If T=34:Goto B
If T=105:Goto E
End:Stop
Lbl E
If [J](X,Y)=0:Then:C+1→C
If J=1:Then
Line(X-0.75,–Y+0.25,X-0.75,–Y+0.75
Line(X-0.75,–Y+0.75,X-0.25,–Y+0.75
Line(X-0.25,–Y+0.75,X-0.25,–Y+0.25
Line(X-0.25,–Y+0.25,X-0.75,–Y+0.25
1→[J](X,Y):2→J
Else
Line(X-0.75,–Y+0.75,X-0.25,–Y+0.25)
Line(X-0.75,–Y+0.25,X-0.25,–Y+0.75
2→[J](X,Y):1→J
End:End
If C≥5:Goto 22
Goto 66
Lbl G
If X=1:Then
3→X:Goto 33
Else:X-1→X
Goto 33:End
Lbl H
If Y=1:Then
3→Y:Goto 33
Else:Y-1→Y
Goto 33:End
Lbl D
If X=3:Then
1→X:Goto 33
Else:X+1→X
Goto 33:End
Lbl B
If Y=3:Then
1→Y:Goto 33
Else:Y+1→Y
Goto 33:End
Lbl 33
Text(V,U,"   
If X=1:2→U
If X=2:34→U
If X=3:65→U
If Y=1:7→V
If Y=2:28→V
If Y=3:49→V
Goto 66:Lbl 22
If [J](1,1)=[J](1,2) and [J](1,2)=[J](1,3) and [J](1,1)≠0:Goto W
If [J](1,1)=[J](2,1) and [J](2,1)=[J](3,1) and [J](1,1)≠0:Goto W
If [J](2,1)=[J](2,2) and [J](2,2)=[J](2,3) and [J](2,1)≠0:Goto W
If [J](3,1)=[J](3,2) and [J](3,2)=[J](3,3) and [J](3,1)≠0:Goto W
If [J](1,2)=[J](2,2) and [J](2,2)=[J](3,2) and [J](2,2)≠0:Goto W
If [J](1,3)=[J](2,3) and [J](2,3)=[J](3,3) and [J](1,3)≠0:Goto W
If [J](1,1)=[J](2,2) and [J](2,2)=[J](3,3) and [J](1,1)≠0:Goto W
If [J](3,1)=[J](2,2) and [J](2,2)=[J](1,3) and [J](3,1)≠0:Goto W
If C=9:Goto 0
Goto 66:Lbl W
Text(25,35,"GAGNE":Pause
Goto θ:Lbl 0
Text(25,35,"EGALITE"
Pause :Goto θ
Lbl 99:ClrHome
Output(1,1,"



Et le fichier .83p :

http://www.megaupload.com/?d=EE1RUTFT

 Adresse email Haut de page Bas de page 
 
mael-ti



Autorisation : Membre
Nb de messages : 25
Inscrit le : Lun 09 Mar 2009, 13:28
Posté le : Jeu 12 Mar 2009, 9:42   Citer 

Ce programme est il vraiment de toi?

----------------------
Vive les ti!
 Adresse email Haut de page Bas de page 
 
Belvar



Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Jeu 12 Mar 2009, 13:22   Citer 

Euh... oui, pourquoi cette question ?

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 14 Mar 2009, 14:38   Citer 

Tu ne peut mettre que des programmes venant de toi sur ce forum pour des raisons de droits d'auteur.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
mael-ti



Autorisation : Membre
Nb de messages : 25
Inscrit le : Lun 09 Mar 2009, 13:28
Posté le : Mar 17 Mar 2009, 11:20   Citer 

par ce que un des programme que j'ai telecharger, était marquée "by Gwen" je ne pense pas que c'est le tiens car dans le même prmg c'était marqué by belvar! Mais bon sa te regarde après tout!

----------------------
Vive les ti!
 Adresse email Haut de page Bas de page 
 
Belvar



Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Mer 18 Mar 2009, 21:46   Citer 

Euh, c'est parce que je m'appelle Gwenn (avec 2 n) et donc, pour le lycée, j'avais mis mon prénom.En revanche, pour le net, j'ai mis mon pseudo, Belvar, mais apparement, j'ai oublié de le mettre pour un programme :/

 Adresse email Haut de page Bas de page 
 
mael-ti



Autorisation : Membre
Nb de messages : 25
Inscrit le : Lun 09 Mar 2009, 13:28
Posté le : Jeu 19 Mar 2009, 9:47   Citer 

Oki pas de problème alors! désolé!

----------------------
Vive les ti!
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa