Unité Graph : retour au mode texte

Version imprimable

07/01/2015, 10h11
NOVICE76

Unité Graph : retour au mode texte
Bonjour,

J'utilise Free Pascal pour des calculs et ensuite transformer ces résultats de calcul en graphique de courbe. J'ai utilisé l'unité graph sous Turbo Pascal il y a bien longtemps et j'ai pu constaté avec plaisir la qualité de l'évolution. J'utilise l'environnement Free Pascal (pas Lazarus) avec les unités Dos et Crt.

Je rencontre un problème lorsque je quitte l'environnement graphique pour retourner à l'environnement Crt : ça ne fonctionne pas. Lorsque je veux réutiliser les commandes de l'unité Crt, il ne se passe rien et j'ai un écran tout bizarre. Je suis obligé d'arrêter mon programme et de le recommencer. Avez-vous une solution ?

Je quitte l'environnement graphique avec les commandes suivantes :
Code:

1 2 CLOSEGRAPH; RESTORECRTMODE;
OS : Windows 7 32 bits

Bonsoir!

Je ne suis pas sous windows et sous linux je ne peux pas tester.
Mais il me semble que le 'RESTORECRTMODE' est inutile. Peut-être est-ce à cause de ça?
Normalement, le petit programme suivant (de mémoire) devrait suffire, mais je vais laisser à d'autres membres, mieux placés que moi, vous répondre.
Code:

1 2 3 4 5 6 7 8 9 10 program utilisation_graph; uses graph; var a,b : smallint; begin a:=0; b:=0; initgraph(a,b,''); //Ouverture. // ... readln; //Attente du clavier avant de quitter. closegraph; //Fermeture. end.
Sinon, pour info, il y a d'autres façons plus perfectionnées pour faire des graphismes (l'unité graph ne permettra d'utiliser -de mémoire aussi- qu'au maximum une résolution de 640x480x16couleurs).
Il y a par exemple :
wingraph + (pour la souris) winmouse.
ptcgraph + (pour la souris) ptcmouse.
...

Bonne soirée.

Bonjour !

Le code suivant fonctionne. Je n'utilise pas la procédure RestoreCrtMode et surtout je ne déclare pas l'unité Crt mais l'unité WinCrt.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
program Graph_01;
{$APPTYPE CONSOLE}
 
uses
  Graph, WinCrt;
 
function OpenGraph: boolean;
var
  d, m: smallint;
begin
  d := d8bit;
  m := m800x600;
  InitGraph(d, m, '');
  result := (GraphResult = grOK);
end;
 
begin
  if OpenGraph then
  begin
    SetColor(Yellow);
    Rectangle(10, 10, GetMaxX - 10, GetMaxY - 10);
    OutTextXY(20, 20, 'Appuyez sur une touche...');
    ReadKey;
    CloseGraph;
    Write('Appuyez sur la touche Entr'#130'e... ');
    ReadLn;
  end;
end.

17/01/2015, 09h02
NOVICE76

Bonjour
merci de vos réponses mais aucune des solutions que vous proposez fonctionne.
Je n'ai pas la possibilité d'utiliser Win Crt car mes programmes fonctionnent avec l'unité CRT
que je trouve beaucoup plus riche que wincrt que j'ai testé il y a quelques mois, mais les instructions ne sont pas
compatibles entre CRT et Wincrt.
Bref tous mes programmes fonctionnent avec l'unité CRT et je ne peux pas changer.
Contrairement à ce que vous dite, l'unité Graph est d'une excellente résolution
je suis en 1050 x 1980 sur un écran 17 pouces et je suis en multi écran.
merci de me dire si vous avez d'autres idées.
il doit bien y avoir une possibilité de faire un RAZ vidéo.
18/01/2015, 08h19
barle
Bonjour,
Pour moi le couple crt+graph fonctionne bien à condition de réouvrir output en sortie de l'écran graphique :
Code:

1 2 3 CloseGraph; assign(Output,''); rewrite(Output);
18/01/2015, 12h37
NOVICE76

OUI
cela fonctionne merci
mise à part que j'ai un écran en Noir et blanc
les instructions couleur ne fonctionne plus
mais c'est un moindre mal
18/01/2015, 14h20
barle

Effectivement ; il faut en fait mettre AssignCrt(output) au lieu de assign(output,'').
18/01/2015, 14h39
NOVICE76

Merci beaucoup.
cela fonctionne en effet.
Problème soldé