Autorisation : Membre
Nb de messages : 14
Inscrit le : Mer 04 Nov 2009, 18:35
Posté le : Mer 04 Nov 2009, 19:25
Voilà, je me suis inscrit, ça m'évitera les petits codes à chaque fois
(Je suis quand même tombé sur 'ti82w', enfin bref.)
Bon, je sais que tout le monde à déjà ça sur sa calculatrice (ou du moins quelque chose de similaire) mais on ne sais jamais, donc voici un petit programme de conversion de monnaies en fonction des taux de change. Les monnaies concernée sont celles qui me semble le plus utile en ce moment. Attention tout de même, ce n'est pas totalement fiable, avec le cours de la bourse, etc...
Code
:Lbl AA
:ClrHome
:Menu(" -CONVERSION- ","****************",AA,"FRANCS-EUROS",FE,"EUROS-FRANCS",EF,"DOLLARS-EUROS",DL,"EUROS-DOLLARS,ED,"LIVRES-EUROS",LE,"EUROS-LIVRES",EL)
:Lbl FE:ClrHome
:Input "FRANCS-EUROS ",X
:If X[inférieur ou égal]0 or X>10^(9):Goto FE
:X/6.5595->X
:Goto AA
:Lbl EF:ClrHome
:Input "EUROS-FRANCS ",X
:If X[inférieur ou égal]0 or X>10^(9):Goto EF
:X*6.5595->X
:Goto BB
:Lbl DE:ClrHome
:Input "DOLLARS-EUROS ",X
:If X[inférieur ou égal]0 or X>10^(9):Goto DE
:X/1.4690->X
:Goto AA
:Lbl ED:ClrHome
:Input "EUROS-DOLLARS ",X
:If X[inférieur ou égal]0 or X>10^(9):Goto ED
:X*1,4690->X
:Goto BB
:Lbl LE
:Input "LIVRES-EUROS ",X
:If X[inférieur ou égal]0 or X>10^(9):Goto LE
:X/1.1060->X
:Goto AA
:Lbl EL
:Input "EUROS-LIVRES ",X
:If X[inférieur ou égal]0 or X>10^(9):Goto EL
:X*1.1060->X
:Goto BB
:Lbl BB
:Output(4,1,"="
:Output(4,2,X
:Pause
:Lbl AA
Ah, j'oublais : Le X>10^(9) sert uniquement à ce que vous évitiez de convertir plus d'un milliard. Ce qui ne devrait pas arriver, je pense
Autorisation : Membre
Nb de messages : 14
Inscrit le : Mer 04 Nov 2009, 18:35
Posté le : Mer 04 Nov 2009, 19:38
Arf, désolé, c'est une petite habitude que j'ai pris dans mes menus par souci d'esthétique, ça sépare juste le titre du menu des propositions d'une ligne... il est donc inactif si on le choisit. ("----------------" n'est pas mal non plus). Evidemment, si ça ne plaît pas, c'est tout à fait compréhensible ^,^
baptiste Invité
Posté le : Lun 07 Déc 2009, 21:26
euh petite question bete lol mais comment faire le "or" sur la calculette :S ?
