Секундомер

← →
Fynjy1984 © (2005-10-14 10:04) [0]

Хочу организовать секундомер по типу такого:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var j:integer; begin if key=97 then begin stop:=time; label1.Caption:=formatfloat("00",round((stop-start)*24*60) mod 60)+ ":"+formatfloat("00",round((stop-start)*24*60*60) mod 60)+ "."+formatfloat("00",round((stop-start)*24*60*60*100) mod 100); end else if key = 110 then start:=Time; end;

Хотелось бы узнать насколько точно он будет оределять время между нажатиями. Я понимаю что это будет зависеть от компа и его загруженности. Положим что комп P2 366, а загруженность -> 0, могу ли я добиться точности 0.01 с?

← →
Ega23 © (2005-10-14 10:15) [1]

Положим что комп P2 366, а загруженность -> 0, могу ли я добиться точности 0.01 с?

Наверное сможешь.
Но гарантии тебе никто не даст.

← →
NightLord © (2005-10-14 12:53) [2]

Точности в 10 мс? Нет не сможешь, Т.к. проц обрабатывает сообшение всего 10мс, а у тебя чрез 10 уже след, а про Windows - забыл? даже если он не будет загружен всеровно проц будет обрабатывать его сообщения =)
Возьми 100мс уже будет лучще и сильно разницы не заметишь =)

← →
Ega23 © (2005-10-14 16:43) [3]

Т.к. проц обрабатывает сообшение всего 10мс,

Тебе не кажется, что ты на 3 порядка ошибся?

← →
0bsid (2005-10-14 21:07) [4]

var
h,m,s,ms:word;
begin
DecodeTime(now,h,m,s,ms);
ShowMessage(Format("%d:%d:%d.%d",[h,m,s,ms]));
end;

вместо now поставьте измеряемое время
точность до 1 мсек

Секундомер Найти похожие ветки