Posté le 22/01/2026 17:50
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2026 | Il y a 158 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 24/01/2026 11:13 | #
ah mon avis (mais n'ayant jamais fait de basic) c'est juste que 'List 1' ne veut rien dire c'est 'List1' (sans espace).
Les deux existent. Y'a des opcodes List1 à List6 (d'un seul bloc), datant de vieux modèles, et y'a l'opcode List (avec une espace) qu'on peut suivre d'un nombre pour désigner les listes 1 à 26 (sur les nouveaux modèles).
Le problème c'est surtout que la liste est trop courte, on ne peut pas étendre la longueur de la liste par une affectation. Faudrait remplacer {1}→List 1 au début par 3→Dim List 1.
Citer : Posté le 24/01/2026 17:49 | #
Le problème c'est surtout que la liste est trop courte, on ne peut pas étendre la longueur de la liste par une affectation. Faudrait remplacer {1}→List 1 au début par 3→Dim List 1.
Huh, that’s odd, the program seems to work perfectly fine for me as is. Maybe it’s an issue of models? I’m using the fx-9860GII/Graph 75, so maybe the version of Basic is older than what Slg4 is using.
I would try what Lephe’ suggests first. If that doesn’t work, try using the Catalog on your calculator to search for and input List1 if it appears. (Interestingly, I see no way to input “List” on its own on my calculator , which makes me further suspect a difference of versions.)
Edit: I can confirm that what Lephe’ suggested works perfectly on my calculator as well. I actually had no idea this technique existed. Please forgive me for my lack of programming skill.
Citer : Posté le 25/01/2026 12:56 | #
a et je cherhce aussi ca :
If J=Ans
Then "mon action"
mais avec aurte chose genre une toche precise sa marche mais pas avec ans
moi même
Citer : Posté le 25/01/2026 14:09 | #
J'ai peut être mal compris ce que tu demandais, mais "Ans" ne correspond pas à une touche, c'est une variable temporaire. Ici on ne peut pas savoir ce que va contenir Ans. Pour détecter une touche, il va falloir que tu fasses un petit programme de test pour récupérer le codes de chaque touches.
Tu peux écrire quelque chose comme :
Locate 1,1,Getkey
WhileEnd
Et ensuite tester pour récupérer le code de la touche que tu veux utiliser (attention la syntaxe n'est sûrement pas bonne, j'ai pas ma Casio sous la main et ça fait longemps que j'ai pas fait de Basic, hésitez pas à corriger si j'ai dit n'importe quoi
Et ensuite dans ta condition tu vas remplacer J=Ans par J=[le code].
Citer : Posté le 25/01/2026 14:18 | #
oui ton code marche mais moi je veux que si on appuit sur une toucher random sa continu dans la boucle If.
enfaite apres le Then je veux afficher le code de la touche avec locate 1.1."ma variable".
moi même
Citer : Posté le 25/01/2026 19:09 | #
Are you saying that you want it so that:
- The user assigns keys to actions as normal
- After assignment and when checking for key presses, if the key press matches one of actions, print text indicating the action taking
- Otherwise, print the key code of the pressed key that didn't match anything?
If this is the case, if you are building off of my code, you could probably use another variable to assist with this (I'll use "Q" to refer to this other variable). In the loop where you go through and check to see if the key press matches, you can put the line "0→Q" immediately before or after the line "GetKey→D". Then, inside each if statement (where if an action was successfully found, it prints the name of the action, like "Confirm" or "Cancel"), you can add the line "1→Q". Then, in the section after checking every action but before the loop ends and starts over, you can add these lines to check if no key was found and print the keycode if so.
Then Locate 1,1,D
IfEnd
I'll have to test this myself just to double-check, but that should be the general idea if I'm understanding what you want correctly.
Citer : Posté le 25/01/2026 19:24 | # |
Fichier joint
By the way, regarding your shoutbox message about what transfer software to use, Casio's official FA-124 software that you can download from their website should work, you just need to make sure to click Tool > Model Type > [Whatever your model is].
Here's my modified code, this works on my fx-9860GII / Graph 75. I highlighted changes from the original in bold. (Or at least I tried, the tags show up anyways. It should make it easier to see the changes anyway though.)
[b]3→Dim List1[/b]
0→B
1→D
[b]0→Q[/b]
ClrText
ClrGraph
While D≠0
GetKey→D
WhileEnd
Locate 1,1,"WHAT KEY FOR CONFIRM"
While D=0
GetKey→D
WhileEnd
D→List1[1]
ClrText
ClrGraph
While D≠0
GetKey→D
WhileEnd
Locate 1,1,"WHAT KEY FOR CANCEL"
While D=0
GetKey→D
WhileEnd
D→List1[2]
ClrText
ClrGraph
While D≠0
GetKey→D
WhileEnd
Locate 1,1,"WHAT KEY FOR JUMP"
While D=0
GetKey→D
WhileEnd
D→List1[3]
ClrText
ClrGraph
While 1
[b]0→Q[/b]
GetKey→D
If D=List1[1]
Then Locate 1,1," "
Locate 1,1,"CONFIRM"
[b]1→Q[/b]
IfEnd
If D=List1[2]
Then Locate 1,1," "
Locate 1,1,"CANCEL"
[b]1→Q[/b]
IfEnd
If D=List1[3]
Then Locate 1,1," "
Locate 1,1,"JUMP"
[b]1→Q[/b]
IfEnd
[b]If Q=0 And D≠0
Then Locate 1,1," "
Locate 1,1,D
IfEnd[/b]
WhileEnd
List1