probleme programe (sur casio 35+)
Posté le 30/09/2012 19:00
bonjours,
j'ai crée un programme mais je ne comprend pas quand je fait p=1 et p=2(voir code) il ne va pas a la fin du programme comme si le if de p=3 allais jusqu’à la fin alors que ce n'est pas le cas.
voici le code:
les ã sont des flèche et les ù sont des saut de ligne.
Filename:TEST
0ãXÙ
0ãYÙ
0ãZÙ
100ãMÙ
Locate 1,1,"PERS.1"Ù
Locate 1,2,"ATTAQUE:10"Ù
Locate 1,3,"DEFENCE:5"Ù
Locate 6,4,"ENDURENCE:1"Ù
Locate 12,1,"PERS.2"Ù
Locate 12,2,"ATTAQUE:5"Ù
Locate 12,3,"DEFENCE:10"Ù
Locate 1,5,"PERSSONNAGE 3"Ù
Locate 1,6,"ATTAQUE:5"Ù
Locate 1,7,"DEFENCE:5 ENDURENCE:2"Ù
Do:LpWhile GetkeyÈ31Ù
ClrTextÙ
?ãVÙ
If V=1Ù
Then Ù
10ãAÙ
5ãDÙ
1ãEÙ
IfEndÙ
If V=2Ù
Then Ù
5ãAÙ
10ãDÙ
1ãEÙ
IfEndÙ
If V=3Ù
Then Ù
5ãAÙ
5ãDÙ
2ãEÙ
IfEndÙ
Locate 1,1,"ACHETER EQUIPEMENT"Ù
Locate 1,2,"1:ARME"Ù
Locate 1,3,"2:ARMURE"Ù
Locate 1,4,"3:ENDURENCE"Ù
Do:LpWhile GetkeyÈ31Ù
ClrTextÙ
?ãPÙ
Locate 1,6,"VOUS AVEZ"Ù
Locate 11,6,MÙ
Locate 16,6,"COIN"Ù
If P=1Ù
Then Ù
Locate 1,1,"OBJET PRIX"Ù
Locate 1,2,"1:EPEE 100"Ù
Locate 1,3,"2:HACHE 500"Ù
Locate 1,4,"3:ARC 1000"Ù
Do:LpWhile GetkeyÈ31Ù
ClrTextÙ
?ãCÙ
If C=1Ù
Then Ù
M-100ãMÙ
1ãZÙ
IfEndÙ
If C=2Ù
Then M-500ãMÙ
2ãZÙ
IfEndÙ
If C=3Ù
Then M-1000ãMÙ
3ãZÙ
IfEndÙ
IfEndÙ
Ù
If P=2Ù
Then Ù
Locate 1,1,"OBJET PRIX"Ù
Locate 1,2,"BRONZE 100"Ù
Locate 1,3,"ARGENT 500"Ù
Locate 1,4,"OR 1000"Ù
Do:LpWhile GetkeyÈ31Ù
ClrTextÙ
?ãCÙ
If C=1Ù
Then M-100ãMÙ
1ãYÙ
IfEndÙ
If C=2Ù
Then M-500ãMÙ
2ãYÙ
IfEndÙ
If C=3Ù
Then M-1000ãMÙ
3ãYÙ
IfEndÙ
IfEndÙ
Ù
If P=3Ù
Then Ù
Locate 1,1,"OBJET PRIX"Ù
Locate 1,2,"BAIE ROUGE 100"Ù
Locate 1,3,"BAIE VERTE 500Ù
Locate 1,4,"BAIE NOIR 1000"Ù
Do:LpWhile GetkeyÈ31Ù
ClrTextÙ
?ãCÙ
If C=1Ù
Then M-100ãMÙ
1ãXÙ
IfEndÙ
If C=2Ù
Then M-500ãMÙ
2ãXÙ
IfEndÙ
If C=3Ù
Then M-1000ãMÙ
3ãXÙ
IfEndÙ
IfEndÙ
Ù
If Z=1Ù
Then A+2ãAÙ
IfEndÙ
If Z=2Ù
Then A+5ãAÙ
IfEndÙ
If Z=3Ù
Then A+10ãAÙ
IfEndÙ
If Y=1Ù
Then D+2ãDÙ
IfEndÙ
If Y=2Ù
Then D+5ãDÙ
IfEndÙ
If Y=3Ù
Then D+10ãDÙ
IfEndÙ
If X=1Ù
Then E+1ãEÙ
IfEndÙ
If X=2Ù
Then E+2ãEÙ
IfEndÙ
If X=3Ù
Then E+3ãEÙ
IfEndÙ
ClrTextÙ
Locate 1,1,"VOUS AVEZ:"Ù
Locate 1,2,AÙ
Locate 5,2,"ATTAQUE"Ù
Locate 1,3,DÙ
Locate 5,3,"DEFENCE"Ù
Locate 1,4,EÙ
Locate 5,4,"ENDURENCE"Ù
Locate 1,5,MÙ
Locate 5,5,"COIN"Ù
merci d'avance.
Citer : Posté le 30/09/2012 21:59 | #
Mets ton code entre les balises [ code ]
Je viens de mettre à jour cette balise afin qu'elle remplace certains caractères, comme les retours à la ligne et la ->
Juste avant le If P=2, ajoute ce code et dis-nous si la calculatrice affiche la valeur de P. Si ce n'est pas le cas, il doit manquer un IfEnd quelque part.
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
Citer : Posté le 30/09/2012 22:05 | #
C'est effectivement plus lisible dans la balise !
Merci pour cette modification.
Pour le soucis, je n'ai rien vu d'anormal non plus...
Peut-être que ceci t'aidera !
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !