Turbo pascal unité graph
Bonjour,j'ai essayer un example du menu help en mode graph je compile pas d'erreurs mais run n'affiche rien .j'ai écrit readln; avant END.,mais toujours rien. J'avais précédament erreur not found graph in TPU et je suis allé dans menu>file>charge dir et configuré driver>c:\program~\tp7\units et l'erreur ne s'affiche plus mais run n'execute pas.que faire
Configuration: Mac OS X windows xp2
9 réponses
-
bon chance
-
finalement j'ai essayer ceci :InitGraph(mode, pilote, 'c:\TP7\bgi'); et ça marche
-
ModérateurTu essayais de le faire marcher sur ton Mac OS X, ou sur ton Windows XP 2 ? Cela vient peut-être de là aussi...
-
merci pour le coup de main, mais ça marche pas. je vais changer de compilateur voir!
-
ce que vous propsé ne marche pas tjrs dans tous les cas
-
fait ça
InitGraph(mode, pilote, 'c:\TP7\bgi')
vous allez voir -
salut ,
InitGraph(mode, pilote, 'c:\.......\bgi')
tu dois indique partidu répertoire (......) ou se trouve le repertoire BGI
exemple si le répertoire est TP7 donc
InitGraph(mode, pilote, 'c:\TP7\bgi') -
salut,
Quelles sont les unités que vous avez dans le programme
pour savoir plus sur votre programme-
Salut! voici un example essayé mais qui ne marche pas avec mon tp7.
Program coquille ;
Uses Graph ;
Var r, a, mode, pilote : Integer ;
BEGIN
mode := Detect ;
InitGraph(mode, pilote, 'c:\bp\bgi') ;
SetColor(14) ;
r := 0 ;
Repeat
Inc(r, 8) ;
Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ;
Until r>360 ;
ReadLn ;
CloseGraph ;
END.
Avez-vous d'autres à me proposer? je pourrai les essayer. -
Modérateur@sonsamEssaye ce code :
Program coquille ; Uses Graph ; Var r, mode, pilote : SmallInt; BEGIN mode := Detect ; InitGraph(mode, pilote, 'c:\bp\bgi') ; SetColor(14) ; r := 0 ; Repeat Inc(r, 8) ; Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ; Until r>=360 ; ReadLn ; CloseGraph ; END.
--
La confiance n'exclut pas le contrôle -
-
-
salut,
le problème est d'intreprétation graphique
verifie que le fichier graph.tpu exit danle répertoire bin
