Problème avec sous-programme casio g 35+
Megaclem
Messages postés
8
Statut
Membre
-
totoyo47 Messages postés 291 Statut Membre -
totoyo47 Messages postés 291 Statut Membre -
Bonjour, j'ai appris la fonction programme il y a semaine et demi et je me suis mis dans la tête l'idée de faire un rpg en texte, j'arrive à résoudre la plupart des problèmes mais celui-ci me bloque pouvez-vous me dire l'erreur de syntaxe?
Il faut surtout regarder goto6 et tout à la fin lbl6, lorsque j'appuie sur F6 cela m'écrit 29 (le getkey de la touche) mais ne m'affiche pas le second programme tandis que les autres touches marchent voici le programme (marchand d'arme):Filename:MAGARME1
Lbl 1Ù
ClrTextÙ
"--------Armes--------"Ù
"F1.Epee de bois"Ù
"F2.Epee simple de fer"Ù
"F3.Epee large de fer"Ù
"F4.Epee longue de fer"Ù
"F6.PASSER A L'ACIER"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ79 And AnsÈ69 And AnsÈ59 And AnsÈ49 And AnsÈ29Ù
Ans=79×Goto 2Ù
Ans=69×Goto 3Ù
Ans=59×Goto 4Ù
Ans=49×Goto 5Ù
Ans=29×Goto 6Ù
Lbl 2Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ (Q est supérieur ou égal à X)
Then Q-XãQÙ (Q-X(flèche)Q)
1ãAÙ (1(fleche)A (pour identifier l'arme))
"VOUS AVEZ ACQUIS: EPEE DE BOIS"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 3Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ
Then Q-XãQÙ
2ãAÙ
"VOUS AVEZ ACQUIS: EPEE SIMPLE DE FER"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 4Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ
Then Q-XãQÙ
3ãAÙ
"VOUS AVEZ ACQUIS: EPEE LARGE DE FER"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 5Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ
Then Q-XãQÙ
4ãAÙ
"VOUS AVEZ ACQUIS: EPEE LONGUE DE FER"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 6Ù
Prog "MAGARME2"
Merci d'avance pour votre réponse
(remplacer u est O barré par retour à la ligne, E accent aigu par espace Q est l'argent du joueur et X le futur prix/puissance de l'arme
Il faut surtout regarder goto6 et tout à la fin lbl6, lorsque j'appuie sur F6 cela m'écrit 29 (le getkey de la touche) mais ne m'affiche pas le second programme tandis que les autres touches marchent voici le programme (marchand d'arme):Filename:MAGARME1
Lbl 1Ù
ClrTextÙ
"--------Armes--------"Ù
"F1.Epee de bois"Ù
"F2.Epee simple de fer"Ù
"F3.Epee large de fer"Ù
"F4.Epee longue de fer"Ù
"F6.PASSER A L'ACIER"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ79 And AnsÈ69 And AnsÈ59 And AnsÈ49 And AnsÈ29Ù
Ans=79×Goto 2Ù
Ans=69×Goto 3Ù
Ans=59×Goto 4Ù
Ans=49×Goto 5Ù
Ans=29×Goto 6Ù
Lbl 2Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ (Q est supérieur ou égal à X)
Then Q-XãQÙ (Q-X(flèche)Q)
1ãAÙ (1(fleche)A (pour identifier l'arme))
"VOUS AVEZ ACQUIS: EPEE DE BOIS"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 3Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ
Then Q-XãQÙ
2ãAÙ
"VOUS AVEZ ACQUIS: EPEE SIMPLE DE FER"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 4Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ
Then Q-XãQÙ
3ãAÙ
"VOUS AVEZ ACQUIS: EPEE LARGE DE FER"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 5Ù
ClrTextÙ
"Puissance: X"Ù
"Prix: X"Ù
"EXE.Acheter"Ù
"EXIT.Annuler"Ù
DoÙ
GetkeyÙ
LpWhile AnsÈ31 And AnsÈ47Ù
If Ans=31 And QÊXÙ
Then Q-XãQÙ
4ãAÙ
"VOUS AVEZ ACQUIS: EPEE LONGUE DE FER"Ø
IfEndÙ
Goto 1Ù
If Ans=47Ù
Then Goto 1Ù
IfEndÙ
Lbl 6Ù
Prog "MAGARME2"
Merci d'avance pour votre réponse
(remplacer u est O barré par retour à la ligne, E accent aigu par espace Q est l'argent du joueur et X le futur prix/puissance de l'arme
A voir également:
- Problème avec sous-programme casio g 35+
- Programme demarrage windows - Guide
- Comment mettre en veille un programme sous windows 10 - Guide
- Touche puissance sur calculatrice casio graph 35+e - Forum calculatrices
- Indicatif 35 - Guide
- Programme bonjour - Forum Windows
3 réponses
Salut,
Trop de Goto dans ton programme, leur abus perturbe la calculatrice qui ne sait plus trop où elle en est.
Je te conseille d'utiliser les boucles Do-LpWhile pour les menus, le code est plus propre et plus stable.
Quelques liens pour t'améliorer :
- les boucles : https://www.planet-casio.com/Fr/programmation/conditions.php#1
- les touches (avec Getkey): https://www.planet-casio.com/Fr/programmation/morpion.php#0
Bonne prog' !
Trop de Goto dans ton programme, leur abus perturbe la calculatrice qui ne sait plus trop où elle en est.
Je te conseille d'utiliser les boucles Do-LpWhile pour les menus, le code est plus propre et plus stable.
Quelques liens pour t'améliorer :
- les boucles : https://www.planet-casio.com/Fr/programmation/conditions.php#1
- les touches (avec Getkey): https://www.planet-casio.com/Fr/programmation/morpion.php#0
Bonne prog' !
Merci encore une fois toyoto je n'aurai probablement pas trouvé sans ton aide.
Justement je cherchais à rendre mon code plus facile à lire en utilisant les gotos et je n'avais pas vu de recommandations disant que l'abus de gotos et dangereux pour la santé (de la calculatrice ;)
Par contre dans mon moteur de combat j'ai eu le bug du "trop de sous-programmes" que j'ai du résoudre en mettant des return.
Bref merci encore!
Justement je cherchais à rendre mon code plus facile à lire en utilisant les gotos et je n'avais pas vu de recommandations disant que l'abus de gotos et dangereux pour la santé (de la calculatrice ;)
Par contre dans mon moteur de combat j'ai eu le bug du "trop de sous-programmes" que j'ai du résoudre en mettant des return.
Bref merci encore!
En effet, j'ai vu de nombreux jeux ou applications qui appelaient le programme principal avec Prog. Comme avec toi, au bout d'un moment, on obtient l'erreur Branch. Pour revenir au programme principal, on utilise Return. Tu as un pavé là-dessous : https://www.planet-casio.com/Fr/programmation/pendu.php
Je suis ravi d'avoir pu t'aider ;)
Je suis ravi d'avoir pu t'aider ;)