[TP]Affichage graphique

**maleklegolas** · 29/10/2003, 18h46

Bonjour

J'ai un pépin, j'arrive pas à lancer le graph mode , je pense que c un probleme d'écran parce que ma procedure utilise VGA comme pilote et j'ai un écran plat ( plug and play ? ) .
Je m'y connais pas trop en pascal mais bon le programme que j'ai fait fonctionne au lycée mais pas chez moi , pour ce qui est d'écrire "write(...etc ) " ca marche bien mais pour dessiner un arbre ( cours d'info ) le pc ne l'affiche pas et me renvoie directement au code
Si qq'1 pouvait me conseiller sur ce que je dois faire , je lui en serai tres reconnaissant

Malek

**M.Dlb** · 29/10/2003, 18h54

Il se peut que l'initialisation du mode graphique ne soit pas complète...
Pour information, je la remet ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var GraphPilote,GraphMode:integer;
begin
....
GraphPilote:=Detect;
InitGraph(GraphPilote,GraphMode,'c:\tp\bgi'); {répertoire BGI de TP}
If GraphResult<>grOK then Halt;
...
CloseGraph;
end.

Voilà, essaye avec ceci ça, si tu as un code différent. Si tu as le même code, alors je ne voies pas trop la source de ton problème... Sous quel OS tu tournes ?

a+

**Eric Sigoillot** · 29/10/2003, 20h31

Sache que l'écran ne peut en aucun cas interférer avec ton programme : seule la carte graphique peut faire des misères.

Le VGA est (en principe ?) un standard, et ne doit pas poser de problèmes. Vérifie si besoin est si le problème se reproduit avec un mode 13h (des milliers d'exemples trainent sur Net), ou bien avec les autres drivers BGI.

A+

**maleklegolas** · 30/10/2003, 20h10

Merci de vos réponses , meme si ca ne s'est pas avéré fructueux,
J'avais un code semblable celui que tu m'as donné, j'ai essayé celui-là , sans succes non plus.
Je bosse sous XP.
J'ai regardé sous le répertoire BGI et il n'y a pas de VGA.BGI , est ce que le probleme pourrait venir de là ?
J'ai aussi essayé en donnant les valeurs le graphpilote vga valant 9 et le graphmode VgaHi valant 2.
Voila, je suis vraiment un novice en TP et je ne connais pas de mode h13...

Si vous avez d'autres idées, elles seront bien venues

Malek
a++

**Eric Sigoillot** · 31/10/2003, 17h55

VGA.BGI, tu ne risques pas de le trouver ! Cherche plutôt EGAVGA.BGI. Si tu ne l'as pas, ne cherche pas plus loin !

Le fait que tu bosses sous XP peut peut-être poser problème.

Pour le mode 13h, il s'agit d'un mode graphique (sans âge !) supporté par toutes les cartes graphiques. Voilà comment faire une test simple :

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
22
23
24
25
26
27
 
program Test13h;
 
var
  i, j: Integer;
 
begin
{ Initialisation du mode graphique }
asm
  mov ax, 13h
  int 10h
end;
 
{ Affichage aléatoire de pixels à l'écran }
for j := 0 to 199 do
  for i := 0 to 319 do
    Mem[320 * j + i] := Random(255);
 
{ Attente d'un appui sur Entrée }
ReadLn;
 
{ Fermeture du mode graphique }
asm
  mov ax, 03h
  int 10h
end;
end.