Posté le 28/10/2013 15:10
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 264 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 28/10/2013 15:20 | #
Tu peux mettre l'intégralité du code pour qu'on voie comment ce morceau de programme est lié au reste stp ?
Citer : Posté le 28/10/2013 15:22 | #
L'intégralité du code ?
Il est assez grand , je fait comment pour te le copier coller ?
Sinon on m'a dit qu'on pouvait l'ouvrir avec un éditeur de texte mais j'ai jamais fait
Citer : Posté le 28/10/2013 15:23 | #
Avec FA-124 en double-cliquant sur le programme.
Citer : Posté le 28/10/2013 15:25 | #
For 1ãZ To 2500Ù
NextÙ
ClrTextÙ
Locate 05,6," Par ElToredo"Ù
For 1ãV To 2500Ù
NextÙ
ClrTextÙ
Locate 4,4,"Jeu "Ù
For 1ãW To 1000Ù
NextÙ
Locate 7,4," du"Ù
For 1ãP To 1000Ù
NextÙ
Locate 10,4," + ou - ·!·"Ù
For 1ãL To 2000Ù
NextÙ
ClrTextÙ
ViewWindow 1,127,0,1,63,0Ù
10ãCÙ
Text 1,1,"Jeux du + ou -"Ù
Text 10,10,"Jouer"Ù
Text 16,10,"Aide"Ù
Text 22,10,"Credits"Ù
Text 28,10,"Quitter"Ù
Text C,3,"ã"Ù
DoÙ
CãDÙ
Text C,3,"ã"Ù
Getkey=37 And C<28×C+6ãCÙ
Getkey=28 And C>10×C-6ãCÙ
If CÈDÙ
Then Text D,2," "Ù
Text C,3,"ã"Ù
IfEndÙ
LpWhile GetkeyÈ31Ù
(C-10)Á6+1ãCÙ
If C=1Ù
Then DoÙ
RanBin#(1,100)ãBÙ
0ãIÙ
DoÙ
If I=0Ù
Then "Trouver le chiffre entre 1 et 100 ·!·"Ù
IfEndÙ
?ãAÙ
If A>B:Then "Trop grand :D"Ù
Else If A<B:Then "Trop petit :D"Ù
Ù
Else "Bravo ·!· Nombre de coups :"Ù
IØ
ClrTextÙ
If I<10Ù
Then "Super, moins de 10 coups ·!·"Ø
ClrTextÙ
IfEndÙ
If I>10Ù
Then "Ouh, plus de 10 coups ·!·"Ø
ClrTextÙ
IfEndÙ
If I<5Ù
Then "Waw, moins de 5 coups aussi ·!·"Ø
ClrTextÙ
IfEndÙ
IfEndÙ
IfEndÙ
I+1ãIÙ
LpWhile AÈBÙ
LpWhile 1Ù
If C=2Ù
Then Text 1,40,"Dans ce jeu,"Ù
IfEnd
Y'a des caractères bugués :/
Edit by Dark Storm : merci de mettre les gros codes dans la balise correspondante.
Citer : Posté le 28/10/2013 15:44 | #
tu peux pas mettre le G1M plutot en fichier joint parce que la c'est dur de comprendre
Citer : Posté le 28/10/2013 15:47 | # | Fichier joint
J'ai juste copié collé ca fait ça :/
Voilà en g1m
Citer : Posté le 28/10/2013 15:55 | #
Faut vraiment que tu fasse gaffe avec tes conditions
essaye d'utiliser des "⇒" a la place de simple if parce que ton erreur viens d'un Ifend oublié juste avant le "If C=2" qui correspond au "If C=1"
Citer : Posté le 28/10/2013 15:57 | #
J'ai déjà 3 ifend a la suite , il en manque 1 ? Sinon j'ai du mal a comprendre pour les doubles flèches comme celle que tu as mise , j'avais aussi du mal a utiliser les getkey mais maintenant c'est rentré , je passe aux doubles flèches mtn x)
Donc je dois rajouter un ifend mais ou ?
Citer : Posté le 28/10/2013 16:01 | #
If A=1
Then 2→A
IfEnd
correspond à
A=1⇒2→A
Mais ca marche seulement si t'as juste un "truc" entrainé par ta condition
Citer : Posté le 28/10/2013 16:06 | #
Ok c'est réglé , merci !
Citer : Posté le 28/10/2013 16:58 | # | Fichier joint
Le revoici pour le "Done"
Citer : Posté le 29/10/2013 19:55 | # | Fichier joint
Voici un nouveau problème , j'ai une erreur syntaxe (en fait , ce programme est destiné a me faire mon cours en quelques sortes , je veux juste avoir les trucs essentiels , ne cherchez pas a comprendre ce qu'il y a après If C=1 puisque l'erreur vient de la )
Voila en fichier joint mon code
Citer : Posté le 30/10/2013 09:48 | #
Copie le code (en la mettant dans une balise code) et indique l'emplacement exact de l'erreur.
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother <<< >>> Teste mon générateur de mots nouveaux <<<
>>> Random Youtube Video <<<
Citer : Posté le 30/10/2013 09:49 | #
on l'a trouvé son problème, juste qu'il a eu la bête idée de programmer à l'ordi...
Citer : Posté le 30/10/2013 10:00 | #
Oui totoyo , tu te rappelle quand j'ai voulu essayer de programmer sur FA 124 a cause de mes longs textes , j'avais fait un Then a l'ordi :/
Mais c'est réglé , t'inquiète pas
Citer : Posté le 30/10/2013 10:26 | #
Ah d'accord, c'est relou ce problème
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother <<< >>> Teste mon générateur de mots nouveaux <<<
>>> Random Youtube Video <<<
Citer : Posté le 01/11/2013 20:31 | #
J'ai une question par rapport a la commande "Text" , je ne peux pas aller au delà de 57 (premier chiffre)
Exemple : Text 57,*,"...."
J'ai pourtant dans l'esprit que l'on peut dépasser 57 puisque dans un autre programme je dépasse 57 , quelqu'un aurait-il une explication ? :/
J'ai cherché sur ce lien mais je 'ai pas trouvé le nombre max
Merci pour toutes réponses (dailleurs il faudrait qu'on précises des trucs comm ça sur cette liste , elle n'en serait que lus complète et je suis prêt a aider )
ElToredo
Citer : Posté le 01/11/2013 20:38 | #
Ton texte écrit un caractère de 6*8 pixels ou un truc du genre
du coup quand tu dépasse 57, une partie de la lettre est hors écran ( écran de 63*127 ) vu que 57+8=65 (si je me trompe pas) mais dans l’idée c'est ça
(au cas ou, le curseur d'un Text est situé en au a gauche de ton texte)
Citer : Posté le 01/11/2013 20:40 | #
Je n'ai pas fait apparaitre le curseur
Merci , donc 57 ne peut pas être dépassé , j'ai du me tromper dans mon programme
Merci theprog
Citer : Posté le 01/11/2013 20:40 | # | Fichier joint
le curseur est virtuel !
c'est le point d'ancrage dans l'ecran de ton Texte