Turbo pascal unité graph

Fermé
Sonsam - 24 juil. 2008 à 14:54
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 - 30 juil. 2008 à 03:13
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
A voir également:

9 réponses

Réponse 1 / 9
sonsam
29 juil. 2008 à 01:14
merci pour le coup de main, mais ça marche pas. je vais changer de compilateur voir!
1
Réponse 2 / 9
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
24 juil. 2008 à 18:29
salut,
le problème est d'intreprétation graphique
verifie que le fichier graph.tpu exit danle répertoire bin
0
sonsam
25 juil. 2008 à 21:32
Merci Archi!
Dans BIN le fichier graph tpu n'existait pas, alors je uis allé copier les deux fichiers graph.tpu qui existaient
dans le repertoir UNITS et coller dans le repertoire BIN mais le problème n'a pas changé. run n'execute toujours pas.
0
Réponse 3 / 9
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
26 juil. 2008 à 04:54
salut,
Quelles sont les unités que vous avez dans le programme
pour savoir plus sur votre programme
0
sonsam
28 juil. 2008 à 01:36
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.
0
KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 3 020 > sonsam
28 juil. 2008 à 01:40
Essaye 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 
0
watou Messages postés 199 Date d'inscription vendredi 27 juin 2008 Statut Membre Dernière intervention 19 avril 2013 28 > sonsam
28 juil. 2008 à 01:56
salut

essaie de faire " mode,plote:smallint "
et " initgraph(mode,pilote,'c:\\') "
0
Réponse 4 / 9
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
28 juil. 2008 à 02:09
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')
0
watou Messages postés 199 Date d'inscription vendredi 27 juin 2008 Statut Membre Dernière intervention 19 avril 2013 28
28 juil. 2008 à 02:25
j'ai essayé " InitGraph(mode, pilote, 'c:\\') " et ça marche !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
28 juil. 2008 à 02:27
fait ça
InitGraph(mode, pilote, 'c:\TP7\bgi')
vous allez voir
0
Réponse 6 / 9
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
28 juil. 2008 à 02:29
ce que vous propsé ne marche pas tjrs dans tous les cas
0
sonsam
30 juil. 2008 à 00:32
meci archi j'ai essayer InitGraph(mode, pilote, 'c:\TP7\bgi')
et ça marche!
0
Réponse 7 / 9
KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 3 020
29 juil. 2008 à 12:03
Tu essayais de le faire marcher sur ton Mac OS X, ou sur ton Windows XP 2 ? Cela vient peut-être de là aussi...
0
Réponse 8 / 9
sonsam
30 juil. 2008 à 00:26
finalement j'ai essayer ceci :InitGraph(mode, pilote, 'c:\TP7\bgi'); et ça marche
0
Réponse 9 / 9
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
30 juil. 2008 à 03:13
bon chance
0

Discussions similaires

turbi sim ou débloquage officielle ?
fouiny baby -
fouiny baby -

4 réponses
les avantages et inconvenient des modeles
allen -
kwaio -

1 réponse
unité de taille pour un fichier audio au format MP3
wesh69 -
jeannets -

2 réponses
Comment faire télécharger un fichier audio mp3
scoth19 -
backnight -

2 réponses
Taille fichier audio
kar57 -
sos -

9 réponses