Discussion :

[amine6441]

Salut a tous les développeurs

J’ai un problème avec l exécution de ce petit programme qui crée un segment de 3 dimensions
Voici le code

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
 Gd, Gm: Integer;
 Y0, Y1, Y2, X1, X2: Integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm,' ');
 if GraphResult <> grOk then
   Halt(1);
 Y0 := 10;
 Y1 := 60;
 Y2 := 110;
 X1 := 10;
 X2 := 50;
 Bar3D(X1, Y0, X2, Y1, 10, TopOn);
 Bar3D(X1, Y1, X2, Y2, 10, TopOff);
 Readln;
 CloseGraph;
readln;
end.

En plus tous les programmes que j’écris avec l’unité Graph ne marche pas

Et merci d’avance pour votre aide .

[droggo]

Huo,

Il faut regarder l'aide de temps en temps.

A ton avis, à quoi sert le 3ème paramètrre de la procédure, que tu as royalement mis à

Code :

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

 InitGraph(Gd, Gm,' ');

??

L'aide dit:

Code :

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

1
2
3
 DECLARATION:
  procedure InitGraph(var PiloteGraph:Integer; var ModeGraph: Integer;
            CheminPilote: string);

[amine6441]

Merci MR mais
Apres une petite recherche je pence que le pilote c’est EGAVGA.BGI et il se trouve dans le repertoire BGI.

J’ai retourné sur mon petit programe et j’ai ajoute le chemin.

Code :

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

InitGraph(Gd, Gm,' c:\tp\bgi\egavga.bgi');

mais ca change rien.

[droggo]

Moe,

Merci MR mais
Apres une petite recherche je pence que le pilote c’est EGAVGA.BGI et il se trouve dans le repertoire BGI.

J’ai retourné sur mon petit programe et j’ai ajoute le chemin.

Code :

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

InitGraph(Gd, Gm,' c:\tp\bgi\egavga.bgi');

mais ca change rien.

Je n'ai pas TP sous la main, mais le chemin devrait sans doute être

Code :

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

InitGraph(Gd, Gm,'c:\tp\bgi');

sans espace avant le nom, et en donnant seulement le chemin du répertoire où se trouvent les pilotes.

[amine6441]

Tous mes respects mon frère et merci encor pour votre aide