Posté le 06/10/2018 18:55
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 166 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
Citer : Posté le 06/10/2018 19:04 | #
https://www.planet-casio.com/Fr/forums/topic15234-3-La,Boite,a,Idees,!.html
Citer : Posté le 06/10/2018 19:36 | #
La vache y'a du boulot pour celui qui s'y met
Citer : Posté le 17/10/2018 12:55 | #
J'aime beaucoup Twiddle (et il n'est pas trop complexe à coder je pense), je vais peut être essayer d'en faire une petite version
Par contre je vais devoir m'intéresser au mode graphique
Ajouté le 17/10/2018 à 14:53 :
Pas la peine finalement ! Plein de Locate !
La version Lite est théoriquement fonctionnelle, problème : je n'arrive pas à résoudre le puzzle
Ajouté le 20/10/2018 à 20:03 :
Voilà, je mets le code ici si ça intéresse quelqu'un (quand je serais sur mon PC je l'uploaderai sous CeCILL)
File2
9→Dim List1
For 1→A To 9
Do
RanInt#(1,9
LpWhile List1[Ans
Next
Si
List1→List2
If G=72
Then List2[4→List1[5
List2[5→List1[8
List2[7→List1[4
List2[8→List1[7
IfEnd
If G=52
Then List2[5→List1[6
List2[6→List1[9
List2[8→List1[5
List2[9→List1[8
IfEnd
If G=74
Then List2[1→List1[2
List2[2→List1[5
List2[4→List1[1
List2[5→List1[4
IfEnd
If G=54
Then List2[2→List1[3
List2[3→List1[6
List2[6→List1[5
List2[5→List1[2
IfEnd
For 1→A To 3
For 1→B To 3
Locate 3B+5,2A,List1[B+3(A-1
Next
Next
Locate 20,1,"?"
Do
Getkey→G
LpWhile Not G
While Getkey
WhileEnd
Locate 20,1,"…"
0→R
For 1→A To 9
A≠List1[A⇒1→R
Next
LpWhile R
File1
ClrTxt
"Congratz !"
Citer : Posté le 21/10/2018 10:32 | #
Cela semble assez simple. Cool !