home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / tricks / uhrtest.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-03-22  |  1.7 KB  |  59 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   UHRTEST.PAS                          *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM Uhrtest;
  5.  
  6. USES Crt, Stoppuhr;
  7.  
  8. VAR a,b    : ChronoPtr;                       { Stoppuhren }
  9.     za,zb  : REAL;
  10.     ch     : CHAR;
  11.     fertig : BOOLEAN;
  12.  
  13. BEGIN
  14.                                {-- Stoppuhren einrichten --}
  15.   NewChronometer(a);   NewChronometer(b);
  16.   ResetChronometer(a); ResetChronometer(b);
  17.   ClrScr;
  18.   GotoXY(20,1); Write('  Uhr 1 ');
  19.   GotoXY(40,1); Write('  Uhr 2 ');
  20.   za := 0;  GotoXY(20,3);  Write(za:6:2);
  21.   zb := 0;  GotoXY(40,3);  Write(zb:6:2) ;
  22.   GotoXY(1,5);  Write('START MIT ');
  23.   GotoXY(22,5); Write('s') ;
  24.   GotoXY(42,5); Write('S') ;
  25.   GotoXY(1,6);  Write('RESET MIT ');
  26.   GotoXY(22,6); Write('r') ;
  27.   GotoXY(42,6); Write('R') ;
  28.   GotoXY(1,7);  Write('STOP  MIT ');
  29.   GotoXY(22,7); Write('h') ;
  30.   GotoXY(42,7); Write('H') ;
  31.   GotoXY(1,9);
  32.   Write('Demonstration mit <SPACE> beenden');
  33.  
  34.   fertig := FALSE;  ch := 'x';
  35.   WHILE NOT fertig DO BEGIN
  36.     IF KeyPressed THEN ch := ReadKey;
  37.     CASE ch OF
  38.       's' :  StartChronometer(a);
  39.       'S' :  StartChronometer(b);
  40.       'h' :  StopChronometer(a) ;
  41.       'H' :  StopChronometer(b) ;
  42.       'r' :  ResetChronometer(a);
  43.       'R' :  ResetChronometer(b);
  44.       ' ' :  fertig := TRUE ;
  45.     ELSE { nichts } ;
  46.     END ;
  47.     ch := 'x';
  48.     ReadChronometer(a, za);
  49.     ReadChronometer(b, zb);
  50.     GotoXY(20,3);  Write(SecToTime(za));
  51.     GotoXY(40,3);  Write(SecToTime(zb));
  52.   END;
  53.   DisposeChronometer(a);
  54.   DisposeChronometer(b);
  55. END.
  56. (* ------------------------------------------------------ *)
  57. (*                Ende von UHRTEST.PAS                    *)
  58.  
  59.