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

[remz]

извините за неграмотность) я не совсем понимаю, как реализовать это измерение времени, куда в данной процедуре "воткнуть" ваш код?

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n,j,m,k : integer;
begin
  n := StrToInt(Edit1.Text);
  m := StrToInt(Edit4.Text);
  k := 0;
  for i := 1 to n do
    begin
      Out32($378,0);
        for j := 1 to m do
          begin
            inc(k);
          end;
      if RadioButton1.Checked then
        Out32($378,5);
      if RadioButton2.Checked then
        Out32($378,7);
      Label7.Caption := IntToStr(Inp32($378));
    end;
end;

извините, что трачу ваше время

[DeKot]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n,j,m,k : integer;
begin
  n := StrToInt(Edit1.Text);
  m := StrToInt(Edit4.Text);
  k := 0;
  // отметка времени о начале цикла управляющих импульсов
   _pusk:= StrToInt(FormatDateTime('s',Now)+ FormatDateTime('zzz',Now));
  for i := 1 to n do
    begin
      Out32($378,0);
        for j := 1 to m do
          begin
            inc(k);
          end;
      if RadioButton1.Checked then
        Out32($378,5);
      if RadioButton2.Checked then
        Out32($378,7);
      Label7.Caption := IntToStr(Inp32($378));
    end;
    //  отметка времени об окончании цикла
   _stop:= StrToInt(FormatDateTime('s',Now)+ FormatDateTime('zzz',Now));[/
  // разница и есть время цикла
   _time:= (_stop - _pusk);
end;

Данный код не годится. Вы обнуляете выход порта ( Out32($378,0)) - НЕТ ИМПУЛЬСОВ. Затем пауза между импульсами (цикл по j). Далее включается импульс управления (Out32($378,5)) - конец иттерации цикла i и тут же следующая иттерация - отключение импульса в начале цикла. В итоге длительность самого импульса мизерно мала. Нужна еще задержка на длительность импульса.
Советую внимательно посмотреть код в проекте, который я приложил ранее.Там все ответы на Ваши вопросы.

[remz]

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

[DeKot]

Еще один метод формирования импульсов без применения таймеров и циклов.
Цикличность работы обуславливается безусловным переходом GOTO.
И хотя почему то есть мнение, что использование оператора GOTO является
"дурным тоном" (лично я так не считаю - такой же оператор как и другие в Паскале),
в данном случае есть возможность в любой момент применить прерывание
или же выполнение других паралельных задач.
Программа во вложении, там же диаграмма, объясняющая работу.

[remz]

DeKot, большое Вам спасибо, буду разбираться

[Serious_Jonik]

Ключевое слово "многопоточность"

[YURAN_P]

ЗДРАВСТВУЙТЕ РЕБЯТА! а у меня другая проблема. имеется контроллер на базе связки К155лН1, К155ИД3 и триггера К555ТР2 подключенных через LPT-port. как обеспечить время необходимое для срабатывания демультиплексора и триггера

[YURAN_P]

ЗДРАВСТВУЙТЕ РЕБЯТА! а у меня другая проблема. имеется контроллер на базе связки К155лН1, К155ИД3 и триггера К555ТР2 подключенных через LPT-port. как обеспечить время необходимое для срабатывания демультиплексора и триггера.
Подскажите, где ошибка?

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

type
TForm1 = class(TForm)

Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Button3: TButton;

procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sec: Integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec+1;
label1.Caption:=IntToStr(Sec);
if sec=5 then Out32(888,16);
Out32(888,24);
Out32(888,20);
Out32(888,28);
Out32(888,18);
Out32(888,48);
if sec=10 then Out32(888,0);

if sec=15 then sec:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
sec:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

end.