home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / graphen.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-19  |  2.5 KB  |  72 lines
  1. PROGRAM Graphenauswertung;
  2.  
  3. { ----------------------------------------------------------------- }
  4. { Dieses Programm wertet eine ASCII Datei aus, in welcher die       }
  5. { Wertetabelle einer Funktion steht. Diese Wertetabelle muss        }
  6. { vorher durch ein anderes Programm erzeugt werden.                 }
  7. {               - Sprache : TURBO-Pascal Vers. 4.0  (3.0)           }
  8. {               - Copyright (c) 1989  Heinz Hagemeyer & TOOLBOX     }
  9. {                                                                   }
  10. { ----------------------------------------------------------------- }
  11.  
  12. USES  Crt,Graph,     { Einbinden der benötigten Units von Turbo 4.0 }
  13.       pgraph;        { und aus Databox 12/88 (leicht geändert)      }
  14.  
  15. {$I GraphDef.PAS   Konstanten, Typen und Variablen                  }
  16. {$I  GraphUt.PAS   Proceduren und Funktionen                        }
  17.  
  18. { ----------------------------------------------------------------- }
  19.  
  20. BEGIN                   { Main }
  21.      { Vorbesetzen der Variblen auf Standartwerte, ist ggf. zu ändern }
  22.  
  23.      x1 := -4; x2 := 4; y1 := -3; y2 := 3; xBez := 'x'; yBez := 'y';
  24.      c := 'N';
  25.  
  26.      { Falls Dateinamen beim Aufruf mit übergeben wurden }
  27.  
  28.      DateiAnzahl := ParamCount;
  29.      IF DateiAnzahl > MaxDateiAnzahl THEN DateiAnzahl := MaxDateiAnzahl;
  30.      FOR i := 1 TO DateiAnzahl DO  Datei_Name [i] := ParamStr (i) ;
  31.  
  32.      REPEAT
  33.            Einschaltmeldung;
  34.            DateiEingabe (DateiAnzahl);
  35.            WaehleKoordsys (x1,x2,y1,y2,xBez,yBez);
  36.  
  37.            { Ab hier geht's mit Grafik weiter }
  38.  
  39.            IF c = 'N' THEN OpenGraphik
  40.                       ELSE SetGraphMode (GraphMode);
  41.  
  42.            { Überschrift }
  43.  
  44.            SetTextJustify (LeftText,TopText);
  45.            SetTextStyle (3,0,2);
  46.            OuttextXY (300,0,'Wertetabellen darstellen');
  47.            OutTextXY (0,0,'Datei :');
  48.  
  49.            Koordinatensystem (x1,x2,y1,y2,xBez,yBez);
  50.            KordViewPort;
  51.  
  52.            FOR DateiNr := 1 TO DateiAnzahl DO
  53.                 Zeichne_Graph (DateiNr);
  54.  
  55.            { Fertig, Abfrage noch einmal ? }
  56.  
  57.            SetViewPort (0,GetMaxY-10,GetMaxX,GetMaxY,ClipOn);
  58.            SetTextStyle (0,0,1); SetTextJustify (LeftText,TopText);
  59.            OuttextXY (0,0,'Noch einmal (J/N) : '); Write (#07);
  60.  
  61.            REPEAT
  62.                  c := UpCase (ReadKey);
  63.            UNTIL (c = 'J') OR (c = 'N');
  64.            IF c = 'J' THEN
  65.            BEGIN
  66.                 RestoreCRTMode;
  67.                 Window (1,1,80,25);
  68.            END;
  69.      UNTIL c = 'N';
  70.      CloseGraphik ;
  71. END.
  72.