Posté le 18/03/2020 19:20
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 42 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 18/03/2020 19:22 | #
As-tu cherché par toi même avant de poster cette question ?
Tu auras besoin de GetKey et d'une variable
(Petite indication, le GetKey renvoyé par la touche EXE est 31)
(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 18/03/2020 19:26 | #
Je sais mais je n’ai pas réussis
Je sui vraiment nul👎😿
Citer : Posté le 18/03/2020 19:29 | #
Décomposons ensemble le programme que tu comptes faire :
-Une boucle infinie
-Un test si le GetKey=31
-Si oui, on incrémente une variable
-On affiche cette variable
-Fin de la boucle infinie
Comment peut tu faire ce programme en Basic ?
(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 18/03/2020 19:31 | #
En fait j’ai réussi mais quand j’appuie sur EXE sa rajoute 1 à ma variable
Mais si je rappuis sur EXE sa ne fais rien.
Citer : Posté le 18/03/2020 19:34 | #
While 1
If GetKey=31
Then A+1→A
IfEnd
Locate 1,1,A
WhileEnd
(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 18/03/2020 19:36 | #
Merci beaucoup j’étais Près du but en fin de compte
Citer : Posté le 20/03/2020 13:59 | #
Avec le code de Tituya, il suffit de maintenir la touche EXE enfoncée pour incrémenter.
Pour incrémenter le compteur à chaque appui, tu dois vérifier que la touche soit lâchée puis réappuyée comme ceci :
While 1
If GetKey=31
Then A+1→A
Do:LpWhile GetKey=0
IfEnd
Locate 1,1,A
WhileEnd
En optimisant un coup :
While 1
Locate 1,1,A
If GetKey=31
Then Isz A
Do:LpWhile Not GetKey
IfEnd
WhileEnd
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 20/03/2020 14:22 | #
Merci