Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 19 Fév 2013, 8: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
:‾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
: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
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 24 Fév 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
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
