¼ö¿ø¼º (°°æ¼ö)
|
|
ÂüÁ¶·Î Test Çغ½.
procedure TForm4.Button2Click(Sender: TObject);
var
c1, c2, f: Int64;
I, n, n2, n3: Integer;
begin
QueryPerformanceFrequency(f);
Memo1.Lines.Clear;
QueryPerformanceCounter(c2);
for I := 0 to 10 do
begin
QueryPerformanceCounter(c1);
n3 := Random(10);
Sleep(n3); // ¼Û½Å ½Ã°£ CanTx($1D3, cbuf);
n := Round((c1 - c2) * 1000 / f);
if (n > 20) and (n < 40) then
n2 := 40 - n
else if (n >= 40) and (n < 80) then
n2 := 1
else n2 := 20;
Sleep(n2);
Memo1.Lines.Add(format('%d, Comm:%d, Delay:%d,', [n, n3, n2]));
c2 := c1;
end;
end; 2020-05-12 ¿ÀÈÄ 6:54:41
|
|