[TP]Affichage graphique

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

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

Code:

---

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+

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+

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

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:

---

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.

---

En théorie, l'écran devrait être plein de couleurs !

A+

Merci bcp, finalement ca à marché en renommant les directories et en modifiant un peu le code :D
Malek
a++