Прошу помочь мне в таком важном для меня деле, как выполнение простых действий каждые 50-100 микросекунд (10-20 кГц). У меня на LPT-порте висит железяка, которую нужно опрашивать, и строить графики по этим данным - зависимость измеряемого напряжения от времени... Как выполнять команду "In port, Data" через эти проклятые 100 микросекунд?

Цитата

Как выполнять команду "In port, Data" через эти проклятые 100 микросекунд?

Если точно через 100 то никак. Среда многозадачная.

Может быть попытаться эту железяку к звуковухе подцепить, точнее сам источик сигнала? или LPT нужен обязательно?

Courier, можно сделать примерно так:

Код

var  NeedFreq, TimerFreq, Count0, Count1, Count2, CountEnd, Period : Int64; begin  NeedFreq := 100; // требуемая частота в мкс  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);  QueryPerformanceFrequency(TimerFreq);  Period := NeedFreq * TimerFreq div 1000000;  QueryPerformanceCounter(Count1);  CountEnd := Count1 + Period * 10000; // время цикла = 1 с  repeat    Count2 := ((Count1 div Period) + 1) * Period;    repeat      Data := < чтение порта >;      Count0 := Count1;      QueryPerformanceCounter(Count1);    until Count1 >= Count2;    if (Count1 - Count2) <= Abs(Count0 - Count2) then Data := < чтение порта >;    < занесение Data в буффер для дальнейшего построения графика >;  until Count1 >= CountEnd; end;

Давно мучал вопрос, насколько велика погрешность в таких случаях из-за многозадачности. Поэтому решил проверить собственноручно. Поясню на "картинке":

Код

Count0          Count1               |                | 0             | 100=Count2     |  200 |             |  |             |   | ------------------------------------------>t, мкс              80               170               <================>                    (Разрыв)

Тут изображен случай, когда на 80 mkсекунде произошло переключение задачи, и выполнение вернулось на 170 mkсекунде.
Программе же требуется замерить данные на 100-ой mkсекунде. Ближайшее замеренное значение - на 80мкс. Его и берем. И так продолжается дальше. Разрывы происходят не так часто (при повышенном приоритете - за 1 секунду всего 40 раз произошли "ощутимые" переключения)...
Ниже приведены результаты теста. По незнанию, как назвать некоторые параметры, обозвал их так:
Переключений задач - сколько обнаруженных переключений произошло за время цикла (обнаружились из-за того, что перескочили во времени за нужный интервал).
Положительная погрешность - разница между текущим временем и требуемым (на рис.: 170-100=70 мкс)
Отрицательная погрешность - разница между требуемым и предыдущем значением времени (на рис.: 100-80=20 мкс)
Просто погрешность - выбирается в каждом такте цикла как наименьшее из полож. и отриц. погрешностей
Пропущеных тактов - сколько пропущено тактов цикла из-за "долгих" чужих процессов. Например, если бы на рисунке выполнение программы продолжилось не на 170 мкс, а на 370 мкс, то было бы пропущено 2 такта.

Результаты:

Код

ОС = WinXP Частота таймера = 3,58 МГц Время цикла = 1 с Время такта = 100 мкс                             | Norm | High | R-T ----------------------------+------+------+----- Переключений задач          | 280  | 160  | 35 Пропущеных тактов           | 600  | 55   | 3 Сред. пол. погрешность, мкс | 200  | 60   | 27 Сред. отр. погрешность, мкс | 40   | 40   | 20 Сред. погрешность, мкс      | 35   | 25   | 12 Макс. пол. погрешность, мкс | 2000 | 250  | 210 Макс. отр. погрешность, мкс | 99   | 99   | 95 Макс. погрешность, мкс      | 99   | 90   | 75 Norm = Нормальный приоритет процесса High = Высокий приоритет процесса R-T = Real-Time приоритет процесса

Это сообщение отредактировал(а) p0s0l - 17.3.2004, 22:59

Для таких задач надо подумать о смене оси на QNIX

Или возложить эти функции на внешний контроллер. Т.е. контроллер работает в реальном времени в синхронном режиме, а управление им и обмен информации осуществляется с персоналки асинхронно.

to p0s0l Для какого процессора приведены данные в таблице? Как влияет применение более слабого/сильного процессора?

[s]remax, Athlon2000.
Тут зависит от нагрузки системы/типов выполняемых задач/самой ОС. Например, вылез в инет, но всё лишнее поснимал из процессов - и с RealTime приоритетом получилось 200 пропущенных тактов (вместо прежних 35), поднялась макс. положит. погрешность до 700, хотя остальные параметы остались как были...

Вот, если кто сам захочет у себя сделать замеры - исходник проги (5 кб)...

Присоединённый файл ( Кол-во скачиваний: 12 )
 HighFreqTimer.zip