.......... ou est l'erreur ?

→ **MyCalcs** profile · by **nikitouzz** » 16 Sep 2012, 17:37

donc voila j'ai ce jeu de la vie sur ce code la :

Code: Select all: :.JEU :ClrDrawr :for(450) :Pxl-On(rand^20+1,rand^20+1) :End : :while 1 : :For(Y,1,21) :For(X,1,21) :If pxl-test(X+1,Y)+pxl-test(X,Y+1)+pxl-test(X-1,Y)+pxl-test(X,Y-1)->E=3 or 2 :Pxl-On(X,Y)r :End :If E<2 or (E=4) :Pxl-Off(X,Y)r :End :End :End :RecallPic DispGraph :EndIf getkey(15

le screen est le suivant :

et matref me dit que mon code marche pas..... as t'il raison ?
c'est programmer en axe je rapelle

je l'avoue ce n'est pas logique mais sa marche sur 5 calto differente et un emulateur...

→ **MyCalcs** profile · by **nikitouzz** » 16 Sep 2012, 18:51

alors desolee du double post deja ^^ mais sinon personne n'aurait vu ^^

j'ai repere grace a hayleia ce qui allait pas, enfaite mon code marche evidemment car la premiere conditions est executer quoi qu'il arrive, donc le pixels est allumer, mais quand la deuxieme conditions est executer le pixels s'eteint et comme il y a que deux possibilité sa marche a chaque fois

conclusion j'avais raison parceque le code marchait et matref avait raison parceque le code n'etait pas bon ^^

sa induit une optimisation qui enlèverais le premier If et on ne mettrais que un pxl-test()

je ne sais pas si je me suis bien exprimée ^^

→ **MyCalcs** profile · by **Bisam** » 16 Sep 2012, 19:07

Je confirme que c'est assez incompréhensible... que ce soit le code ou l'explication.
Mais si maintenant, tu sais ce qui ne va pas, tant mieux !

→ **MyCalcs** profile · by **nikitouzz** » 16 Sep 2012, 19:10

( matref comprendras

)

tout ce qui est important c'est que j'avais raison autant que matref avait raison

oui du coup je sais ce qui "ne va pas" puisque dans mon code en particulier cela va

→ **MyCalcs** profile · by **Handers** » 16 Sep 2012, 19:10

Petite question, tu es une fille en faite ?

je ne sais pas si je me suis bien exprimée ^^

→ **MyCalcs** profile · by **blg_flg** » 16 Sep 2012, 19:15

Comme tu as aussi dit ça, je commence à me poser des questions...

sacha wrote:alors desolee du double post deja

Voilà. C'est pour ceux qui trouvent que les fautes d'orthographe n'ont aucune importance.

→ **MyCalcs** profile · by **nikitouzz** » 16 Sep 2012, 19:19

...bon tant pis
1) j'ai un clavier americain donc pas de possibilitee d'accents ( sauf par la correction automatique mais si je le fais pour chaque mot...
2) j'ai des gros problemes d'orthographe mais je tente de faire des effort...

→ **MyCalcs** profile · by **Hayleia** » 16 Sep 2012, 19:54

Et donc t'as essayé avec le "and 2" ?

/me veut savoir si l'optimisation marcherait

→ **MyCalcs** profile · by **nikitouzz** » 17 Sep 2012, 18:39

oui j'ai essayée et sa n'a pas l'air de fonctionner ^^

→ **MyCalcs** profile · by **Hayleia** » 18 Sep 2012, 17:34

Pour moi ça marche ici

.JEU
ClrDraw^^r
For(450)
Pxl-On(rand^20+1,rand^20+1)
End

While 1

For(Y,1,21)
For(X,1,21)
If pxl-Test(X+1,Y)+pxl-Test(X,Y+1)+pxl-Test(X-1,Y)+pxl-Test(X,Y-1)->E and 2
Pxl-On(X,Y)^^r
End
If E<2 or (E=4)
Pxl-Off(X,Y)^^r
End
End
End
RecallPic DispGraph
EndIf getKey(15)