Discussion :

[siobh007]

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 !!!

[Alcatîz]

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 ?

[siobh007]

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 :

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

[Alcatîz]

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 :

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

1
2
3
4
5
Var GraphDriver, GraphMode : SMALLINT;
BEGIN
  GraphDriver := Detect;
  GraphMode := 0;
  InitGraph (GraphDriver,GraphMode,'') ;

[siobh007]

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

[thewho]

Bonjour,

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.