Пауза
Как грамотно приостановить работу программы на N микросекунд?
procedure wait(sec:single);
var
tick,count1,count2:int64;
begin
QueryPerformanceFrequency(Tick);-время одного изменения count.
QueryPerformanceCounter(count1);
repeat
QueryPerformanceCounter(count2);
until (count2-count1)/tick>=sec;
end;
у меня на компе (P3 800Mhz) можно засечь 1.4 микросекунды - квант времени.
var
tick,count1,count2:int64;
begin
QueryPerformanceFrequency(Tick);-время одного изменения count.
QueryPerformanceCounter(count1);
repeat
QueryPerformanceCounter(count2);
until (count2-count1)/tick>=sec;
end;
у меня на компе (P3 800Mhz) можно засечь 1.4 микросекунды - квант времени.
sleep(n) - и все...
Цитата:
On 2002-04-05 1703, PropellerMan wrote
procedure wait(secsingle);
var
tick,count1,count2int64;
begin
QueryPerformanceFrequency(Tick);-время одного изменения count.
QueryPerformanceCounter(count1);
repeat
QueryPerformanceCounter(count2);
until (count2-count1)/tick>=sec;
end;
у меня на компе (P3 800Mhz) можно засечь 1.4 микросекунды - квант времени.
Ты засекал?)
Я когда пробовал баловаться с временными счётчиками, то точно программно установить время счётчика не удаётся, чтобы к примеру событие происходило например ровно через 10 мин. Приходится экспериментально смотреть чему примерно равен интервал дискретности.
Вот так.