Turbo pascal unité graph

Sonsam -  
Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. sonsam
     
    merci pour le coup de main, mais ça marche pas. je vais changer de compilateur voir!
    1
  2. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    salut,
    le problème est d'intreprétation graphique
    verifie que le fichier graph.tpu exit danle répertoire bin
    0
    1. sonsam
       
      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
  3. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    salut,
    Quelles sont les unités que vous avez dans le programme
    pour savoir plus sur votre programme
    0
    1. sonsam
       
      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
      1. KX Messages postés 19031 Statut Modérateur 3 020 > sonsam
         
        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
      2. watou Messages postés 241 Statut Membre 28 > sonsam
         
        salut

        essaie de faire " mode,plote:smallint "
        et " initgraph(mode,pilote,'c:\\') "
        0
  4. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    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
    1. watou Messages postés 241 Statut Membre 28
       
      j'ai essayé " InitGraph(mode, pilote, 'c:\\') " et ça marche !
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    fait ça
    InitGraph(mode, pilote, 'c:\TP7\bgi')
    vous allez voir
    0
  7. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    ce que vous propsé ne marche pas tjrs dans tous les cas
    0
    1. sonsam
       
      meci archi j'ai essayer InitGraph(mode, pilote, 'c:\TP7\bgi')
      et ça marche!
      0
  8. KX Messages postés 19031 Statut Modérateur 3 020
     
    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
  9. sonsam
     
    finalement j'ai essayer ceci :InitGraph(mode, pilote, 'c:\TP7\bgi'); et ça marche
    0
  10. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    bon chance
    0