Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: 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 вся ветка

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
4-1125428752
deamon_t
2005-08-30 23:05
2005.11.06
Програмно выключить монитор


4-1126063936
Strech
2005-09-07 07:32
2005.11.06
Заголовочные файлы от Setupapi. lib/dll


9-1118496600
Cerberus
2005-06-11 17:30
2005.11.06
Cоздание RPG


4-1125491487
Black Krok
2005-08-31 16:31
2005.11.06
Исчерпание ресурсов Windows


14-1129121709
Сергей Орлик
2005-10-12 16:55
2005.11.06
Delphi 2006 or C++Builder 2006 or C#Builder 2006 = BDS 2006