Discussion :

[JéRab]

Bonjour, je suis actuellement sur un projet sur TurboPascal 7.0. Il est simple, l'utilisateur entre certaines constantes et le programme affiche ensuite une représentation des courbes de Lissajous par rapport aux constantes entrées. J'aimerais ensuite revenir en mode texte, seulement le programme se quitte au lieu de passer en mode texte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
t:=-0.1;
Initgraph(Pilote,Mode, 'C:\BP\BGI');
repeat
     t:=t+0.1;
     xg:=100*x(t);
     yg:=100*y(t)
     xe:=trunc(xg);
     ye:=trunc(yg);
     PutPixel((320+xe),(240-ye),white);
until Keypressed;
CloseGraph;
RestoreCrtMode;
writeln('Untruc');
readkey;

Voilà ce que j'ai actuellement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
t:=-0.1;
Initgraph(Pilote,Mode, 'C:\BP\BGI');
repeat
     t:=t+0.1;
     xg:=100*x(t);
     yg:=100*y(t)
     xe:=trunc(xg);
     ye:=trunc(yg);
     PutPixel((320+xe),(240-ye),white);
until t=7;
readkey;
CloseGraph;
RestoreCrtMode;
writeln('Untruc');
readkey;

Voilà un de mes essais, seulement il ne quitte même pas le mode graphique je dois fermer le programme.

[droggo]

Jai,

t étant un réel (Real ou Single ...), les calculs ne sont pas exacts (ce n'est pas de ta faute, c'est comme ça, c'est dû à la représentation des nombres réels par nos chers processeurs*), donc le test until t=7; peut très bien ne jamais être vrai.

* et c'est irréductible : entre 2 nombres réels quelconques (sauf égaux, évidemment), il y a une infinité de valeurs réelles, il est donc strictement impossible d'avoir une représentation parfaite.

[JéRab]

Ok merci, cela règle déjà une de mes interrogations. Mais dans le premier code alors, comment se fait-ce que le programme ne repasse pas en mode "Texte" malgré le closegraph + restorecrtmode ?

[droggo]

Kai,

Il y a une éternité que je n'ai pas utilisé ce dinosaure, mais de mémoire :

- RestoreCrtMode revient au mode texte sans fermer le graphique.

- CloseGraph fait ce que son nom indique.

Par conséquent, si tu utilises CloseGraph, l'appel de RestoreCrtMode devrait être inutile (et peut-être bloquant ?).

[JéRab]

Eh bien merci beaucoup ! En utilisant un simple RestoreCrtMode; cela fonctionne exactement comme souhaité !