Диагностика авто. Задержка 25 мс на TX линию COM порта.

[poligon]

Здравствуйте. Необходимо подать импульс длиной 25 мс на передающую линию COM порта с точностью +/- 1 мс. После этого отправить в порт данные.

Для работы с COM портом использую компонент AsyncFree:

AfComPort1.Open;

timeBeginPeriod(1);  // повышаем точность таймера

SetCommBreak(AfComPort1.Handle);  // опускаем линию в 0
Sleep(25);  // ждем

ClearCommBreak(AfComPort1.Handle);  // поднимаем линию в 1
Sleep(25); // ждем

timeEndPeriod(1);

AfComPort1.PurgeRX;   // чистим входной буффер на всякий случай
AfComPort1.WriteData(StartCommunication, length(StartCommunication));  // отправляем запрос

В итоге смотрю логическим анализатором состояние линии - 0 держится ~ 15 мс, 1 держится ~ 26 мс. Что естественно не укладывается в допуск.

Пробую по другому:

var
  hTim: THandle;
  DueTime: Int64;
begin
  AfComPort1.Open;

  hTim:= CreateWaitableTimer(nil,false,nil);
  DueTime:= -250000;  // 250000 раз по 100 нс

  SetCommBreak(AfComPort1.Handle);
  SetWaitableTimer(hTim,DueTime,0,nil,nil,false);
  WaitForSingleObjectEx(hTim,infinite,true);

  ClearCommBreak(AfComPort1.Handle);
  SetWaitableTimer(hTim,DueTime,0,nil,nil,false);
  WaitForSingleObjectEx(hTim,infinite,true);

  AfComPort1.WriteData(StartCommunication, length(StartCommunication));

0 держится ~ 22 мс, 1 держится ~ 30 мс

Пробовал повышать приоритет процесса. Не помогает. Запустил одну из программ диагностики, написанную на Delphi, она дает на линию импульс ~ 25 мс и укладывается в допуск. Как они это сделали??

[min@y™]

Я написал (на основе чужих изысканий, признаюсь честно) чудесный класс - высокоточный таймер. Сам я работаю на военном заводе, тут народ тоже мучался, нужна была им задержка в несколько миллисекунд, никак они её не могли добиться, т.к. стандартные виндовые Sleep() и GetTickCount() на малых интервалах дают просто чудовищную погрешность - до 1600% (!!!). Погрешность получившегося таймера я особо не мерял, но людей устроило и устраивает до сих пор, никто не жаловался. Более того, говорят, что у них отлично получается отмерять и микросекунды.

Короче, могу подарить исходник (delphi и С++) с демо-примерами впридачу.

[poligon]

С удовольствием приму в дар

[min@y™]

Сообщение от poligon

С удовольствием приму в дар

Да пожалуйста.
Просьба: о результатах напиши сюда, мне интересно. И приложи характеристики процессора, на котором тестировал.

[poligon]

Спасибо. Сейчас протестирую

[poligon]

26 мс и 27 мс вместо 25 мс через функцию HRDelay.

Старенький ноутбук с процессором пентиум 4, 3.2 ГГц, система ХР. Смысл такой: настраиваю стандартный компонент Тimer чтобы он срабатывал с интервалом 500 мс. И в зависимости от режима в котором находимся либо дергаем линию и отправляем запрос, либо просто шлем запрос. Может такое быть из за того что я вызываю задержку в цикле обычного таймера? Или сам компонент для COM порта чудит?

var
  Mode: integer =0;
  {
   0 - коннект
   1 - запрос параметров 1
   2 - запрос параметров 2
   3 - запрос параметров 3
  }

...

procedure TForm1.N2Click(Sender: TObject);
begin
AfComPort1.Open;
StatusBar1.Panels.Items[0].Text:='Подключение...';
Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case mode of
  0: begin    // если в режиме подключения
     Timer1.Interval:=500;
     // Дергаем линию

     SetCommBreak(AfComPort1.Handle);
     HRDelay(25.0);
     ClearCommBreak(AfComPort1.Handle);
     HRDelay(25.0);

     AfComPort1.PurgeRX;
     CurrentPos:=0;
     AfComPort1.WriteData(StartCommunication, length(StartCommunication));
  end;
  1: begin   // если в режиме запроса параметров
     Timer1.Interval:=250;
     CurrentPos:=0;
     AfComPort1.WriteData(ReadData, length(ReadData));
  end;
  end;
end;

[min@y™]

И в зависимости от режима в котором находимся либо дергаем линию и отправляем запрос, либо просто шлем запрос. Может такое быть из за того что я вызываю задержку в цикле обычного таймера? Или сам компонент для COM порта чудит?

Да я хз, подёргай демо для С++, скриншотов понаделай на малых интервалах и покажи. Будем подумать. В любом случае, более точных способов измерения времени под windows я не знаю.
Функции работы с СОМ-портом тоже время занимают, так что можно, в принципе, и подогнать параметр для HRDelay().

upd: а ты померяй, кстати, методами THRTimer времена исполнения функций работы с портом!

З.Ы. HRDelay() - это таки функция, ты посмотри, что она в результате выдаёт, на всякий случай.

[poligon]

Сделал чередование задержек. Попробую на машине, подключится или нет. Функция THRTimer выдает дробные значения задержки.

case mode of
  0: begin
     Timer1.Interval:=500;
     // Дергаем линию
     case Conn of
     0: begin
        SetCommBreak(AfComPort1.Handle);
        HRDelay(25.0); 
        ClearCommBreak(AfComPort1.Handle); 
        HRDelay(24.0); 
        Conn:=1;
        end;
     1: begin
        SetCommBreak(AfComPort1.Handle); 
        HRDelay(24.0); 
        ClearCommBreak(AfComPort1.Handle); 
        HRDelay(23.0); 
        Conn:=0;
        end;
     end;

[min@y™]

Функция THRTimer выдает дробные значения задержки.

Правильно, оно ж Double-типа.
Какие значения-то? Составь небольшую таблицу эксперимента в 2 столбца: "на входе функции", "на выходе функции". Во 2-й столбец пиши значения с точностью до 3-4 знаков после точки. Попробуем выявить математический закон изменения погрешности эмпирическим методом.

[min@y™]

ты померяй методами THRTimer времена исполнения функций работы с портом.