Discussion :

[didos55]

Bonjour à tous,

Je viens d'installer turbo pascal 7 sur mon PC tournant sur windows 7. J'ai suivi le tutorial et tout a bien fonctionné.
J'ai voulu essayer un programme que j'ai écrit il y a 20 ans et qui fonctionnait parfaitement sous windows 3.1. Le programme c'est bien compilé, et quand je lance le run, le programme fonctionne en mode texte, mais revient à l'éditeur dès que l'on passe en mode graphique.
Il doit se planter lorsqu'il arrive à la ligne en bas :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
PROCEDURE monitor;
 
begin
      textmode(2);clrscr;textcolor(7);
      gotoxy(10,6);writeln('What kind of monitor do you have ?');
      writeln;writeln('         . [1] monochrome monitor');
      writeln;writeln('         . [2] color monitor EGA mode');
      writeln;writeln('         . [3] color monitor VGA mode');
      repeat
      key:=readkey;
      until (key='1') or (key='2') or (key='3');
      if (key='1') then begin colour:=1; end;
      if (key='2') then begin colour:=2; end;
      if (key='3') then begin colour:=3; end;
      if colour=3 then begin modegraphe:=vgalo;carte:=vga;
                             aC:=9;bC:=10;cC:=11;dC:=12;eC:=13;
                             fC:=14;gC:=15;hC:=16;  end;
      if colour=2 then begin modegraphe:=egalo;carte:=ega;
                             aC:=9;bC:=10;cC:=11;dC:=12;eC:=13;
                             fC:=14;gC:=15;hC:=16;  end;
      if colour=1 then begin modegraphe:=cgahi;carte:=cga;
                             aC:=7;bC:=7;cC:=7;dC:=7;eC:=7;
                             fC:=7;gC:=7;hC:=8;  end;
     gotoxy(5,20);textcolor(aC);
     write('Name of your Firm (8 letters max) : ');firm:='';firm:=acqchaine;
end;
 
PROCEDURE page1;
 
begin
       initgraph(carte,modegraphe,'');
       setcolor(bC);settextstyle(1,0,5);

Quelqu'un peut m'aider à résoudre ce problème ?

Merci à l'avance.

[Roland Chastain]

Bonjour !

Est-ce que vous utilisez DosBox ? Parce qu'autrement je crois qu'il n'est pas possible d'ouvrir un écran graphique avec Turbo Pascal sous Windows 7. Mais avec DosBox il me semble que ça marche.

Autrement, pourquoi ne pas compiler avec FreePascal ? Ce serait peut-être plus simple.

[didos55]

Bonjour Roland,

Oui, j'ai essayé avec DosBox, mais c'est le même résultat (retour à l'éditeur dès passage en mode graphique).
Je vais essayer avec Free Pascal, mais je ne connais pas l'environnement...

Merci.

[Roland Chastain]

En général, les programmes écrits pour Turbo Pascal et son unité Graph sont compilables avec FreePascal, moyennant de minimes modifications.
Si ton programme n'est pas trop long, et si ça ne te dérange pas de nous le montrer, poste-le en entier : on y jettera un œil.
L'utilisation de FreePascal ne présente aucune difficulté particulière. Au contraire, sous Windows 7, il est plus facile à utiliser que Turbo Pascal.

[Paul TOTH]

il ne manquerait pas les fichiers BGI ?