|
Posté le 05-09-2012 à 21:32 | #
|
Pourquoi tous ces Lbl-Goto ?!
A éviter absolument !
Voilà un code meilleur qui n'en utilise pas :
While 1
ClrText
" CONVERSION: 1)EUROÞFRF 2)FRFÞEURO"
"VOTRE CHOIX"?ÞC
ClrText
If C=1
Then "EURO"?ÞE
E©6.55957ÞE
"FRF":EÝ
IfEnd
If C=2
Then "FRF"?ÞF
F©0.15245ÞF
"EURO":FÝ
IfEnd
WhileEnd
ou
While 1
ClrText
" CONVERSION: 1)EUROÞFRF 2)FRFÞEURO"
"VOTRE CHOIX"?ÞC
ClrText
If C=1
Then "EURO"?ÞE
E©6.55957ÞE
"FRF":EÝ
Else "FRF"?ÞF
F©0.15245ÞF
"EURO":FÝ
IfEnd
WhileEnd
Dans le deuxième cas, si l'utilisateur rentre 1, conversion euro-franc, s'il rentre n'importe quel autre nombre, conversion franc-euro. |
|
|
Posté le 06-09-2012 à 19:10 | #
|
[pub]
@Graphman : Tu participes au concours de programmation de septembre (lien) ?
[/pub] |
|
|
Posté le 07-09-2012 à 17:41 | #
|
Merci pour ta version avec While, Tsuneo. En ce qui concerne le concours, Nitrosax, s'ils acceptent les créations pour Graph-25, je suis partant. |
|
|
Posté le 07-09-2012 à 18:04 | #
|
Hélas, la Graph 25 n'est pas concernée par le concours. Elle est assez limitée pour la programmation. Si tu souhaites participer au concours, tu peux programmer à l'aide l'émulateur de la Graph 85 qui est gratuit ![](https://www.planet-casio.com/images/smileys/wink.gif) |
|
|
Posté le 08-09-2012 à 12:20 | #
|
De rien Graphman, c'est toujours un plaisir d'aider les nouveaux membres ! |
|
|
|
|
Posté le 08-09-2012 à 21:01 | #
|
Surtout avec l'OS 1 |
|
|
Posté le 08-09-2012 à 21:09 | #
|
Ne pas pouvoir utiliser les strings, c'est quand même vachement nul... C'est tellement utile ! |
|
|
Posté le 08-09-2012 à 22:38 | #
|
bah c'est casio qui a la flemme d'updater son émulateur ou bien qui s'en fout |
|
|
Posté le 08-09-2012 à 22:51 | #
|
Un peu des deux |
|