Posté le 10/09/2021 18:32
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 119 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 20/09/2021 08:03 | #
Quand tu écrit une condition, tu as deux manières de le faire :
-passer par « condition ⇒ action »
-passer par « If Condition
Then Action
IfEnd »
En fait , la première proposition est un raccourci de la seconde.
Tu ne peux l’utiliser que si tu as une seule action.
Or ici tu as deux actions pour chaque condition : afficher « (1 player, )» et « (2 player)» dans le cas de l’anglais, et quasi idem en français .
Tu as donc utilisé la forme « condition⇒action » avec deux fois de suite la même condition.
Tu peux donc simplifier tout cela avec des If : ( en reprenant le code modifié de Lephe’)
If A =2
Then "(Then, please select the number of players) "
«(1 player ), »
« (2 player) »?→B
IfEnd
If A=1
Then «(Selectionnez nombre de joueurs)»
« (1 = 1 joueur) »
« (2 = 2 joueurs) »?→B
IfEnd
Au passage, j’ai rajouté des guillemets.
Citer : Posté le 20/09/2021 15:15 | #
Merci pour le modèle. au passage, j'ai inversé l'ordre dans lequel tu m'as indiqué ce qu'il fallait faire (français d'abord, anglais ensuite) mais bon, tu en conviendra, @potter360, ça reste somme toute assez anecdotique.
Ajouté le 20/09/2021 à 15:44 :
j'ai une erreur syntaxe au If A=2 qui suit le IfEnd du choix du niveau de difficulté en français. qu'est-ce qui peut causer cette erreur syntaxe ?!? Même chose en essayant d'y jouer en anglais.
Ajouté le 20/09/2021 à 17:54 :
pour vous aider, voici le code de ce que j'ai fait jusqu'à présent :
#Password: <no password>
"Bienvenue/welcome"◢
"veuillez choisir votre langage◢
(Please select your language) (1 = Français/French, 2 = Anglais/English)"? -> A
If A = 1 :Then
"Ensuite, veuillez choisir le nombre de joueurs"
"(1=1 Joueur,)"
"(2=2 Joueurs)"? -> B
IfEnd
If A = 2 :Then
"(Then, please select the numbers)"
"(1 Player,)"
"(2 Players)"? -> B
IfEnd
If A = 1 :Then
"Enfin, veuillez choisir le niveau de difficulté"
"(1=Facile,)"
"(2=Moyen,)"
"(3=Dur)"? -> C
IfEnd
If A = 2
"Finally, please select the difficulty level"
"(Easy,)"
"(Medium,)"
"(Hard)"? -> C
IfEnd
If B = 1 And C = 1 :Then
RanInt#(0, 50) + 1 -> A
0 -> C
A = 1 => "Vous devez trouver unnombre mystère compris entre 1 et 50" A = 2 => "(You must find amystery number that is between 1 and 50)"
Do
A = 1 => "Votre proposition" A = 2 => "(Your proposition)"? -> B
If B ≠ A :Then
If B < A :Then
A = 1 => "Plus grand "A = 2 => "(More)"◢
Else
A = 1 => "Plus petit" A = 2 => "(Less)"◢
IfEnd
IfEnd
" "
C + 1 -> C
LpWhile A ≠ B
ClrText
A = 1 => "Bravo vous avez trouvéle nombre mystère en coups" A = 2 => "(Well done you foundthe mystery number in tries)"Locate 3, 3, C
Si vous pouviez me dire ou est/sont mon/mes erreur(s) et ce que j'aurais du faire, cela m'aiderai beaucoup.
Bien à vous,
D.C.
Citer : Posté le 20/09/2021 17:57 | #
Tu as oublié le Then après If A=2 à l'endroit indiqué.
Citer : Posté le 20/09/2021 18:02 | #
Compris, erreur (apparemment) rectifié, je teste et vous dis quoi ensuite, ça marche ?
Ajouté le 20/09/2021 à 18:24 :
Que je choisisse de jouer en français ou en anglais, la 25 + E II affiche un petit carré noir en haut à droite de l'écran, comme s'il chargeait des données. est-ce un erreur ? Et si oui, d'où cela peut-il venir ? Pour vous aider voici le code de ce que j'ai fait jusqu'à maintenant :
#Password: <no password>
"Bienvenuewelcome"◢
"veuillez choisir votre langage◢
(Please select your language) (1 = FrançaisFrench, 2 = AnglaisEnglish)"? -> A
If A = 1 :Then
"Ensuite, veuillez choisir le nombre de joueurs"
"(1=1 Joueur,)"
"(2=2 Joueurs)"? -> B
IfEnd
If A = 2 :Then
"(Then, please select the numbers)"
"(1 Player,)"
"(2 Players)"? -> B
IfEnd
If A = 1 :Then
"Enfin, veuillez choisir le niveau de difficulté"
"(1=Facile,)"
"(2=Moyen,)"
"(3=Dur)"? -> C
IfEnd
If A = 2 :Then
"Finally, please select the difficulty level"
"(Easy,)"
"(Medium,)"
"(Hard)"? -> C
IfEnd
If B = 1 And C = 1 :Then
RanInt#(0, 50) + 1 -> A
0 -> C
A = 1 => "Vous devez trouver unnombre mystère compris entre 1 et 50"A = 2 => "(You must find amystery number that is between 1 and 50)"
Do
A = 1 => "Votre proposition"A = 2 => "(Your proposition)"? -> B
If B != A :Then
If B < A :Then
A = 1 => "Plus grand"A = 2 => "(More)"◢
Else
A = 1 => "Plus petit"A = 2 => "(Less)"◢
IfEnd
IfEnd
" "
C + 1 -> C
LpWhile A != B
ClrText
A = 1 => "Bravo vous avez trouvéle nombre mystère en coups"A = 2 => "(Well done you foundthe mystery number in tries)"Locate 3, 3, C
en espérant que cela puisse vous aider, merci d'avance de me répondre.
Citer : Posté le 20/09/2021 18:59 | #
Le petit carré noir veut dire que ta calto tourne.
Ça vient d'une boucle qui ne termine pas. Vérifie bien le code à l'intérieur ainsi que la condition de sortie.
Citer : Posté le 21/09/2021 15:30 | #
le If B=1 And C=1 est-il en trop ?
Ajouté le 21/09/2021 à 15:53 :
voici le code de ce que j'ai fait jusqu'à présent :
#Password: <no password>
"Bienvenuewelcome"◢
"veuillez choisir votre langage◢
(Please select your language) (1 = FrançaisFrench, 2 = AnglaisEnglish)"? -> A
If A = 1 :Then
"Ensuite, veuillez choisir le nombre de joueurs"
"(1=1 Joueur,)"
"(2=2 Joueurs)"? -> B
IfEnd
If A = 2 :Then
"(Then, please select the numbers)"
"(1 Player,)"
"(2 Players)"? -> B
IfEnd
If A = 1 :Then
"Enfin, veuillez choisir le niveau de difficulté"
"(1=Facile,)"
"(2=Moyen,)"
"(3=Dur)"? -> C
IfEnd
If A = 2 :Then
"Finally, please select the difficulty level"
"(Easy,)"
"(Medium,)"
"(Hard)"? -> C
IfEnd
If B = 1 And C = 1 :Then
RanInt#(0, 50) + 1 -> A
0 -> C
A = 1 => "Vous devez trouver unnombre mystère compris entre 1 et 50"
A = 2 => "(You must find amystery number that is between 1 and 50)"
Do
A = 1 => "Votre proposition"
A = 2 => "(Your proposition)"
? -> B
If B != A :Then
If B < A :Then
If A = 1 :Then
"Plus grand"◢
IfEnd
If A = 2 :Then
"(More)"◢
IfEnd
Else
If A = 1 :Then
"Plus petit"
IfEnd
If A = 2 :Then
"(Less)"◢
IfEnd
IfEnd
" "
C + 1 -> C
LpWhile A != B
ClrText
A = 1 => "Bravo vous avez trouvéle nombre mystère en coups"
IfEnd
A = 2 => "(Well done you foundthe mystery number in tries)"
IfEnd
Locate 3, 3, C
A noter, si ça peut vous aider, que l'erreur syntaxe survient avant le LpWhile précédant le A≠B, lui-même précédant le ClrText, lui-même précédant le A=1⇒"Bravo vous avez trouvé le nombre mystère en coups".
En espérant que cela puisse vous aider, je vous remercie par avance de bien vouloir m'aider.
Bien à vous,
D.C.
Citer : Posté le 21/09/2021 15:59 | #
Regarde bien tes IfEnd, spécifiquement celui de "If B≠A" : il n'est pas à sa place.
Citer : Posté le 21/09/2021 16:36 | #
lequel ?!? celui d'avant le If B≠A ? ou celui d'après ?
Ajouté le 21/09/2021 à 17:16 :
#Password: <no password>
"Bienvenuewelcome"◢
"veuillez choisir votre langage◢
(Please select your language) (1 = FrançaisFrench, 2 = AnglaisEnglish)"? -> A
If A = 1 :Then
"Ensuite, veuillez choisir le nombre de joueurs"
"(1=1 Joueur,)"
"(2=2 Joueurs)"? -> B
IfEnd
If A = 2 :Then
"(Then, please select the numbers)"
"(1 Player,)"
"(2 Players)"? -> B
IfEnd
If A = 1 :Then
"Enfin, veuillez choisir le niveau de difficulté"
"(1=Facile,)"
"(2=Moyen,)"
"(3=Dur)"? -> C
IfEnd
If A = 2 :Then
"Finally, please select the difficulty level"
"(Easy,)"
"(Medium,)"
"(Hard)"? -> C
IfEnd
If B = 1 And C = 1 :Then
RanInt#(0, 50) + 1 -> A
0 -> C
A = 1 => "Vous devez trouver unnombre mystère compris entre 1 et 50"
A = 2 => "(You must find amystery number that is between 1 and 50)"
Do
A = 1 => "Votre proposition"
A = 2 => "(Your proposition)"
? -> B
If B != A :Then
If B < A :Then
If A = 1 :Then
"Plus grand"◢
IfEnd
If A = 2 :Then
"(More)"◢
IfEnd
Else
If A = 1 :Then
"Plus petit"
IfEnd
If A = 2 :Then
"(Less)"◢
IfEnd
IfEnd
" "
C + 1 -> C
LpWhile A != B
ClrText
A = 1 => "Bravo vous avez trouvéle nombre mystère en coups"
IfEnd
A = 2 => "(Well done you foundthe mystery number in tries)"
IfEnd
Locate 3, 3, C
Je vous ai fourni ci-dessus le code de ce que j'ai fait jusqu'à présent, si ceci peut vous aider à me dire si j'ai bon ou pas.
Bien à vous,
D.C.
Ajouté le 21/09/2021 à 17:51 :
O.K., ça n'a rien à voir avec le jeu du + ou - qui est en cours de programmation, mais si certain(es) d'entre vous pouviez tester les jeux originellement compatibles avec les 35 à 100 et mettre ceux qui sont compatibles avec la graph 25 + E II dans une catégorie à part, ça serait sympa pour ceux et celles d'entre vous et nous possédant une 25 + E II car ça éviterait pas mal d'heures de recherche et de déconvenues.
Bien à vous,
D.C.
Ajouté le 21/09/2021 à 18:11 :
je dois rendre mon matériel informatique, prendre mes cachets et mon repas du soir, donc j'attend votre réponse au plus tôt, o.k. ?
Ajouté le 22/09/2021 à 15:07 :
euh...
Citer : Posté le 22/09/2021 15:08 | #
Non, je m’en contrefiche totalement personnellement, ça m’intéresse pas, et c’est pas dans mes compétences de toute façon.
Citer : Posté le 22/09/2021 15:12 | #
et toi, tituya ?
Ajouté le 22/09/2021 à 15:16 :
zezombye, c'est peut-être dans tes compétences, ce que je t'ai dit plus haut, non ?
Citer : Posté le 22/09/2021 15:18 | #
C’est très impoli ce que tu fais là, en plus d’être inutile, et d’être considéré comme du spam. Merci d’arrêter sous peine de sanctions.
Citer : Posté le 22/09/2021 15:21 | #
Nous ne savons même pas ce que tu souhaites faire... Si tu avais lu ce que Lephenixnoir t'as indiqué tu saurais où chercher ton erreur syntaxe...
Au passage nous ne sommes pas au courant du fonctionnement de ton code. La variable A ou B ne signifie simplement rien pour nous... C'est comme si je te demandais d'utiliser une spatule pour faire un gâteau, ça marche mais il faut réfléchir à son rôle. Et nous n'avons pas autant de temps devant nous.
Au passage rien ne sert de SPAMMER. Si tu n'as pas de réponse ce n'est pas que nous n'avons pas vu. C'est simplement que nous ne voulons pas te répondre à cause de tes demandes dénuées de sens.
Cordialement.
(Et de toute façon, vous pouvez pas dire le contraire)
MultipliCasio
RDM Calculs
Back Mirror
A Switch To The Top C
Citer : Posté le 22/09/2021 15:54 | #
J'ai renoncé à faire en sorte qu'il n'y ait pas de carré noir clignotant en haut à droite de l'écran. A la place, je vais plutôt mettre une condition de sortie de boucle... avec votre aide, bien entendu.
pour ce faire, voici le code de ce que j'ai fait jusqu'à présent, pour ceux et celles d'entre vous qui auraient la flemme de remonter plus haut dans le topic :
#Password: <no password>
"Bienvenuewelcome"◢
"veuillez choisir votre langage◢
(Please select your language) (1 = Français/French, 2 = Anglais/English)"? -> A
If A = 1 :Then
"Ensuite, veuillez choisir le nombre de joueurs"
"(1=1 Joueur,)"
"(2=2 Joueurs)"? -> B
IfEnd
If A = 2 :Then
"(Then, please select the numbers)"
"(1 Player,)"
"(2 Players)"? -> B
IfEnd
If A = 1 :Then
"Enfin, veuillez choisir le niveau de difficulté"
"(1=Facile,)"
"(2=Moyen,)"
"(3=Dur)"? -> C
IfEnd
If A = 2 :Then
"Finally, please select the difficulty level"
"(Easy,)"
"(Medium,)"
"(Hard)"? -> C
IfEnd
If B = 1 And C = 1 :Then
RanInt#(0, 50) + 1 -> A
0 -> C
A = 1 => "Vous devez trouver unnombre mystère compris entre 1 et 50"A = 2 => "(You must find amystery number that is between 1 and 50)"
Do
A = 1 => "Votre proposition"A = 2 => "(Your proposition)"? -> B
If B≠A :Then
If B < A :Then
A = 1 => "Plus grand"If A = 2 => "(More)"◢
Else
"Plus petit"If A = 2 => "(Less)"◢
IfEnd
IfEnd
" "
C + 1 -> C
LpWhile A≠B
ClrText
A = 1 => "Bravo vous avez 0trouvéle nombre mystère en coups"
IfEnd
A = 2 => "(Well done you foundthe mystery number in tries)"
IfEnd
Locate 3, 3, C
Je sais que vous l'avez déjà reçu, mais au cas ou vous l'auriez perdu, si ça peut vous aider à m'indiquer une condition de sortie, ce serait bien car je n'ai pas encore vu dans mon cours de programmation les boucles et conditions de sortie de boucle...
En vous en remerciant bien à l'avance,
D.C.
Citer : Posté le 22/09/2021 16:01 | #
https://www.planet-casio.com/Fr/programmation/conditions.php
Ecrivez vos programmes basic sur PC avec BIDE
Citer : Posté le 22/09/2021 16:01 | #
pour ceux et celles d'entre vous qui auraient la flemme de remonter plus haut dans le topic
Go to hell
Citer : Posté le 22/09/2021 16:29 | #
Bon, puisque ce n'est à priori pas assez clair, on va aller droit au but.
Nous ne pouvons pas réfléchir à ta place. Je te propose de prendre le temps de lire au moins le tutoriel Basic que Zezombye a posté.
D'une part cela permettra de ne pas poser de questions qui n'ont aucun sens, mais aussi d'orienter tes questions pour aller à l'essentiel.
Nous n'avons pas besoin que tu copie/colle l'ensemble de ton code. D'une part on s'en fout, d'autre part cela complexifie d'autant le temps nécessaire à sa compréhension puis à l'identification du problème. Notre temps n'est pas le tiens, nos priorités ne sont pas tiennes. Si tu ne fais pas d'effort pour faciliter la compréhension de ton problème, nous ne pourrons réciproquement pas en faire.
Si tu as une erreur, c'est à toi d'extraire le code correspondant, regarder si cela correspond à quelque chose qui t'as déjà été signalé (spoiler, c'est souvent le cas), et dans le cas contraire poser une question précise.
Dans tous les cas, cesse d'importuner les membres du forum que ce soit en répondant toi-même à tes commentaires (action de "up" le topic) ou en demandant si on a bien vu tes questions. Ceci vaut pour avertissement avant un ban de 24h, conformément à la Charte d'Utilisation du Forum.
Citer : Posté le 22/09/2021 16:59 | #
OK, OK, DS alias JB on se calme, j'ai compris...
Ajouté le 22/09/2021 à 17:51 :
J'ai essayé de mettre un WhileEnd après le Then If B<A suivant le If B≠A, mais ça m'a généré un bel erreur syntaxe... Ou est mon erreur ? Et si elle est au niveau du WhileEnd, ou diable aurais-je du mettre ce WhileEnd sachant qu'il précède le Then du A⇒1"Plus grand" ?
en vous remerciant bien à l'avance de bien vouloir m'aider,
D.C.
Citer : Posté le 22/09/2021 19:09 | #
Je trouve ce topic formidable (mais pas "anecdotique, somme toute"
J'y passe tous les jours et me demande combien de temps les plus dévoués d'entre nous tiendrons face aux assauts insensés de DC.
La réponse est pour bientôt je sens !
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Citer : Posté le 22/09/2021 19:38 | #
https://www.planet-casio.com/Fr/forums/topic16875-3-edition-code-source-black-jack-originellement-compatible-a-partir-de-la-35-35.html#184563
Ecrivez vos programmes basic sur PC avec BIDE
Citer : Posté le 22/09/2021 21:01 | #
waw! ce topic est exceptionnel! tout les grands membres de planet-casio sont la!
tout est évident et il suffit d'aller sur google pour le voir:
https://fr.wikibooks.org/wiki/Programmation_Basic_Casio/Commandes_de_base
http://www.jeuxcasio.com/modules/cours/programmation_basic.pdf
https://www.superprof.fr/ressources/informatique-top/informatique/cours-02/tout-niveau-03/programme-calculatrice.html
https://pub.phyks.me/sdz/sdz/apprenez-le-basic-casio.html
https://community.casiocalc.org/topic/2448-casio-basic-tutorial/
...
il faut prendre du temps pour faire quelque-chose, pour 3h de programmation, j'ai mis 2h a apprendre a utiliser tkinter tout est sur internet (saut la doc de gint qui est totalement foireuse, je dois lire dans le code des headers)
Citer : Posté le 22/09/2021 21:05 | #
(Les headers sont la doc, avec leurs défauts (c'est du code, et c'est en anglais), après y'a aussi les tutos