LPT SEND – пример взаимодействия органов управления и сигналов

Ранее, еще в проекте “PortCoding”, мы рассматривали взаимодействия органов управления в программе. Теперь Вы приобрели опыт, наверняка накомпилировав из рассмотренных исходников, уйму полезных по хозяйству программ, следуя актуальному и сейчас принципу – в хозяйстве всё пригодится. А сейчас рассмотрим более сложный пример взаимодействия органов управления и сигналов, используя и расширяя накопленный ранее опыт
Рассмотрим программу “LPT SEND”
Изучив данную программу и разобравшись как она работает, для Вас не будет препятствий в разработке гибких в настройке приложений, со сложным и многофункциональным интерфейсом управления.

Программа состоит из неплохого передатчика последовательных импульсов, и двух простых контрольных приёмников для изучения принципа работы устройства. Передатчик основан на программируемом цикле счётчика:

for i:= 1 to N do где N – это число указывающее счётчику сколько раз надо повторять цикл. Например такой код:

[pas]for i:= 1 to 10 do
begin
ButtonPin2;
end;[/pas]

– десять раз устанавливает / снимает логическую 1 на ножке Pin2 LPT разъёма. А именно: пять раз устанавливает 1 и пять раз 0 . Поэтому, если нам требуется отправить десять единиц (положительных импульсов), необходимо число циклов умножить на два : for i:= 1 to N*2 do где N = 10.

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

Если в передатчике включен режим “Авто” – происходит автоматическая (в основном, но иногда сбоит) коррекция ошибок приёма. В общем, можно соединить два компьютера и проверить на практике, установив соответствующие биты и др. настройки. Но, попрактиковаться можно и сразу, внутри программы, как настроено всё по умолчанию.

Алгоритм таков: когда передатчик начинает передачу, например числа 10, он отсчитывает импульсы по Pin14 с помощью команды ButtonPin14. Одновременно появляется контрольный сигнал (назовём его CLK) на Pin16. Тогда приёмник, с помощью уже известного нам, простейшего счётчика импульсов, считает эти посылки, одновременно подтверждая принятый сигнал лог.1 передачей импульса по Pin2 ( при практической реализации можете сменить на входной – в приёмном коде передатчика, естественно). Передатчик,если включен “Авто”, принимает эти импульсы во время передачи. По окончании передачи снимается сигнал CLK и Pin16 переводится в лог. ноль. При этом приёмник заканчивает отсчёт и включает таймер, который сбрасывает счетчики в ноль и фиксирует LOG. Передатчик также проверяет, соответствует ли, полученное число переданному, и если нет – уменьшает скорость, начинает передачу заново, и так до тех пор, пока скорость станет таковой, при которой число передаётся без ошибок.

Это простейший алгоритм, разработанный специально для изучения начинающими. Здесь всё зависит от системных ресурсов, и работа в win9x и winXP – существенно отличается. В целом, в программе имеется еще много сложных взаимосвязей, а времени у меня не имеется, поэтому скачайте готовый исходник и изучите, следуя комментариям, там еще много полезных настроек, которые с успехом Вы можете применять в своих программах, как разберётесь.

{————— Программа LPT SEND : смотрим код —————}

[pas]{Универсальный переключатель – используйте в своих программах}
function TForm1.Bits : boolean ; //–отслеживает переключения бит
(1-2-4-8-16-32-64-128)
Var
d : boolean;
bit : byte;
begin
bit := StrToInt(ComboBox3.Text); //– переключатель бит (согласно отдельно
взятому Pin)
d := true; {and – не инвертируется }
d := d and ((bit) = ((bit) and Lpt.ReadPort(GetCurrentPort,GetCurrentRegister)))
;
{Предусмотр. автоматическая инверсия инверсных бит рег. контроля – это: Pin1,
Pin14, Pin17}
if (ComboBox2.Text = ‘КОНТРОЛЯ’) then
if (bit = 1) or (bit = 2) or (bit = 8)then d := not d ; //– "or" – значит "или"
{Предусмотр. автоматическая инверсия инверсных бит входного рег. – это: Pin11}
if (ComboBox2.Text = ‘ВХОДЫ’) then
if (bit = 128) then d := not d ;
{ если выбран инверсный режим – инвертируем вручную всё}
if CheckBox1.Checked = true then d := not d ;
Bits := d;
end;
function TForm1.CLK : boolean ; //– позволяет инвертировать сигнал CLK
Var
d : boolean;
b : integer;
begin
b := StrToInt(ComboBox5.Text); //– установка бита
d := true;
d := d and (b = (b and Lpt.ReadPort(GetCurrentPort,2))) ;
if CheckBox3.Checked = false then CLK := d else CLK := not d;
end;
procedure TForm1.Timer1Timer(Sender: TObject); //– таймер индикации
begin
SpeedButton1.Enabled := Bits; //– управляем контрольным светодиодом
(встроенный в SpeedButton1)
SpeedButton3.Enabled := CLK; //– управляем контрольным светодиодом CLK
if CLK = false then
begin
SpeedButton6.Enabled := (CLK xor Bits) or (CLK and Bits) ; //– зажигаем если
неправильно настроенны биты RX
end;
end;
{Добавлена полезная проц. PinInfo, информ. о структуре LPT регистров и соотв.Pin}
procedure TForm1.PinInfo ;
begin
if ComboBox2.Text = ‘ДАННЫХ’ then
begin
if ComboBox3.Text = ‘1’ then StaticText1.Caption := ‘ Bit 2* = 1 : Pin2’;
if ComboBox3.Text = ‘2’ then StaticText1.Caption := ‘ Bit 2* = 2 : Pin3’;
if ComboBox3.Text = ‘4’ then StaticText1.Caption := ‘ Bit 2* = 4 : Pin4’;
if ComboBox3.Text = ‘8’ then StaticText1.Caption := ‘ Bit 2* = 8 : Pin5′;
if ComboBox3.Text = ’16’ then StaticText1.Caption := ‘ Bit 2* = 16 : Pin6′;
if ComboBox3.Text = ’32’ then StaticText1.Caption := ‘ Bit 2* = 32 : Pin7′;
if ComboBox3.Text = ’64’ then StaticText1.Caption := ‘ Bit 2* = 64 : Pin8’;
if ComboBox3.Text = ‘128’then StaticText1.Caption := ‘ Bit 2* = 128 : Pin9’;
end;
if ComboBox2.Text = ‘КОНТРОЛЯ’ then
begin
if ComboBox3.Text = ‘1’ then StaticText1.Caption := ‘ Bit 2* = 1 : Pin1’
else
if ComboBox3.Text = ‘2’ then StaticText1.Caption := ‘ Bit 2* = 2 : Pin14’
else
if ComboBox3.Text = ‘4’ then StaticText1.Caption := ‘ Bit 2* = 4 : Pin16’
else
if ComboBox3.Text = ‘8’ then StaticText1.Caption := ‘ Bit 2* = 8 : Pin17’
else
StaticText1.Caption := ‘ Не поддерживает ‘ ;
end;
if ComboBox2.Text = ‘ВХОДЫ’ then
begin
if ComboBox3.Text = ‘8’ then StaticText1.Caption := ‘ Bit 2* = 8: Pin15′
else
if ComboBox3.Text = ’16’ then StaticText1.Caption := ‘ Bit 2* = 16: Pin13′
else
if ComboBox3.Text = ’32’ then StaticText1.Caption := ‘ Bit 2* = 32: Pin12′
else
if ComboBox3.Text = ’64’ then StaticText1.Caption := ‘ Bit 2* = 64: Pin10’
else
if ComboBox3.Text = ‘128’then StaticText1.Caption := ‘ Bit 2* = 128: Pin11’
else
StaticText1.Caption := ‘ Не поддерживает ‘ ;
end;
end;
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
PinInfo; //– вызываем процедуру при переключении бит
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
PinInfo; //– вызываем процедуру при переключении регистров
end;
procedure TForm1.SpeedButton2Click(Sender: TObject); //– кнопка "передача"
begin
Edit1.Text := ‘0’; //– обновить индикатор
TX; //– включ. передачу
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); //– прерываем циклы
begin
StopRX := true;
StopTX := true;
end;
{Внешний высокоскоростной приёмник "RX2" (Запустите вторую копию программы )}
procedure TForm1.RX2; //– режим приёмника 2
Var
a : integer;
begin
Edit3.Text := ‘0’;
StopRX := false; //–флаг стоп / старт
While not StopRX do //–бесконечный цикл, пока флаг стоп не поднят:
begin
a := 0;
{ ————– Счётчик импульсов1 (Биты задаются Bits )————–}
if Edit3.Tag = 0 then //– TAG = 0 : метка начала отсчета
begin
if Bits = true then
begin //– собственно счётчик
a := a + 1; //– фиксируем импульс
Edit3.Text := IntToStr(StrToInt(Edit3.Text)+1); // — принимаем импульсы
end;
Edit3.Tag :=1; //– TAG = 1 : метка конца отсчета
if a = 1 then ButtonPin2; // — подтверждаем приём импульса, с помощью Рin2
end;
if Bits = false then Edit3.Tag := 0; //– разреш. отсчёт след. импульса
{ ————– Счётчик импульсов2 <CLK> (Pin16 )————————–}
if Edit4.Tag = 0 then
begin
if CLK = true then Edit4.Text := IntToStr(StrToInt(Edit4.Text)+1);
Edit4.Tag :=1;
end;
if CLK = false then Edit4.Tag := 0;
{ ————————————————————————–}
Sleep(TrackBar1.Position); //–приложение засыпает на заданный интервал
Application.ProcessMessages; //–Обработка всей очереди сообщений
end;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject); //– кнопка "СТОП" передачи
Var
a,b : integer;
begin
if SpeedButton4.Tag = 0 then //– если кнопка не заблокирована тогда:
begin
a := StrToInt(Edit1.Text) ; //– преобразуем
b := StrToInt(Edit2.Text) ; //– преобразуем
StopTX := not StopTX; //– "СТОП" передачи
Edit2.Text := IntToStr(b-a); //– устан. оставш. число для послед. передачи
SpeedButton4.Tag := 1; //– заблокировать дальнейшее применения кнопки
end else MessageBeep(MB_ICONEXCLAMATION);
end;
procedure TForm1.Timer3Timer(Sender: TObject); //– таймер сброса и ведения LOG
begin
if CLK = false then //– добавляем лог
begin
RichEdit1.Lines.Add (FormatDateTime(‘hh:mm:ss’, time()) +’ Принят код ‘ +
Edit3.Text);
Edit3.Text := ‘0’;
Timer3.Enabled := false;
end;
end;
procedure TForm1.Edit4Change(Sender: TObject);
begin
Timer3.Enabled := true; //– таймер сброса и ведения LOG – включить
end;
procedure TForm1.TX; //– Передатчик последовательных импульсов Pin14
Var
a,b,c,d, i : integer;
begin
{ автоматич. конролир. настройки бит по умолчанию }
if CheckBox4.Checked = true then
begin
if Pin16 = true then ButtonPin16;
if Pin14 = false then ButtonPin14;
if Pin2 = true then ButtonPin2;
end;
{Собственно передатчик импульсов}
d := 0 ;
Timer2.Enabled := false ; //– отключ. таймер после автокоррекции
Edit1.Text := ‘0’; //– обновить индикатор
Edit6.Text := ‘0’; //– обновляем
SpeedButton4.Tag := 0; //– разрешаем кнопку "Стоп"
a := StrToInt(Edit1.Text) ; //– преобразуем
b := StrToInt(Edit2.Text) ; //– преобразуем
c := StrToInt(ComboBox4.Text); //– преобразуем
Gauge1.MaxValue := b; //– настраиваем индикатор передачи (в %)
Gauge1.ForeColor := clBlue; //– показ.
StopTX := false ; //– флаг стоп / старт
for i:= 1 to b*2 do //– цикл передачи (Внимание : задаётся Edit2 !)
begin
if StopTX = true then exit; //– если наж. "Стоп" – прекращаем передачу
ButtonPin14; //– начинаем передачу импульсов Pin14 (передача 1 / 0)
if Pin14 = true then a := a + 1; // — контроль (подсчёт) переданных данных
(лог. 1)
Edit1.Text:= IntToStr(a); //– выводим результ. подсчёта
Gauge1.Progress := a; //– показ. переданное в %
{Передаём сигнал управления CLK – лог. 1}
Lpt.WritePort (GetCurrentPort,2,(c or Lpt.ReadPort( (GetCurrentPort) ,2) ));
if a = b then //– если цикл пройден :
begin
{Снимаем сигнал управления CLK – xor лог. 1 = 0}
Lpt.WritePort (GetCurrentPort,2,(c xor Lpt.ReadPort( (GetCurrentPort) ,2) ));
Gauge1.ForeColor := clScrollBar; //– убираем отработ. проценты индикатора ТХ
end;
{Используем повтор передачи, снижая скорость автоматически если ошибка приёма}
if CheckBox2.Checked = true then //– вкл. автокоррекцию скорости передачи
begin
if Pin2 = true then //– считаем ипульсы подтверждения приёма
begin
Edit6.Text := IntToStr(StrToInt(Edit6.Text)+1); //– счётчик импульсов
d := StrToInt(Edit6.Text); //– преобразуем и присваиваем
end;
{Если цикл передачи окончен, сигнал упр. отключён}
if CLK = false then
if (d <> a) and( d <> b) then //– если данные не совпадают:
begin {Увеличиваем задержку – уменьшаем скорость ТХ посылок}
TrackBar2.Position := TrackBar2.Position + 15 ; //– на нужное значение
Label7.Caption := ‘Контроль Данные Бит CLK Управление Задержка : ‘+
IntToStr(TrackBar2.Position); //– выводим значение задержки
Timer2.Enabled := true; //– вкл. таймер повтора ТХ
end else
begin //– если данные совпали – отключаем систему
beep;
Edit6.Text := ‘0’;
if d = b then Timer2.Enabled := false;
end;
end;
Sleep(TrackBar2.Position); //–приложение засыпает на заданный интервал
Application.ProcessMessages; //–Обработка всей очереди сообщений
end;
end;
{Простой внутренний контрольный приёмник "RX1"}
procedure TForm1.Timer4Timer(Sender: TObject);
Var
a : integer;
begin
a := 0;
{ ————– Счётчик импульсов1 (Биты задаются Bits )————–}
if Edit3.Tag = 0 then //– TAG = 0 : метка начала отсчета
begin
if Bits = true then
begin //– собственно счётчик
a := a + 1; //– фиксируем импульс
Edit3.Text := IntToStr(StrToInt(Edit3.Text)+1); // — принимаем импульсы
end;
Edit3.Tag :=1; //– TAG = 1 : метка конца отсчета
if a = 1 then ButtonPin2; // — подтверждаем приём импульса, с помощью Рin2
end;
if Bits = false then Edit3.Tag := 0; //– разреш. отсчёт след. импульса
{ ————– Счётчик импульсов2 (CLK )—————————-}
if Edit4.Tag = 0 then
begin
if CLK = true then Edit4.Text := IntToStr(StrToInt(Edit4.Text)+1);
Edit4.Tag :=1;
end;
if CLK = false then Edit4.Tag := 0;
{ ———————————————————————}
end;
procedure TForm1.RadioButton1Click(Sender: TObject); //– переключатель RX1
begin
Timer4.Enabled := true;
StopRX := true;
Edit3.Text := ‘0’;
end;
procedure TForm1.RadioButton2Click(Sender: TObject); //– переключатель RX2
begin
Timer4.Enabled := false;
RX2;
Edit3.Text := ‘0’;
end;
procedure TForm1.RadioButton3Click(Sender: TObject); //– переключатель OFF
begin
Timer4.Enabled := false;
StopRX := true;
Edit3.Text := ‘0’;
end;
procedure TForm1.TrackBar1Change(Sender: TObject); //– показ задержки
begin
if TrackBar1.Position = 0 then Edit3.Color := clyellow else
Edit3.Color := clInfoBk;
Label6.Caption := ‘Задержка RX2 м.сек : ‘ + IntTOStr(TrackBar1.Position);
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile(‘RX_Lod.txt’); //– сохраняем в файл
end;
procedure TForm1.TrackBar2Change(Sender: TObject); //– показ. задержку
begin
Label7.Caption := ‘Контроль Данные Бит CLK Управление Задержка : ‘+
IntToStr(TrackBar2.Position);
end;
procedure TForm1.Timer2Timer(Sender: TObject); //– таймер повтора передачи
Var
b,d : integer;
begin
b := StrToInt(Edit2.Text) ; //– преобразуем
d := StrToInt(Edit6.Text) ; //– преобразуем
SpeedButton2.Click ;
if (d = b) then //– отключ. автоматически
Timer2.Enabled := false ;
end;
end.
end;[/pas]

Cкачайте этот пример – primer_xp06.zip(30 kb)
Cкачать готовую программу – LPT SEND : lptsend.zip (207 kb)