| jeu des petits carrés |
| Auteur |
Message |
FATAL ERROR
Invité
|
Posté le : Mer 14 Avr 2010, 12:36
|
|
 |
salut tout le monde!
je poste pour la première fois un programme sur ce site, il s'agit du jeu les petits carrés.
Je ne vous cache pas que certains codes sont un peu confus, car j'ai arrangé le programme au fur et à mesure.En tout cas il n'y a pas de bugs, c'est juste la vérification des scores qui est un peu lente...
Si vous avez des idées pour accélerer le programme, n'hésitez pas à poster!
code :
| Code |
:EffEcr
:AxesNAff
:PleinEcr
:FonctOff
:EffDessin
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:Output(1,2,"PETITS CARRES
:Output(4'2,"BY FATAL ERROR
:Output(7,5,"(C) 2010
:Effliste L6
:27->dim(L6
:Pause
:For(A,2,52'10
:For(B,42,92,10
:Texte(A,B,".
:End
:End
:Verticale 38
:Ligne(0,55,37,55
:Texte(0,2,"= SCORES =
:42->A
:55->B
:7->N
:0->W
:Texte(57,0,"Q: QUIT
:Lbl M
:1->J
:Lbl S
:0->T
:0->C
:0->D
:0->E
:Texte(8,8,"J1:",L6(1)
:Texte(18,8,"J2:",L6(2)
:If J=2:Goto J2
:Texte(18,0," "
:Texte(8,0,"=>
:Goto G
:Lbl J2
:Texte(8,0," "
:Texte(18,0,"=>
:Lbl G
:If W=1:Goto W
:Pt-On(A,B,3
:0->O
:0->Q
:0->K
:Repeat K>0
:codetouche->K
:End
:If K=74:Goto Q
:If K=45 et E=1:Goto V
:If A=C et B=D:Goto P1
:Pt-Off(A,B,2
:Lbl P1
:If K=24 et A>42:-10->O
:If K=25 et B<55:10->Q
:If K=26 et A<92:10->O
:If K=34 et B>5:-10->Q
:A+O->A
:B+Q->B
:N-Q->N
:If K=105:Goto P
:Goto G
:Lbl P
:If E=0:Goto NP
:A-C->F
:B-D->G
:If G>10 ou G<-10 ouF>10 ou F<-10 ou A‡C et B‡D ou A=C et B=D:Goto G
:(B-D)/2->F
:(A-C)/2->G
:pxl-test(N+F,A-G)->S
:If S=1:Goto G
:Ligne(C,D,A,B
:Pt-Off(C,D,2
:Pt-Off(A,B,2
:Goto V
:Lbl NP
:Pt-On(A,B,2
:1->E
:A->C
:B->D
:Goto G
:Lbl V
:3->V
:For(L,7,47,10
:For(I,42,82,10
:pxl-Test(L,I+5)+pxl-Test(L+5,I)+pxl-Test(L+10,I+5)+pxl-Test(L+5,I+10)->U
:If U>3 et L6(V)‡1:Then
:1->T
:L6(J)+1->L6(J)
:Texte(L+2,I+4,J
:End
:V+1->V
:End
:End
:If L6(1)+L6(2)=25:Then
:If L6(1)>L6(2):1->J
:If L6(2)>L6(1):2->J
:1->W
:Goto S
:End
:If T=1:Goto S
:If J=2:Goto M
:2->J
:Goto S
:Lbl W
:Texte(30,0,"JOUEUR ",J
:Texte(37,0,"A GAGNE!"
:Pause
:Lbl Q
:EffListe L6
:Zstandard
:AxesAff
:Disp "
:FonctOn
:Stop
|
Voilà j'espère que ça buggera pas chez vous!
Bonne journée!
|
| |
  |
| |
FATAL ERROR
Invité
|
Posté le : Mer 14 Avr 2010, 12:38
|
|
|
désolé, mais à ce que je vois, le signe "différent de" n'est pas lu, ce sont les petites barres noires
|
| |
|
| |
FATAL ERROR
Invité
|
Posté le : Mer 14 Avr 2010, 16:02
|
|
|
arf dsl il y a une erreur provoqué par
| Code | | :If K=45 et E=1:Goto V |
j'avais mis un système que dont j'ai pensé qu'il était inutile lors du recopiage.
remplacez par:
| Code | :If K=45 et E=1:Then
:Pt-Off(C,D,2
:0->E:0->C:0->D
:End |
|
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 14 Avr 2010, 16:26
|
|
|
Et en quoi consiste ce jeu ?
|
 |
|
| |
fatal error
Autorisation : Membre
Nb de messages : 33
Inscrit le : Sam 10 Avr 2010, 17:36
|
Posté le : Mer 14 Avr 2010, 17:56
|
|
|
Le but est de tracer des traits de façon à obtenir des carrés.
Si vous en faites un (ou plusieurs), vous gagnez un point et vous rejouez
----------------------
Bill Gates voulait créer un logiciel pour l'agriculture. C'est fait! Windows Plante! |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 14 Avr 2010, 23:12
|
|
|
Ca me dit quelque chose... en fouillant dans mon (très) vieil ordinateur je devrait le retrouver parmi tous les bons vieux jeux.
Sauf que l'ordinateur m'a toujours vaincu à ce jeu ^^
Je suppose que celui-ci est 2 joueurs ?
Chapeau bas pour ton algorythme.
----------------------
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 |
| |
|
| |
fatal error
Autorisation : Membre
Nb de messages : 33
Inscrit le : Sam 10 Avr 2010, 17:36
|
Posté le : Jeu 15 Avr 2010, 10:44
|
|
|
Merci!
Oui effectivement c'est pour deux joueurs.
Quand à ce qui concerne une potentielle IA je préfère m'abstenir, elle risque d'être trop lente 
Sinon quelqu'un a testé le jeu?
Désolé pour ceux qui voudraient un 83p. mais je n'ai pas le cable...
----------------------
Bill Gates voulait créer un logiciel pour l'agriculture. C'est fait! Windows Plante! |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Jeu 15 Nov 2012, 19:54
|
|
|
Le début marche bien mais je ne peut pas déplacer le point pour faire la ligne mais est ce que ce sont les touches directionelles qui faut utiliser?
|
| |
|
| |
mingerton402
Invité
|
Posté le : Dim 18 Nov 2012, 12:06
|
|
|
J'ai recopié le programme, mais il y a un problème : impossible de diriger une ligne vers l'horizontale,donc impossible de faire des carrés ! J'ai du faire une erreur de recopie, qqn peut il m'indiquer laquelle ?
|
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Dim 18 Nov 2012, 19:13
|
|
|
vérifie en priorité ces lignes,
| Code | :If K=24 et A>42:-10->O
:If K=25 et B<55:10->Q
:If K=26 et A<92:10->O
:If K=34 et B>5:-10->Q
:A+O->A
:B+Q->B |
surtout entre O et Q
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Lun 19 Nov 2012, 12:05
|
|
|
J'ai bien regarder mais ça ne change rien, on ne peut toujours pas se déplacer horizontalement
|
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Lun 19 Nov 2012, 17:03
|
|
|
Et le passage juste en dessous ?
| Code | :A-C->F
:B-D->G
:If G>10 ou G<-10 ouF>10 ou F<-10 ou A‡C et B‡D ou A=C et B=D:Goto G
:(B-D)/2->F
:(A-C)/2->G
|
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Lun 19 Nov 2012, 18:16
|
|
|
Oui j'ai vérifier aussi mais ça ne marche toujours pas
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Mer 28 Nov 2012, 7:02
|
|
|
Je reup le sujet parce que je voudrait vraiment savoir ce qu'il bloc (car je suis pas super fort en programmation)
Merci
|
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Mer 28 Nov 2012, 23:15
|
|
|
bizarre, normalement, tout le déplacement est là.... 
au fait, bien que ça n'est aucun rapport apparent, tu as tenu compte des modification dans le 3ème post ?
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Jeu 29 Nov 2012, 17:22
|
|
|
Oui exacte j'ai changer mon post parce que je m'était mal exprimer 
Mais toi tu l'as passer sur ta calculatrice par le câble ?
|
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Jeu 29 Nov 2012, 18:06
|
|
|
moi  ,je l'ai pas 
je me contente de lire le prog sur mon ordi 
au début, c'est pas évident mais on finit par voir le prog sans trop de difficulté à la fin 
au fait, regarde le pixeltest juste en dessous de ce que je t'ai indiqué
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Ven 30 Nov 2012, 7:06
|
|
|
Il y a deux jours, j'ai vérifier le programme entièrement mais j'ai tout mis (enfin à ce que j'ai vu) 
|
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Ven 30 Nov 2012, 17:32
|
|
|
Et tu peut te déplacer verticalement ?
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Sam 01 Déc 2012, 8:49
|
|
|
Oui mais juste sur une ligne de points (la plus a gauche)
|
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Sam 01 Déc 2012, 9:17
|
|
|
Et aufaite pour
Est ce que ça ne saurait pas :
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Sam 01 Déc 2012, 19:25
|
|
|
heu, je t'avoue que je sais pas 
A priori, oui
je recopie le prog demain et je te dirais si ça marche chez moi 
----------------------
Le nouveau site de tout82 |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 01 Déc 2012, 19:38
|
|
|
Je l'ai recopié cet après midi et je n'ai eu aucun problème excepté la gestion des joueurs.
Concernanant les déplacements vérifiez surtout la ligne
If G>10 or G<ú10 or F>10 or F<ú10 or A-C and B-D or A=C and B=D:Goto G
sachant que j'ai laissé le caractère "ú" pour mettre en évidence la présence du symbole de négativité.
----------------------
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 |
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Dim 02 Déc 2012, 11:43
|
|
|
ouf, tu m'évites de le recopier
Par contre, il me semble avoir déjà montré ces lignes....
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Mer 05 Déc 2012, 9:21
|
|
|
Ba franchement je sait pas parce que j'ai vérifier plusieurs fois le programme et ça ne marche toujours pas
|
| |
|
| |
Cytropus
Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
|
Posté le : Mer 05 Déc 2012, 21:52
|
|
|
vérifie encore cette ligne
| Code | | :If K=26 et A<92:10->O |
si ça marche toujours pas, va la où sa plante (en exécutant le prgm) appuis sur [on] pour arrêter brutalement et donne nous la valeur de A
----------------------
Le nouveau site de tout82 |
| |
|
| |
darkfighter22
Autorisation : Membre
Nb de messages : 10
Inscrit le : Jeu 15 Nov 2012, 19:50
|
Posté le : Jeu 06 Déc 2012, 12:11
|
|
|
Ça ne marche toujours pas mais comment je peut voir la valeur de A (et ou dans le programme)
|
| |
|
| |
blg_flg
Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
|
Posté le : Jeu 06 Déc 2012, 19:29
|
|
|
Tu sors du programme, comme pour un calcul "normal", et tu fais [A]+[enter]. 
|
| |
|
| |
plskf
Invité
|
Posté le : Sam 02 Jan 2016, 15:37
|
|
|
Moi j'arrive à faire le premier trait mais après j'arrive plus à faire d'autre. Est-ce que qqn pourrait m'aider svp merci
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
