Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 11425
Réponses : 2
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

CONVERTISSEUR EURO->FRANC ET VICE VERSA

kevgaming57050 le 18/02/2013 à 12:30
Salut et voici le programme pour faire un convertisseur Euro->Francs et vice versa winkle.gif
Code
:GridOff
:FnOff
:AxesOff
:CoordOff
:ClrHome
:ClrDraw
:‾10→Xmin
:10→Xmax
:‾10→Ymin
:10→Ymax
:ClrDraw
:Line(‾9,‾10,‾9,10)
:Line(9,10,9,‾10)
:Line(‾10,9,10,9)
:Line(‾10,‾9,10,‾9)
:Line(‾10,‾6,10,‾6)
:Line(‾10,6,10,6)
:Text(5,30,"EURO-FRANC
:Text(52,30,"PAR   KEVIN
:Line(0,6,‾4,0)
:Line(0,6,4,0)
:Line(‾4,0,0,‾6)
:Line(4,0,0,‾6)
:Line(0,4.5,‾3,0)
:Line(0,4.7,‾3.1,0)
:Line(0,4.5,3,0)
:Line(0,4.7,3.1,0)
:Line(3,0,1.5,‾2.2)
:Line(3.1,0,1.6,‾2.2)
:Line(1.5,‾2.2,‾1.3,2.3)
:Line(1.6,‾2.2,‾1.4,2.3)
:Line(‾1.5,1,‾2.6,‾0.6)
:Line(‾1.9,0,0.5,‾3.4)
:Line(1,‾3,0,‾4.5)
:Pause
:Lbl A
:ClrDraw
:Menu("<<<<<<MENU>>>>>>","EURO EN FRANC",1,"FRANC EN EURO",2,"QUITTER",3
:Lbl 3:ClrHome:Stop
:Lbl 1
:Input "DONNER UN NOMBRE",A
:A*6.55957&#8594;F
:Output(5,1,F)
:Output(6,12,"FRANC")
:Pause
:ClrHome
:Goto A
:Lbl 2
:Input "DONNER UN NOMBRE",B
:B/6.55957&#8594;E
:Output(5,1,E)
:Output(6,13,"EURO")
:Pause
:ClrHome
:Goto A

un problème dite le moi winkle.gif godgrace.gif
Sangohan38 le 19/02/2013 à 08:21
Pourrais-tu remplacer les caractères illisibles (qui sont visiblement des (- )) par leurs équivalents de façon à ce que les lecteurs néophytes comprennent?
J'ai du aussi éditer ton message car les majuscules de bon matin c'est un peu agressif.

Sinon, je pense que ton programme peut légèrement être optimisé en mettant le ClrDraw en dehors du label A de façon à ce qu'il ne soit exécuté qu'une fois et non à chaque retour au menu. De la même façon puisque tu est obligé de passé par le menu pour quitter met un ClrHome au début du label A comme ça plus besoin de le préciser ailleurs. Enfin, si tu met ton label 3 à la fin du programme, tu n'aura pas besoin de préciser le Stop.

Ainsi voila comment je vois le programme:

Code
:GridOff
:FnOff
:AxesOff
:CoordOff
:ClrHome
:ClrDraw
:&#8254;10&#8594;Xmin
:10&#8594;Xmax
:&#8254;10&#8594;Ymin
:10&#8594;Ymax
:ClrDraw
:Line(&#8254;9,&#8254;10,&#8254;9,10)
:Line(9,10,9,&#8254;10)
:Line(&#8254;10,9,10,9)
:Line(&#8254;10,&#8254;9,10,&#8254;9)
:Line(&#8254;10,&#8254;6,10,&#8254;6)
:Line(&#8254;10,6,10,6)
:Text(5,30,"EURO-FRANC
:Text(52,30,"PAR   KEVIN
:Line(0,6,&#8254;4,0)
:Line(0,6,4,0)
:Line(&#8254;4,0,0,&#8254;6)
:Line(4,0,0,&#8254;6)
:Line(0,4.5,&#8254;3,0)
:Line(0,4.7,&#8254;3.1,0)
:Line(0,4.5,3,0)
:Line(0,4.7,3.1,0)
:Line(3,0,1.5,&#8254;2.2)
:Line(3.1,0,1.6,&#8254;2.2)
:Line(1.5,&#8254;2.2,&#8254;1.3,2.3)
:Line(1.6,&#8254;2.2,&#8254;1.4,2.3)
:Line(&#8254;1.5,1,&#8254;2.6,&#8254;0.6)
:Line(&#8254;1.9,0,0.5,&#8254;3.4)
:Line(1,&#8254;3,0,&#8254;4.5)
:Pause
:ClrDraw
:Lbl A
:ClrHome
:Menu("<<<<<<MENU>>>>>>","EURO EN FRANC",1,"FRANC EN EURO",2,"QUITTER",3
:Lbl 1
:Input "DONNER UN NOMBRE",A
:A*6.55957&#8594;F
:Output(5,1,F)
:Output(6,12,"FRANC")
:Pause
:Goto A
:Lbl 2
:Input "DONNER UN NOMBRE",B
:B/6.55957&#8594;E
:Output(5,1,E)
:Output(6,13,"EURO")
:Pause
:Goto A
:Lbl 3


Sangohan38
linkakro le 24/02/2013 à 14:19
Remplace
Code
:-10->Xmin
:10->Xmax
:-10->Ymin
:10->Ymax
par
Code
ZStandard

Puis enlève les syntaxes de fin de ligne pour faire plaisirs aux flemmards et radins de la mémoire.

Ainsi :
Code
:GridOff
:FnOff
:AxesOff
:CoordOff
:ClrHome
:ClrDraw
:ZStandard
:ClrDraw
:Line(-9,-10,-9,10
:Line(9,10,9,-10
:Line(-10,9,10,9
:Line(-10,-9,10,-9
:Line(-10,-6,10,-6
:Line(-10,6,10,6
:Text(5,30,"EURO-FRANC
:Text(52,30,"PAR   KEVIN
:Line(0,6,-4,0
:Line(0,6,4,0
:Line(-4,0,0,-6
:Line(4,0,0,-6
:Line(0,4.5,-3,0
:Line(0,4.7,-3.1,0
:Line(0,4.5,3,0
:Line(0,4.7,3.1,0
:Line(3,0,1.5,-2.2
:Line(3.1,0,1.6,-2.2
:Line(1.5,-2.2,-1.3,2.3
:Line(1.6,-2.2,-1.4,2.3
:Line(-1.5,1,-2.6,-0.6
:Line(-1.9,0,0.5,-3.4
:Line(1,-3,0,-4.5
:Pause
:ClrDraw
:Lbl A
:ClrHome
:Menu("<<<<<<MENU>>>>>>","EURO EN FRANC",1,"FRANC EN EURO",2,"QUITTER",3
:Lbl 1
:Input "DONNER UN NOMBRE",A
:A*6.55957->F
:Output(5,1,F
:Output(6,12,"FRANC
:Pause
:Goto A
:Lbl 2
:Input "DONNER UN NOMBRE",B
:B/6.55957->E
:Output(5,1,E
:Output(6,13,"EURO
:Pause
:Goto A
:Lbl 3
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.