Информатика и выч. техника \ Технические средства информационных систем управления

Изучение утилиты ADAM-5000TCP-6000 Utility. Программирование модулей Advantech в среде DELPHI: Методические указания к лабораторным работам, страница 7

      exit;

   end;

   bLoopFlag := TRUE;

   iReceiveCount := 0;

   memoMsg.Lines.Clear();

   //--- Старт получения потока данных от ADAM-5000/TCP ---

   ADAMTCP_StartStream( hEvent );

   Timer1.Enabled := true;

end;

procedure TForm9.Timer1Timer(Sender: TObject);

var

   iRetVal : Integer;

   StreamData : TStreamData;

begin

     Timer1.Interval := StrToInt( edtTime.Text );

     if( (iReceiveCount mod 4) = 3 ) then  memoMsg.Lines.Clear();

iRetVal := ADAMTCP_ReadStreamData(PChar(edtIPAddress.Text),StreamData);

     inc(iReceiveCount);

             memoMsg.Lines.Add(TimeToStr(now) + 'Полученная запись: '

                                                  +  IntToStr(iReceiveCount));

     memoMsg.Lines.Add('DI/DO данные от Слота 0 до Слота 7: ');

     memoMsg.Lines.Add(IntToHex( StreamData.DIO[0], 4 ) + ':' + IntToHex ( StreamData.DIO[1], 4 ) + ':' + IntToHex( StreamData.DIO[2], 4 ) + ':' + IntToHex    ( StreamData.DIO[3], 4 ) + ':' + IntToHex( StreamData.DIO[4], 4 ) + ':' + IntToHex ( StreamData.DIO[5], 4 ) + ':' + IntToHex( StreamData.DIO[6], 4 ) + ':' + IntToHex ( StreamData.DIO[7], 4 ));

     memoMsg.Lines.Add('AI/AO данные Слота 1:');         //Там ADAM-5017

     memoMsg.Lines.Add(IntToHex( StreamData.Slot1[0], 4 ) + ':' + IntToHex  ( StreamData.Slot1[1], 4 ) + ':' + IntToHex( StreamData.Slot1[2], 4 ) + ':' + IntToHex ( StreamData.Slot1[3], 4) + ':' + IntToHex( StreamData.Slot1[4], 4 ) + ':' + IntToHex  ( StreamData.Slot1[5], 4 ) + ':' + IntToHex( StreamData.Slot1[6], 4 ) + ':' + IntToHex ( StreamData.Slot1[7], 4 ));

     memoMsg.Lines.Add('   ');

end;

3.2.  Организация  анализа тревоги для модуля ADAM-5017

Для модуля ADAM-5017 имеется возможность проведения анализа  наличия тревоги. При  выборе  пункта «Анализ тревоги для модуля 5017» появляется соответствующая форма (представлена ниже).  Снимаемые по четвертому каналу значения сигнала изменяются по синусоидальному закону. Эти значения сравниваются с верхним и нижним допустимыми уровнями. В случае выхода канального сигнала за пределы диапазона, заданного уровнями, загорается лампочка на соответствующей кнопке. Кроме того, имеется возможность наблюдать происходящий процесс в виде графика в окне формы.

Организация  анализа тревоги для модуля ADAM-5017 выполнена в программном модуле Unit12. Считывание входных данных производится с помощью рассмотренной выше функции ADAMTCP_ReadReg. Аналогично в модуле Unit10 организован  анализ тревоги для модуля ADAM-6017. Для чтения значений сигнала по входу AI2 модуля применяется функция ADAMTCP_Read6KAI, описание которой приведено выше.

Задание к работе

1.  Изучить назначение и возможности подпрограмм модуля ADAMTCP.

2.  Запустить приложение и проделать все предусмотренные действия.

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

4.  Ответить на контрольные вопросы.

Контрольные вопросы

1.  Какая подпрограмма создает физическое соединение?

2.  Какие временные константы определяют процесс обмена данными?

3.  Какие подпрограммы служат для аналогового ввода/вывода?

4.  Как организовать дискретный ввод/вывод?

5.  Как контролировать поток данных?

6.  Что представляет собой тип TStreamData?

7.  Что означает параметр '%6.3f' функции Format (модули 5017, 6017)?

8.  Какой порт использует протокол ModBus/TCP?

9.  Какие параметры использует функция ADAMTCP_Read6KDIO?

10.  Чем отличаются друг от друга модули ADAM-5017 и ADAM-6017?

Библиографический список

1. ADAM-6000 User ’s Manual.

2. ADAM-5000/TCP User’s Manual.

3. Advantech Automation/ADAM/ADAM-5000TCP-6000 Utility/DLL API Help.

                                                                   3864

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

РЯЗАНСКИЙ ГОСУДАРСТВЕННЫЙ РАДИОТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

АППАРАТНО-ПРОГРАММНЫЕ СРЕДСТВА

ИНФОРМАЦИОННЫХ СИСТЕМ

Методические указания к лабораторным работам № 2 и 3

 


Рязань 2006

УДК 681.516.73

Аппаратно-программные средства информационных систем: Методические указания к лабораторным работам № 2 и 3/ Рязан. гос. радиотехн. ун-т; Сост.: В.В. Карасев, Г.И. Нечаев. Рязань, 2006. 24 с.

Содержат описания двух лабораторных работ, посвященных реализации действий с модулями ADAM фирмы Advantech.

Предназначены для изучения дисциплин «Аппаратно-программные средства информационных систем исследований и испытаний» и «Технические средства информационных систем управления» студентами специальности 071900 «Информационные системы и технологии».

В подготовке методических указаний принимали участие студенты  Путина О.Н. (работа № 2) и Прыскалина Т.Ю.(работа № 3)

Библиогр.: 3 назв.

Advantech, Delphi, Ethernet, ModBus/TCP, базовый блок, модули ADAM

Печатается по решению редакционно-издательского совета Рязанского государственного радиотехнического университета.

Рецензент:   кафедра АСУ РГРТУ (зам. зав. кафедрой канд. техн. наук,  доц. А.Н. Кабанов)

Аппаратно-программные средства

информационных систем

Составители:  К а р а с е в Виктор Владимирович

                 Н е ч а е в Геннадий Иванович

             Редактор  Р.К. Мангутова
             Корректор  С.В. Макушина

Подписано в печать   29.06.06  Формат бумаги 60 х 84 1/16.

Бумага газетная. Печать трафаретная. Усл.печ.л. 1,5.

Уч.-изд. л. 1,5. Тираж 25  экз. Заказ

Рязанский государственный радиотехнический университет.

390005, Рязань, Гагарина, 59/1.

Редакционно-издательский центр РГРТУ.

Скачать файл