Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Задержки ? [D6, WinME]

МИФИст © (2002-01-10 22:25:00)
Искал, искал...так и не нашёл, как же сделать задержку в микросекундах, достаточно точную. Пытался сделать с помощью GetTickCount, да что то не очень. Например, NOP выполняется от 1.2мкс до 1.8мкс, это разве хорошо? не знаю что взять привязаться за эталон, короткой задержки(~1мкс или меньше), слышал, что кто-то делал с точностью до десятков наносекунд.
Заранее благодарю. =)

Slaventius (2002-01-13 02:48:00) [1]
У Mbo всё отлично в ответе. Но могу дать пару советов (практических конечно :) ).

1. QueryPerformanceFrequency для РС всегда возвращает 1.193 МГц (или около того.. не помню точно). То есть 1 тик проходит ~0.8 микросекунд. То есть можно чуть оптимизировать алгоритм приведя задержку из времени в количество тиков. Деление что ни говори операция емкая...
2. Для увеличения точности, повысить исполняемому процессу приоритет. Что бы другие операции не так влияли на точность измерений. (полностью этого не избежать :( увы).
3. В любом случае - погрешность всё равно будет... На PII 266Mhz добивался точности измерений сигналов с периодом от 200мкс. И то.. Если винда дергала винтом, то возникали провалы в измерениях до 500 мс.. :-( Поэтому внешнее измеренее пожалуй самое правильное решение.

SoftOne (2002-01-12 02:57:00) [2]
2 Mbo © (11.01.02 14:46)
Из всех ответивших, Вы дали самый "лучший" ответ,
однако, как МИФИст, замечу, что для реальных физических измерений, зто врядли подходит.
Ещё раз, для реальных физических измерений, Windows просто не в дугу. DOS - ещё куда не шло. НО единственно грамотный способ - работать с внешним или внутрениим устройством, которое измеряет в реальном времени, а уж потом, при случае скидывает данные в компьютер.
Тут, кстати, можно перейти и к наносекундам, как спросил автор вопроса.

Хакеренок (2002-01-11 18:39:00) [3]
Вот тебе - Sleep(0,001) и все тут !!! А вы мучились :))))))))

Mbo (2002-01-11 14:46:00) [4]
var QW : TLargeInteger;

QueryPerformanceFrequency(QW);
ClockRate := QW.QuadPart;
QueryPerformanceCounter(QW);
StartTime := QW.QuadPart;
repeat
//Application.ProcessMessages;
QueryPerformanceCounter(QW);
TimeElapsed:=(QW.QuadPart - StartTime)/ClockRate;
until TimeElapsed ...

MegaVolt (2002-01-11 13:58:00) [5]
Вот принёс :)
var uTimerId:UINT; //Старт таймер где: //mS-Время в миллисекундах //Error_mS допустимая ошибка формирования временного интервала в милисекундах //RecVirtual функция вызываемая по срабатыванию таймера описывается так: //procedure RecVirtual(uTimerID, uMessage: Uint; dwUser, dw1,dw2: DWORD) stdcall; uTimerID:=TimeSetEvent(mS,Error_mS,@RecVirtual,100,time_periodic); //Стоп timeKillEvent(uTimerID);

Пользуйтесь на здоровье :)

Dimka Maslov (2002-01-11 11:56:00) [6]
Windows.Sleep(dwMilliseconds)

andrucco (2002-01-11 11:30:00) [7]
Юзай API для Performance Counter

MegaVolt (2002-01-11 10:06:00) [8]
Принесу ответ после 12:00 :)

Beauty_Full (2002-01-11 04:02:00) [9]
Multimedia Timer my friend !

SoftOne (2002-01-11 01:25:00) [10]
Я тоже МИФИст, но УВЫ помочь не могу! В микросекундах - могу лишь дать совет для DOS. Причем не очень простой.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »