Скачать: CL | DM;

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

← →
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 мсек

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c