Algorithmus "events pro Stunde"

[t.roller]

Wenn die Events tatsächlich REGELMÄSSIG auftreten, muss man sie beispielsweise nur für einen BESTIMMTEN ZEITRAUM (z.B. 10 min) zählen und mit 6 multiplizieren.
Wenn sie UNREGELMÄSSIG auftreten, zählt man 10 Minuten lang, multipliziert man mit 6, zählt wieder 10 Minuten lang, multipliziert mit 3, zählt wieder 10 Minuten lang, multipliziert mit 2.
Dann wird die Anzeige ziemlich genau.

Kleiner Test mit der SPACE-Taste - wertet nur 2 Intervalle aus:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
a1:= 0; a2:= 0; a3:= 0; // globale var
Form1.Tag:=0;
end;
// KeyPreview:= TRUE;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Form1.Tag>2 then BEGIN
Label1.Caption:= INTTOSTR(((a3-a2)+(a2-a1))div 2)+' msec';
Form1.Tag:=0;  a1:= 0; a2:= 0; a3:= 0;
END;
Form1.Tag:= Form1.Tag + 1;
case Form1.Tag of
1: a1:= GetTickCount;
2: a2:= GetTickCount;
3: a3:= GetTickCount;
end;
end;