[Free Pascal] [Débutant] Problème de path

Je suppose que ce message d'aide est récurrent. J'ai cherché sur ce forum et sur Google et, apparamment, beaucoup de gens ont le même problème... mais il n'y avait jamais marqué la solution... Si j'en ai raté une, desolé.

J'utilise Free Pascal (mais c'est le même problème avec Dev-Pascal en compilant avec GNU) : mon programme marche mais la fenêtre graphique n'apparaît pas. Je suppose que c'est un problème avec Uses Graph, avec le path. Pour Borland, je sais lequel c'est mais pour Free Pascal, c'est quoi?? S'il vous plaît... si quelqu'un pouvait m'aider !!!:mrgreen:

Bonjour et bienvenue !

Comme il s'agit d'une erreur d'exécution et non de compilation, c'est plutôt un problème d'initialisation du pilote graphique.
Peux-tu poster le code dans lequel tu utilises InitGraph ?

Ca donne à peu près ça (je mets juste les procédures ou j'ai utilisé le mode graphique, sinon, c'est juste de la saisie). Mais même le tutorial pascal de ce site, au niveau du mode graphique, ne marche pas. J'ai une fenêtre qui s'affiche et puis disparait tout de suite, sans que l'on ait le temps de voir quelque chose.

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 VGA, VGAHi : SMALLINT ; BEGIN InitGraph (VGA, VGAHi, 'c:\bp\bgi') ; END.   procedure graphique ; begin Uses Graph ; SetColor (14) ; Line ( 0 , 479 , 639 , 479) ; Line (0, 479 , 0 , 0 ) ; Moveto (0 , 479 ) ; Repeat Inc ( x , 0.1 ) ; y := 479 - (((-1/2) * g * sqr(x))/(sqr(vitesseini) * sqr (cos (alpha))) + (sin(alpha)/cos(alpha)) * x ; LineTo (x , y ) ; Until x = 639 ; Readln ; CloseGrph; end ;

---

et puis j'appelle apres ...

Comme spécifié dans la doc de Free Pascal, il ne faut pas mentionner de chemin vers le pilote graphique comme paramètre de InitGraph.

Code:

---

1 2 3 4 5

Var GraphDriver, GraphMode : SMALLINT; BEGIN GraphDriver := Detect; GraphMode := 0; InitGraph (GraphDriver,GraphMode,'') ;

---

Ah d'accord. Merci beaucoup. Je vais voir si ca marche

Bonjour,

Citation:

---

Envoyé par siobh007

Ah d'accord. Merci beaucoup. Je vais voir si ca marche

---

Au passage, apprends à indenter ton code, tu verras que ça le rendra plus clair.