[TP]Pb Mode Graphique

Version imprimable

Bonjour

j'ai un probleme avec le mode graphique :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 program graphique ; Uses graph ; Var pilote, mode : integer ; BEGIN pilote := detect ; InitGraph (pilote, mode, 'C:\turbo\bgi') ; OutText ('TEST') ; readln ; Closegraph ; END.
L'ecran passe au noir tres rapidement et reviens tous aussi rapidement sous TP, je n'ai aucunes erreurs !

Ou est le probleme ?

Merci

27/11/2003, 19h15
M.Dlb
Si rien ne s'affiche, ca veut au contraire dire qu'il y a une erreur.
Rajoute la ligne
Code:

1 2 3 4 5 6 if GraphResult<>grOk then begin write('Erreur : ',GraphErrorMsg(GraphResult)); Halt(0); end;
juste après le initgraph pour connaître l'erreur d'initialisation !

a+
27/11/2003, 20h42
Giovanny Temgoua

En général, turbo s'installe dans le reertoire c:\TP donc vérifie bien que le chemin du bgi est correct.Et puis en prenant Menu Debug - Output tu peux vérifier si effectivement le texte a été affiché... (sinon tu verras une phrase du genre, BGI graphics not initialized et cà voudra dire que le chemin du bgi est incorrect ou le .bgi est absent)
27/11/2003, 22h15
charly

Pour le mode graphique , il vaut mieu utiliser VBE2 qui est tres puissante et dispo sur se site ( et tres complete aussi )
28/11/2003, 09h14
haypo
Citation:
Envoyé par wormful_sickfoot

Si rien ne s'affiche, ca veut au contraire dire qu'il y a une erreur.
Rajoute la ligne

Code:

1 2 3 4 5 6 if GraphResult<>grOk then begin write('Erreur : ',GraphErrorMsg(GraphResult)); Halt(0); end;

juste après le initgraph pour connaître l'erreur d'initialisation !

a+
Halt(1); plutôt ...

(Dans TP) appuie sur ALT+F5 pour voir les résultats du programme.

Pour info, le BGI est chargé dans la mémoire dynamique. Il faut donc lui donner de la mémoire pour ça. Tu peux utiliser la macro (de tête) :

Code:

{$M 4096,0,150000}

@+ Haypo

Halt(0); Halt(1); ... Peu importe ! Halt tout court suffit, puisque le but est ici d'interrompre le programme.

Pour l'initialisation de la BGI, si on veut faire du travail propre, il faut toujours faire comme ça :
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 Gm, Gd, Ge: Integer; begin Gd := Detect; InitGraph(Gd, Gm, 'C:\TP7\BGI'); Ge := GraphResult; if Ge <> grOk then begin WriteLn('Erreur graphique (', Ge', ') : ', GraphErrorMsg(Ge)); Halt(Ge); end; ... CloseGraph; end.
A quelques détails prêts bien sûr...

Vérifie bien la présence du fichier EGAVGA.BGI dans le répertoire que tu as spécifié.

En cas d'erreur mémoire (erreur 5), alors :

1. Soit tu as modifié la config par défaut, dans ce cas remet-la (Options, Memory Size)

2. Soit tes fichiers de config ne laissent pas assez de RAM libre. Essaie de voir si tu ne peux pas optimiser tout ça (demande de l'aide si besoin est).

A+