[TP] Problème avec l’unité Graph

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:

---

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 ;).

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:

---

InitGraph(Gd, Gm,' ');

---

??

L'aide dit:

Code:

---

1 2 3

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

---

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:

---

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

---

mais ca change rien.

Moe,

Citation:

---

Envoyé par 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:

---

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:

---

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. :)

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