Управление ШД через LPT - порт

[remz]

Здравствуйте!
У меня возникла такая проблема, я написал программу, которая заставляет вращаться шаговый двигатель в оба направления, использовалась библиотека "inpout32.dll", вот исходный код процедур вращения двигателя:
1) вращение по часовой стрелке

procedure TForm1.Button3Click(Sender: TObject);
var
i,n : integer;
begin
n := StrToInt(Edit2.Text);
for i := 1 to n do
begin
Out32($378,0);
Sleep(1);
Out32($378,5);
end;
end;

2) против часовой

for i := 1 to n do
begin
Out32($378,0);
Sleep(1);
Out32($378,7);
end;

Полный оборот двигателя - это 1000 шагов, в данной программе n - количество шагов. Можно ли ускорить выполнение этих циклов?

Пробовал запустить так:

for i := 1 to n do
begin
Out32($378,0);
Out32($378,7);
end;

то блок управления, через который идут сигналы на двигатель, не успевает обработать сигналы. Подскажите, как быть?

[mihali4]

Так вы же задаете 1 миллисекунду (Sleep(1) всего.
У вас за сколько двигатель делает один шаг?
Явно - не за 1 миллисекунду... Гораздо дольше.
Так что вариант только один - другой, более быстроходный двигатель.

[raxp]

for i := 1 to n do
begin
Out32($378,0);
Out32($378,7);
end;

то блок управления, через который идут сигналы на двигатель, не успевает обработать сигналы. Подскажите, как быть?

если вы уверены что сигналы таки идут и причина именно в блоке управления:
1) какова частота импульсов поступающих в блок (осциллографом смотрели)?
2) всегда можно использовать делитель частоты

[DeKot]

К сожалению, значение оператора Sleep(1) не соответствует 1 мсек. Нижний порог оператора Sleep , как и таймера VCL( вкладка Standart) порядка 55-64 мсек (зависит от "железа").Поэтому задержку цикла Слипом здесь не желательно применять. Лучше таймер, и не обычный, а точный (была тема здесь на форуме).
http://www.programmersforum.ru/showt...E0%E9%EC%E5%F0
Второе -

Полный оборот двигателя - это 1000 шагов

.
Насколько я знаю, у ШД шаг поворота - 1,0 ; 1,5 ; 2,0 ; 2,5 градусов ( редко встречается 0,75).Рабочие частоты сигналов управления ШД - от 0 до 1500-2000 Гц.
Третье - попробуйте в качестве задержки вложенный цикл

for i := 1 to n do
begin
Out32($378,0);
   for j := 1 to M do  // М - подбирать для конкретного "железа"
   begin
     Inc(count);  // Оператор инкремента для заполнения цикла по J
   end;
Out32($378,7);
end;

Не очень изящный способ, но вполне работает.
Вы бы привели паспортные параметры ШД и основные требования к устройству.

[remz]

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

Так вы же задаете 1 миллисекунду (Sleep(1) всего.
У вас за сколько двигатель делает один шаг?
Явно - не за 1 миллисекунду... Гораздо дольше.
Так что вариант только один - другой, более быстроходный двигатель.

например, программа Stepmotor_LPT http://electroprivod.ru/program.htm выдает гораздо большую скорость, так что быстроходность двигателя тут не при чем.

[remz]

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

http://www.programmersforum.ru/showt...E0%E9%EC%E5%F0
Второе - .
Насколько я знаю, у ШД шаг поворота - 1,0 ; 1,5 ; 2,0 ; 2,5 градусов ( редко встречается 0,75).Рабочие частоты сигналов управления ШД - от 0 до 1500-2000 Гц.
Третье - попробуйте в качестве задержки вложенный цикл

for i := 1 to n do
begin
Out32($378,0);
   for j := 1 to M do  // М - подбирать для конкретного "железа"
   begin
     Inc(count);  // Оператор инкремента для заполнения цикла по J
   end;
Out32($378,7);
end;

Не очень изящный способ, но вполне работает.
Вы бы привели паспортные параметры ШД и основные требования к устройству.

Ок, спасибо, завтра стоит попробовать, используется двигатель Siemens FMStepDrive Simostep 1FL3043-0AC31-0BG0
На блоке управления выставлен 1 оборот двигателя, как 1000 шагов, я не в праве менять это значение

[DeKot]

Если ваш блок управления (коммутатор) распределяет входные импульсы управления по четырем обмоткам, то тогда это реально - при шаге 1,5 град. 240 х 4 = 960 имп \ об.Хотя я работал с коммутаторами, преобразующими 1 управляющий импульс на входе коммутатора в 4-е импульса управления на сам двигатель.

Набросал программку управления ШД ( во вложении).
В Edit-ах устанавливаете количество шагов и частоту импульсов управления.Величину задержки в строке

_delay:= (StrToInt(Edit2.Text)) * 200; //  (200)*  - подбирать для каждого компа индивидуально

подбирать коэфициентом (200). Зависит от характеристик "железа" компа и загруженности процесами.
Поясняющая диаграмма работы :


Длительность вложенных циклов (по j) одинакова, что обеспечивает скважность управляющих импульсов = 2.
Программа работоспособна.Недостатком является то, что при выполнении цикла программа недоступна внешнему управлению.

[raxp]

попробуйте еще такую конструкцию (внешнее управление доступно):

var
  tb: TTrackBar;
  on_off, FL: boolean;
  cnt: integer;
  TimerID: integer;

...
procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD) stdcall;
begin
 on_off:= not on_off;
 if on_off then begin
  //form1.Series1.AddY(1);
  Out32($378,5)
 end else Out32($378,0);

 timeKillEvent(TimerID); // 
  //inc(cnt); if cnt = к-во шагов then cnt:= 0 else // раскомментировать если нужно по к-ву шагов и остановить
 TimerID:= timeSetEvent(form1.tb.Position, 0, @TimerProc,0,TIME_PERIODIC) // пускаем
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
 FL:= not FL; // запуск-стоп
 if fl then TimerID:= timeSetEvent(tb.Position, 0, @TimerProc,0,TIME_PERIODIC)
  else timeKillEvent(TimerID)
end;

procedure TForm1.tbChange(Sender: TObject);
begin
 caption:= format('%.f Гц', [1000 / tb.position])
end;

[remz]

всем спасибо большое за советы, я уже организовал вложенный цикл, количество выполнений которого зависит от железа, у меня теперь другая проблема) я не могу остановить выполнение циклов(аварийная остановка) и не знаю как сделать секундомер, который бы засекал время выполнения

[DeKot]

Я обращал внимание на недостаток применения циклов (при выполнении цикла программа замкнута в себе и недоступна внешним сигналам). Здесь надо применять таймер ( но не из VCL), а более точный (есть MMTimer). При работе таймера за один его такт происходит формирование управляющего импульса и остается еще время на прерывание. Т.е. внутри цикла таймера формируется импульс требуемой длительности и проверка на внешнее прерывание (аварийный останов, к примеру). Длительность такта таймера должна быть хотя бы на порядок меньше длительности импульса.

не знаю как сделать секундомер, который бы засекал время выполнения

Во вложении внимательно посмотрите - там реализовано измерение времени (в мсек) выполнения n-го количества "шагов" двигателя.

_time:= (_stop - _pusk);
  _frc:= round(1000 * ((StrToInt(Edit1.Text) / _time ))); // частота следования импульсов упр-я
  count:= 0;
  Form1.Label3.Caption:= 'Время выполнения  -  ' + IntToStr(_time) + '   мсек';