home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / hitech / zeitdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-01  |  1.1 KB  |  34 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    ZEITDEMO.PAS                        *)
  3. (*             Test des Moduls ZeitMess                   *)
  4. (*         (c) 1989  Ulrich Telle  &  TOOLBOX             *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM ZeitDemo;
  7.  
  8. USES Crt, Dos, ZeitMess;
  9.  
  10. VAR
  11.   j, n   : LONGINT;
  12.   T1, T2 : SuperZeit;
  13.  
  14. BEGIN
  15.   REPEAT
  16.     WriteLn;
  17.     WriteLn('Test für genaue Zeitmessung mit ZeitMess');
  18.     WriteLn('----------------------------------------');
  19.     WriteLn;
  20.     WriteLn('Laufzeitermittlung einer Delay-Anweisung');
  21.     Write ('Bitte Wartezeit in Millisekunden angeben ',
  22.            '(< 0 = Ende) : ');
  23.     ReadLn(n);
  24.     IF n >= 0 THEN BEGIN
  25.       ZeitLesen(T1);  Delay(n);  ZeitLesen (T2);
  26.       WriteLn;
  27.       WriteLn('Delay(', n, ') dauert ',
  28.               ZeitDauerString(T1, T2),' Millisekunden.');
  29.     END;
  30.   UNTIL n < 0;
  31. END.
  32. (* ------------------------------------------------------ *)
  33. (*                Ende von ZEITDEMO.PAS                   *)
  34.