Discussion :

[GodGives]

Bonsoir chers collègues!

J'aimerais passer du mode texte de tp 7 en mode graphique; j'ai utilisé initgraph avec les 3 arguments, la résolution, le mode et le chemin du répertoire bgi mais cela ne fonctionne pas.
voici le code:

Code :

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

1
2
3
 
G:=detect;
initgraph(G, mode, 'c:\tp7\bgi');

j'avais déjà déclaré G et mode comme des entiers;

Merci pour votre aide!!!

[M.Dlb]

Qu'est-ce qui ne fonctionne pas ? Tu peux être plus précis ? Code d'erreur obtenu / message obtenu ?

[darrylsite]

J'ai longtemps eu des probl7mes avec l'unité graph avant de comprendre comment ça fonctionne.
D'abord? tu dois "déclarer" l'unité graph : uses gaph; juste apres program ...;
Ensuite, dans initgraph tu dois montrer le chemin du dossier bgi. Bien veiller à indiquer le chemin correctement.
Dans le code suivant, mon dossier tp7 se trouve sur le disque D dans le dossier tp.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
program graphique;
 uses graph,crt;
 var mode,pilote:integer;
 begin
 mode:=detect;
 pilote:=0;
 initgraph(mode,pilote,'D:\tp\tp7\bgi');
 cleardevice;{efface l' ecran}
 setcolor(2);
 line(0,0,400,400);
 repeat until keypressed;
closegraph;
end.

Ce sera plus simple pour t'aider, si le probleme persiste, d'indiquer quel type d'erreur tu as eu en exécutant le programme.

[GodGives]

Merci pour votre aide et veuillez m'excuser pour le retard!

Cela ne renvoyait aucun message d'erreur; il met tout simplement fin à mon programme alors que je devrais voir mon graphe et appuyer sur une touche pour quitter ledit programme!

Cela peut être du à la non initialisation de pilote à zéro!

Je vous tiens au courant!

[krachik]

bonjour si tu veux voir le message d'erreur
quand tu execute maintien les touches Ctrl+F9 appuyées au moins plus de 5 sec ou plus et tu veras l'erreur c'est ça disparais aussi tot ou bien pour faire plus simple apres avoir executer ton code graphique execute un code simple sans effacer l'ecran d'execution comme ça tu veras la derniere execution passé
mais je crois que ça doit etre une non initialisation de ta carte graphique ou bien regarde aussi dans l'aide en ligne de pascal
@+

[darrylsite]

Essaie de mettre le fameux :
repeat
until keypressed;
à la fin de ton programme pour pouvoir voir l' ecran avant que le programme ne s' arrete. keypressed est definie dans l' unité crt.

[GodGives]

darrylsite
Essaie de mettre le fameux :
repeat
until keypressed;
à la fin de ton programme pour pouvoir voir l' ecran avant que le programme ne s' arrete. keypressed est definie dans l' unité crt.

j'ai cette instruction à la fin de mon programme mais malgré ce fait, il sort toujours!

krachik
bonjour si tu veux voir le message d'erreur
quand tu execute maintien les touches Ctrl+F9 appuyées au moins plus de 5 sec ou plus et tu veras l'erreur c'est ça disparais aussi tot ou bien pour faire plus simple apres avoir executer ton code graphique execute un code simple sans effacer l'ecran d'execution comme ça tu veras la derniere execution passé
mais je crois que ça doit etre une non initialisation de ta carte graphique ou bien regarde aussi dans l'aide en ligne de pascal
@+

Je vais donc voir du côté de la carte graphique!

Merci à tous.

[Flagada]

Quand ton programme s'arrete, tu peut appuyer ALT F5, pour voir l'ecran qui existait avant l'arret d'execution. Comme ca tu peut voir le message d'erreur.