Posté le 13/10/2012 23:22
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 156 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 14/10/2012 10:57 | #
Moi j'aurais plutôt vu quelque chose du genre :
RanInt#(1,100) -> A
0 -> B
While Getkey != 79 // tant qu'on appuie pas sur la touche F1, on ne retire pas de nombre aléatoire
Getkey = 78 => A -> B
A=1 => Text 1,1,"forgive"
B=1 => Text 10,1,"Forgave"
B=1 => Text 20,1,"Forgiven"
//on fait la même chose avec A=2, A=3, etc.
A=100 => Text 1,1,"swim"
B=100 => Text 10,1,"swam"
B=100 => Text 20,1,"swum"
WhileEnd //fin de la seconde boucle
WhileEnd //fin de la boucle principale
//Fin du programme
Le programme est un peu optimisé.
J'ai pas le temps de finir, s'il y a un bug dites-le, mes parents me crient dessus
Calculatrices : Graph 35+ USB tweakée et Classpad 330
Suivez moi et mon humour dévastateur ici
Citer : Posté le 14/10/2012 11:53 | #
Je vous propose quelquechose d'un poil plus simple/léger qui ne nécessite aucune variable :
RanItn#(1,100)
Ans=1=>"Do-Did-Done-+"->Str1
Ans=2=>"Go-Went-Gone-+"->Str1
Ans=etc...
Do
ClrText
StrSrc(Str1,"-")
Locate 1,2,StrLeft(Str 1,Ans-1)[DISP]
StrRotate(Str 1,Ans)->Str1
LpWhile StrSrc(Str 1,"+")!=1
De cette façon il n'y a qu'une seule boucle et qu'un seul affichage, ce qui rend l'ensemble bien plus léger et clair !
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Citer : Posté le 14/10/2012 12:32 | #
Oui j'ai La USB graph 35+!
Désolé Tsuneo mais moi je suis plutôt parti sur le modèle de smashmaster
Citer : Posté le 14/10/2012 15:17 | #
Sinon regarde ma signature
Avec CG20 manager + tu peux le convertir en txt
Perso moi j'ai fais qqchose du genre
Int(1,123)-> A
A=1 =>"02040405gowentgonealler" -> Str 1
Puis à l'aide du code je les ai afficher
Citer : Posté le 14/10/2012 15:33 | #
Ca devient compliqué là
Citer : Posté le 14/10/2012 16:00 | #
C'est en fait une alternative à la technique de Ne0tux :
02 c'est le nombre de lettres de go
04 le nombre de lettres de went ...
Avec cela et les fonctions Str tu peut tt afficher
Citer : Posté le 14/10/2012 16:14 | #
Oui mais jsutement moi je veux afficher d'abord que le verbe, et ensuite les conjuguaison! Pas totu d'un coup
Citer : Posté le 14/10/2012 16:18 | #
Tu affiche StrMid(Str1,8+A+B+C,D)
A,B,C,D étant les 4 nombres du codes : les Str sont très,très utiles
Citer : Posté le 14/10/2012 17:04 | #
Tu sais ce qu'il te reste à faire Alex pour alléger ton conjugueur !
Enlever ces nombres au début et séparer simplement les formes verbales par un caractère au choix, en finissant par un autre caractère. De cette façon tu gagneras 3 caractères par chaîne (donc au minimum 1158 caractères dans ton cas vu le nombre de verbes). De plus, tu pourras réduire la taille de la boucle qui traite les données, puisqu'il n'y aura plus besoin de se prendre la tête pour connaitre la "taille" des mots !
Xixi : as-tu au moins essayé ce que je t'ai proposé ? C'est exactement ce que tu demandes !
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Citer : Posté le 14/10/2012 18:30 | #
Oui c'est une bonne idée à laquelle je n'ai absolument pas pensée mais pour les verbes français il faudra garder un code : pour savoir s'il ont une forme irrégulière, pour pleuvoir et falloir et si je veux rajouter le futur antérieur et les passifs...
Citer : Posté le 14/10/2012 21:30 | #
NeOtux, je n'ai pas essayer car en faite je ne comprend rien du tout!
Moi mon niveau se limite aux boucle toutes simple
Citer : Posté le 14/10/2012 21:44 | #
Il n'y a qu'une seule boucle simple justement !
Où est-ce que ça coince exactement ?
C'est le moment d'en apprendre un peu plus sur les chaînes de caractères justement ! Profite des beaux tutos qui sont dispos sur le fofo à ce sujet...
Je ne conçois pas un tel programme sans utiliser de Str...
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Citer : Posté le 14/10/2012 22:03 | #
Bah moi le programme est écrit et terminé déjà! seulement avec If then Ifend!
Mais je vais esayer d'en apprendre quand même un peu +
Citer : Posté le 15/10/2012 18:32 | #
J'avoue que j'utilise les strings dans presque tous mes programmes
Il faudra que je vous montre un truc un jour, ça pourrait être utile pour les gens peu expérimentés, et voir même les autres !
Calculatrices : Graph 35+ USB tweakée et Classpad 330
Suivez moi et mon humour dévastateur ici
Citer : Posté le 16/10/2012 19:37 | #
Bonsoir à tous, je reviens vers vous car j'ai un problème! Des fois, au lieu d'afficher le verbe qui est associé à la variable, il m'affiche la variable, et vraiment je ne comprend pas pourquoi
Je vous montre mon programme à travers un exemple:
Lbl 1
ClrText
1+Int 2Ran# ->A
If A=1
Then "Manger"
Do
LpWhile Getkey =|78
Locate 1,2, "To eat ate eaten"
IfEnd
If A=2
Then "Boire"
Do
LpWhile Getkey=|78
Locate 1,2, "To drink drank drunk"
IfEnd
Voilà, et ça pour les 149 verbes! Ensuite à la fin je l'ai amélioré en écrivant:
Do
LpWhile Getkey=|77
Goto 1
Si vous connaissez la cause de mon problème, je suis tout ouï
Citer : Posté le 16/10/2012 19:43 | #
je pense que cela vienne du fait ton programme soit terminé. Si c'est le cas il "retourne" la valeur de la dernière variable avec laquel il a travaillé.
Tu peux bloquer cela en mettant un [DISP]
"SHIFT"-"VARS"-[F5]
après ton texte
Ps: Dans ton programme tu as une boucle qui revient au début ou tu recommences ton programme a chaque fois?
ps2: Tu voudrais pas mettre ton programmes en fichier joint pour qu'on puisse voir ce qu'il se passe?
Jouez à 6 sur une seule calto : Curve Fever
Un die and retry qui vous fera bieeeen rager Test Andropov
un très bon sokoban
le seul vrai jeu de foot en basic : FIFA 12
Ca c'est ce que j'appelle un jeu de reflexion jewel master
Qui vaincra l'intelligence artificielle de cet othello
Le célèbre pacman
Et tant d'autres BTL's games
Le jeu du mois de Novembre et award du jeu le plus dur de l'année 2013
Citer : Posté le 16/10/2012 19:50 | #
Si je peux! mais il est long, très long, 149 verbes sur le modèle que je viens de vous donner :/
Citer : Posté le 16/10/2012 19:52 | #
ça ne fait rien mets toujours ton programme
Sinon ça bug encore ou pas?
Jouez à 6 sur une seule calto : Curve Fever
Un die and retry qui vous fera bieeeen rager Test Andropov
un très bon sokoban
le seul vrai jeu de foot en basic : FIFA 12
Ca c'est ce que j'appelle un jeu de reflexion jewel master
Qui vaincra l'intelligence artificielle de cet othello
Le célèbre pacman
Et tant d'autres BTL's games
Le jeu du mois de Novembre et award du jeu le plus dur de l'année 2013
Citer : Posté le 16/10/2012 19:53 | #
Je n'ai rien changé et rien fais, je vais manger et on voit après que je vous ai envoyé le programme!
Citer : Posté le 16/10/2012 20:18 | # |
Fichier joint
Voilà mon programme!
Citer : Posté le 16/10/2012 21:04 | #
je suis sur mac mais des que je reviens sur pc je test
Jouez à 6 sur une seule calto : Curve Fever
Un die and retry qui vous fera bieeeen rager Test Andropov
un très bon sokoban
le seul vrai jeu de foot en basic : FIFA 12
Ca c'est ce que j'appelle un jeu de reflexion jewel master
Qui vaincra l'intelligence artificielle de cet othello
Le célèbre pacman
Et tant d'autres BTL's games
Le jeu du mois de Novembre et award du jeu le plus dur de l'année 2013