Discussion :

[John_win]

Bonjour

j'ai un probleme avec le mode graphique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
program graphique ;
 
Uses graph ;
 
Var pilote, mode : integer ;
 
BEGIN
     pilote := detect ;
     InitGraph (pilote, mode, 'C:\turbo\bgi') ;
     OutText ('TEST') ;
     readln ;
     Closegraph ;
END.

L'ecran passe au noir tres rapidement et reviens tous aussi rapidement sous TP, je n'ai aucunes erreurs !

Ou est le probleme ?

Merci

[M.Dlb]

Si rien ne s'affiche, ca veut au contraire dire qu'il y a une erreur.
Rajoute la ligne

Code :

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

1
2
3
4
5
6
 
if GraphResult<>grOk then
begin
write('Erreur : ',GraphErrorMsg(GraphResult));
Halt(0);
end;

juste après le initgraph pour connaître l'erreur d'initialisation !

a+

[Giovanny Temgoua]

En général, turbo s'installe dans le reertoire c:\TP donc vérifie bien que le chemin du bgi est correct.Et puis en prenant Menu Debug - Output tu peux vérifier si effectivement le texte a été affiché... (sinon tu verras une phrase du genre, BGI graphics not initialized et cà voudra dire que le chemin du bgi est incorrect ou le .bgi est absent)

[charly]

Pour le mode graphique , il vaut mieu utiliser VBE2 qui est tres puissante et dispo sur se site ( et tres complete aussi )

[haypo]

Si rien ne s'affiche, ca veut au contraire dire qu'il y a une erreur.
Rajoute la ligne

Code :

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

1
2
3
4
5
6
 
if GraphResult<>grOk then
begin
write('Erreur : ',GraphErrorMsg(GraphResult));
Halt(0);
end;

juste après le initgraph pour connaître l'erreur d'initialisation !

a+

Halt(1); plutôt ...

(Dans TP) appuie sur ALT+F5 pour voir les résultats du programme.

Pour info, le BGI est chargé dans la mémoire dynamique. Il faut donc lui donner de la mémoire pour ça. Tu peux utiliser la macro (de tête) :

Code :

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

{$M 4096,0,150000}

@+ Haypo

[Eric Sigoillot]

Halt(0); Halt(1); ... Peu importe ! Halt tout court suffit, puisque le but est ici d'interrompre le programme.

Pour l'initialisation de la BGI, si on veut faire du travail propre, il faut toujours faire comme ça :

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
 
uses
  Graph;
 
var
  Gm, Gd, Ge: Integer;
 
begin
Gd := Detect;
InitGraph(Gd, Gm, 'C:\TP7\BGI');
Ge := GraphResult;
if Ge <> grOk then
  begin
  WriteLn('Erreur graphique (', Ge', ') : ', GraphErrorMsg(Ge));
  Halt(Ge);
  end;
 
...
 
CloseGraph;
end.

A quelques détails prêts bien sûr...

Vérifie bien la présence du fichier EGAVGA.BGI dans le répertoire que tu as spécifié.

En cas d'erreur mémoire (erreur 5), alors :

1. Soit tu as modifié la config par défaut, dans ce cas remet-la (Options, Memory Size)

2. Soit tes fichiers de config ne laissent pas assez de RAM libre. Essaie de voir si tu ne peux pas optimiser tout ça (demande de l'aide si besoin est).

A+