home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / hitech / period1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-10  |  1.7 KB  |  41 lines
  1. (**********************************************************)
  2. (*                                                        *)
  3. (*                Filename PERIOD1.PAS                    *)
  4. (*                                                        *)
  5. (*       TOOLBOX-Spezial III  Echtzeitverarbeitung        *)
  6. (*                                                        *)
  7. (*        (C) TOOLBOX und Thomas Lang 1988                *)
  8. (*                                                        *)
  9. (*   Dieses File enthält die Bearbeitung der Periodic1    *)
  10. (*   bei dem Testprogramm Test02. Die Aufgabe besteht     *)
  11. (*   darin, das EndeFlag zu setzen und einige Teile       *)
  12. (*   mit Hilfe des Debuggers (Log-Prozeduren) ins         *)
  13. (*   LogFile oder auf dem Bildschirm auszugeben.          *)
  14. (*                                                        *)
  15. (**********************************************************)
  16.  
  17. Var IX:Byte;
  18.  
  19. Procedure PPeriodic1;         (* TestAufgabe, die Per1 *)
  20. Var                           (* verwendet *)
  21.    BelastungReal:Real;
  22. Begin
  23.    Ende:=True;                (* setzt Ende für Scheduler *)
  24.    PLogText('Belastungszaehler: Hoch ');
  25.    PLogInteger(Belastungszaehler.AnteilHoch);
  26.    PLogLn;
  27.    PLogText('                   Niedrig ');
  28.    PLogInteger(Belastungszaehler.AnteilNiedrig);
  29.    PLogLn;
  30.    BelastungReal:=DWinReal(Belastungszaehler);
  31.    PLogText('Real Wert: ');
  32.    PLogReal(BelastungReal);
  33.    PLogLn;
  34.    BelastungReal:=BelastungReal/(100.0*60.0*10.0);
  35.    PLogText('ergibt ');
  36.    PLogReal(100.0*BelastungReal);
  37.    PLogText(' Durchläufe in 1/10000 Sek.
  38.                                   (=NullBelastung * 100)');
  39.    PlogLn;
  40. End;
  41.