Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56
Posté le : Mer 03 Fév 2010, 16:15
Salut
Voila un petit programme tout frais très simple et léger(527 octets)
Il m'est venu a l'esprit en cour et je l'ai fait direct
Donc je n'ai pas encore réfléchit au moyens de le raccourcir et de l'améliorer
C'est un morpion en 6*4 cases ,le joueur 1 a les rond et le deuxième les croix
C'est chacun sont tour et quand la grille est pleine le jeux s'arrete et recommence si on apuie sur entrer on deplace le curseur avec les fleces et on met le rond(ou croix )avec entrer
Je pense l'améliorer en mettant la possibiliter de jouer contre la calto elle meme et en faisant en sorte que la calto sache quand il y en a 4 aligné (verticale ,horizontale ,diagonale ) ce qui n'est pas le cas pour l'instant
Voila :
PrgmMORPION
Code
Lbl 1
Clrdraw
Clrhome
5->A
1->B
0->D
Line(0,62,94,62)
Line(0,0,94,0)
Line(0,48,94,48)
Line(0,32,94,32)
Line(0,16,94,16)
Line(0,0,0,64)
Line(16,0,16,64)
Line(32,0,32,64)
Line(48,0,48,64)
Line(64,0,64,64)
Line(80,0,80,64)
Line(94,0,94,64)
Text(A,B,">"
Lbl 3
1->C
Lbl 2
Repeat K"pas egal"0
Getkey->K
End
If D>24
Then
Pause :Goto 1
If K=34
Then
Text(A,B,"7 espaces"
A+16->A
If A>62
A-16->A
Text(A,B,">"
Goto 2
Else
If K=26
Then
Text(A,B,"7 espaces"
B+16->B
If B>94
B-16->B
Text(A,B,">"
Goto 2
Else
If K=25
Then
Text(A,B,"7 espaces"
A-16->A
If A<0
A+16->A
Text(A,B,">"
Goto 2
Else
If K=24
Then
Text(A,B,"7 espaces"
B-16->B
If B<0
B+16->B
Text(A,B,">"
Goto 2
Else
If K=105 and C=1
Then
C+1->C
D+1->D
Text(A,B+7,"()" <------------------------ () c\\\'est ( ) sans espaces entre
Goto 1
Else
If K=105 and C=2
Then
C+1->C
D+1->D
Text(A,B+7,"X"
Goto 3
Else
Goto 2
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 04 Fév 2010, 23:20
J'en ai déjà fait un à curseur, mais en 3*3 et avec des tests de victoire et score (superflu mais sympa)
Je suppose que les else innutiles pour le sens ralentissent tout. Et puis ça peut être encore plus court ou propre.
Code
Lbl 1
Clrdraw
Clrhome
5->A
1->B
0->D
Line(0,62,94,62)
Line(0,0,94,0)
Line(0,48,94,48)
Line(0,32,94,32)
Line(0,16,94,16)
Line(0,0,0,64)
Line(16,0,16,64)
Line(32,0,32,64)
Line(48,0,48,64)
Line(64,0,64,64)
Line(80,0,80,64)
Line(94,0,94,64)
Text(A,B,">"
1->C
Lbl 2
Repeat K"pas egal"0
Getkey->K
End
If D>24
Then
Pause :Goto 1
End
If K=34
Then
Text(A,B,"7 espaces"
If A<53
A+16->A
Text(A,B,">"
Goto 2
End
If K=26
Then
Text(A,B,"7 espaces"
If B<81
B+16->B
Text(A,B,">"
Goto 2
End
If K=25
Then
Text(A,B,"7 espaces"
If A>5
A-16->A
Text(A,B,">"
Goto 2
End
If K=24
Then
Text(A,B,"7 espaces"
If B>1
B-16->B
Text(A,B,">"
Goto 2
End
If K=105
Then
C+1->C
D+1->D
If C=1
Then
Text(A,B+7,"()"
Else
Text(A,B+7,"X"
End
3-C->C
End
Goto 2
---------------------- 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)
Comment tu fais pour mettre les ronds et croix ?
Je n'y arrive pas.
Je déplace mon curseur avec les fléches et quand j’appuie sur ENTRER ça ne fais rien
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 13 Sep 2013, 20:32
Pourtant c'est bien la touche entrer.
Je regarde avec un oeil neuf ce que j'ai écrit en modifiant le code original.
Deux verdicts :
-le programme original n'est pas judicieusement codé, car les Goto sont dans des alternatives. Mais celui qui l'a posté doit avoir réussi à le faire fonctionner.
-mon programme est probablement faux car j'ai fermé des boucles
Recopie le code original, tu auras le coeur net. Toutefois il n'est pas élégant et il y a mieux.
---------------------- 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)
Autorisation : Membre
Nb de messages : 9
Inscrit le : Ven 06 Sep 2013, 21:12
Posté le : Sam 14 Sep 2013, 21:51
J'ai recopié ton code, "Links", et ça marche, mais il y a un bémol : en faisant entrer, je n'entre que des "X".
Et aussi : Est-ce normal qu'il soit impossible de remplir toutes les cases du "tableau" ? Ne serait-il pas mieux de créer un "menu(" avec comme choix le nombre de cases et les instructions ?
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 14 Sep 2013, 23:41
Ce programme a été initialement créé par quelqu'un d'autre, il ne s'en occupe certainement plus, beaucoup mieux existe, les morpions sont nombreux, j'ai déjà créé le mien. Je suppose que je n'ai jamais testé celui-ci.
>>> Je n'ai donc aucune passion à modifier plus ce programme.
Cependant parler de taille variable apporte un nouveau concept.
J'envisage donc dans un autre morpion de modifier les tests de victoire et fin en changeant les boucles qui scrutent.
Et puis j'ai toujours hésité entre utiliser une matrice ou utiliser le graphique.
---------------------- 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)
Autorisation : Membre
Nb de messages : 9
Inscrit le : Ven 06 Sep 2013, 21:12
Posté le : Dim 15 Sep 2013, 7:32
Citer : linkakro
Ce programme a été initialement créé par quelqu'un d'autre, il ne s'en occupe certainement plus, beaucoup mieux existe, les morpions sont nombreux, j'ai déjà créé le mien. Je suppose que je n'ai jamais testé celui-ci.
>>> Je n'ai donc aucune passion à modifier plus ce programme.
Cependant parler de taille variable apporte un nouveau concept.
J'envisage donc dans un autre morpion de modifier les tests de victoire et fin en changeant les boucles qui scrutent.
Et puis j'ai toujours hésité entre utiliser une matrice ou utiliser le graphique.
Oui, de nombreux morpions existent, mais ils sont trop longs et fastidieux pour l'être paresseux que je suis. Je te demande pas de revoir l'integralité du programme, juste de fixer ce bug à la fin, le fait qu'on ne puisse inserer que des "X" (enfin sur ma calculatrice).
L'idée de taille variable m'est venue en codant un programme de démineur où on pouvait choisir la taille et le nombre de mines.
Pour ma part, j'ai toujours préféré les matrices au graph.
---------------------- 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)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 15 Sep 2013, 16:01
Je t'ai indiqué des morpions courts et fonctionnels.
Les idées sont une possible amélioration de mon morpion que je publierai plus tard si je me lance.
Utiliser 0identity(3->[A] ou encore des listes pour utiliser les touches chiffres sans tests tout en conservant mes tests de victoire et nul.
J'arrête de polluer le sujet ici présent.
---------------------- 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)
Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Lun 16 Sep 2013, 13:31
ca me parait impossible de faire l'integralite des positions possibles de la croix, car si vous connaissez bien le jeu , il y a 9 possibilites differentes alors que le menu supporte seulement 7 choix differents!!!
NOTE: sur ti-85 et 86, c'est possible, car on peut mettre jusqu'a 18 possibilites differentes, rendues accessibles par la touche "more...". Sur ti-82stats, ca n'existe pas, ce qui est dommage
---------------------- je prefere la ti-82stats a la fumette ^^
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 16 Sep 2013, 21:46
Qu'est-ce qui te dit qu'on a besoin d'un menu Basic ?
Les menus conçus soi-même existent. Et on peut utiliser un curseur. Et il y a 49 touches utilisables sur 82stat.
(Et le manuel de la 85 explique que l'execution de menu par un programme n'a que 5 possibilités, autrement dit la touche more n'est pas utilisée par les menus créés par la commande Basic. J'ai testé dans vti.)
---------------------- 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)
Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Mer 18 Sep 2013, 17:01
@linkakro: je ne suis pas d'accord, car avec andie graph, cela marche aussi avec les menus commande basic, je l'ai testé avec une version allégée de skyrim deluxe, alors ça marchait très bien, puisque comme j'ai 6 attaques, il a fallu que j'en rende une disponible avec more... Donc ça marche. Par contre oui, c'est pas 6 choix par page, mais 5, donc 15 fonctions.
Mais on est sur un forum sur ti-82stats, donc on omettra cette parenthèse.
Sur, moi, je suis un spécialiste des menus faits soi-même. Je peux vous en proposer un, si vous voulez. Évidement qu'on a pas besoin de faire des menus indigestes , la meilleure solution est de faire un code touche avec le numpad, c'est beaucoupq plus facile, pratique, et compréhensible pour quelqu'un qui n'est pas forcément un geek de la calculatrice comme nous !
---------------------- je prefere la ti-82stats a la fumette ^^
kaboum Invité
Posté le : Mar 24 Sep 2013, 21:08
j'ai un probleme a la ligne :Ligne(0,62,94,62)
ca me marque Err: DIM INVALIDE
vous pouvez m'aidez svp?
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 25 Sep 2013, 0:13
Je ne comprend vraiment pas comment tu peux avoir une erreur diminvalide sur une fonction de dessin Ligne. La série de touche doit être
[2nde][prgm][2][0][,][6][2][,][9][4][,][6][2]
---------------------- 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)
Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Mer 25 Sep 2013, 9:38
quelque chose a ete oublié dans le code (original et celui modifie par linkakro).
Il s'agit de cette partie de code qu'il faut rajouter pour modifier les dimensions de l'ecran graphique:
Code
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
Il faut IMPERATIVEMENT mettre ce code dans le programme, car ca va faire un effet bizarre, en zstandard, tu vas pas voir la moitie de ce qui devrait etre affiche.
Mais ceci n'est pas le probleme, car cela ne fait pas d'erreur dimension invalide!!!!!!
Mais comme il y a des bugs sur le ti basic MÊME quand on tape correctement la fonction, ya pas d'autrez solution que d'effacer la ligne avec annul (obligatoire!!!!!) et de retaper dans l'integralite la ligne.
J'ai deja eu des problemes comme ca, j'ai retape la fonction exactement comme elle etait ecrite, et ca a marche! Ca peut etre la solution!
---------------------- je prefere la ti-82stats a la fumette ^^
Autorisation : Membre
Nb de messages : 848
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Mer 25 Sep 2013, 13:58
Vérifie que les graph sont sur off ([2nde]+[f(]), les erreurs dim invalides viennent souvent de là quand on travaille sur l'écran graphique.
Citer
Mais comme il y a des bugs sur le ti basic MÊME quand on tape correctement la fonction, ya pas d'autrez solution que d'effacer la ligne avec annul (obligatoire!!!!!) et de retaper dans l'integralite la ligne.
J'ai deja eu des problemes comme ca, j'ai retape la fonction exactement comme elle etait ecrite, et ca a marche! Ca peut etre la solution!
Hum ça me parait surprenant tu as du modifier quelque chose d'autre entre tes 2 essais...
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 25 Sep 2013, 18:58
Je pense que rpgcreator a modifié quelque chose s'en s'en apercevoir. Y compris des espaces invisibles. Ce qui a causé son impression de bug de TI-Basic.
La remarque sur la fenêtre sont pertinentes. Moi j'ai touché aux alternatives, même pas testé.
Citer : "m@thieu41"
Vérifie que les graph sont sur off ([2nde]+[Y=]), les erreurs dim invalides viennent souvent de là quand on travaille sur l'écran graphique.
Excellente idée. J'oublie ça tout le temps.
Avec une 82stat/82statfrfr, on peut simplement désactiver les graphs_stats/stat_plot avec les icônes en haut du menu Y.
---------------------- 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)
J'ai mis GraphOff et ca marche parfaitement bien
Merci!
kaboum Invité
Posté le : Mer 25 Sep 2013, 20:54
y'a jute presque rien qui apparait...
y'a une ligne en haut de l'écran et a droite en haut y'a (superieur a)
sinon j'ai juste le point que je peut diriger mais ca ressemble pas a un morpion...
---------------------- 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)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 25 Sep 2013, 23:06
Je viens de tester sur 82,82stat et 84plus, j'ai actuellement le même problème... Je ne comprend pas car j'ai testé avant de poster. Et le manuel indique uniquement l'affectation des échelles et des Pas par ZInteger=ZEntier. Et le chapitre des précisions calculatoires informe que l'affectation des Pas ne modifie que les Xmax et Ymax. Tout est incohérent.
---------------------- 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)
Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Ven 08 Nov 2013, 12:41
c'est pas con, vu que ca economise pas mal en arguments
y a des trucs a optimiser, c'est sur!!
---------------------- je prefere la ti-82stats a la fumette ^^
Bounter Invité
Posté le : Dim 24 Nov 2013, 20:15
Salut a tous j'ai fait tout ce que vous avez marqué sur le code source mais une erreur me parvient lors du Repeat K"pas egal"0 et je me demande alors ce qu'il faut mettre pour que cela marche merci de votre comprehension. =)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 24 Nov 2013, 22:28
Dans le cas présent "Repeat K" suffit bien.
---------------------- 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)
, la meilleure solution est de faire un code touche avec le numpad, c'est beaucoupq plus facile, pratique, et compréhensible pour quelqu'un qui n'est pas forcément un geek de la calculatrice comme nous 