✎ Пример использования CommonDataboard [ПромАвтоматика]

Эта страница только для чтения. Вы можете посмотреть исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.
====== Пример _PrjProcs.pas с CommonDataboard ======
<file pascal _prjprocs.pas>
unit _PrjProcs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

const
  _PrjCodeName = 'NRMOL';
  _PrjLogoCaption = 'Овсяная линия';

  _PrjAlarmResetTagName = _PrjCodeName + '.BTN_Beep1_Input';
  _PrjStartAlarmBtnInputTagName = _PrjCodeName + '.BTN_Beep1_StartAlarm_Input';
  _PrjBeepControlTagName = _PrjCodeName + '.MCHB_Beep1_Control';


  procedure _PrjInitForms;
  procedure _PrjBeforeStart;
  procedure _PrjAfterStart;
  procedure _PrjBeforeStop;
  procedure _PrjAfterStop;
  procedure _PrjOnTimer;


implementation
uses
  VisSeqdControl,
  CommonDataboard,
  ScreenCmd,
  Screen_oatline,
  Screen_ConnectStatus,
  RpVisualMain,
  main;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjInitForms;
begin
  _AddFormToPageControl(TScreenCmdForm, TForm(ScreenCmdForm), 'УПРАВЛЕНИЕ');
  _AddFormToPageControl(TScreen_oatlineForm,  TForm(Screen_oatlineForm),  'Овсяная линия');
  _AddFormToPageControl(TScreen_ConnectStatusForm,  TForm(Screen_ConnectStatusForm),  'Подключение');

  CommonDataboard_Init();
  CommonDataboard_Add('===== ' + getSeqdNameByTagroot('S01') + ' =====;;;');
  CommonDataboard_Add('Компрессор 64;;;');
  CommonDataboard_Add('Минимальная температура, градусы;  WORD_S01_064_tmp_min    ;/ 100;;2;0');
  CommonDataboard_Add('Максимальная температура, градусы; WORD_S01_064_tmp_max    ;/ 100;;2;0');
  CommonDataboard_Add('Минимальное давление, атм;         WORD_S01_064_p_min      ;/ 100;;2;0');
  CommonDataboard_Add('Максимальное давление, атм;        WORD_S01_064_p_max      ;/ 100;;2;0');
  CommonDataboard_Add('Давление пара на входе;;;');
  CommonDataboard_Add('Минимальное давление, атм;         WORD_S01_inp_p_min      ;/ 100;;2;0');

  CommonDataboard_Add('===== ' + getSeqdNameByTagroot('S02') + ' =====;;;');
  CommonDataboard_Add('Задвижки 26 и 27;;;');
  CommonDataboard_Add('Температура закрытия, градусы;     WORD_S02_tmp_cl         ;/ 100;;2;0');
  CommonDataboard_Add('Температура открытия, градусы;     WORD_S02_tmp_op         ;/ 100;;2;0');
  CommonDataboard_Add('Задержка включения подачи продукта;;;');
  CommonDataboard_Add('Ф/сеп 20.4 после ухода продукта с Б24-25, с;   DLY_S02_20_4_Time;;;0;0');
  CommonDataboard_Add('Шнеков 14-17 после ухода продукта с Б24-25, с; DLY_S02_flow_dvu_Time;;;0;0');
  CommonDataboard_Add('Шнеков 14-17 после ухода продукта с ф/сеп 20.4, с; DLY_S02_flow_20_4_Time;;;0;0');

  CommonDataboard_Add('===== ' + getSeqdNameByTagroot('S03') + ' =====;;;');
  CommonDataboard_Add('Линия 1, шнек 30;;;');
  CommonDataboard_Add('Частота 1 (ДСУ пустой) ;           WORD_S03_line1_freq1    ;/ 10;;1;0');
  CommonDataboard_Add('Частота 2 (ДСУ полный) ;           WORD_S03_line1_freq2    ;/ 10;;1;0');
  CommonDataboard_Add('Линия 2, шнек 31;;;');
  CommonDataboard_Add('Частота 1 (ДСУ пустой) ;           WORD_S03_line2_freq1    ;/ 10;;1;0');
  CommonDataboard_Add('Частота 2 (ДСУ полный) ;           WORD_S03_line2_freq2    ;/ 10;;1;0');
  
  CommonDataboard_Add('Линия 1, временные задержки, с;;;');
  CommonDataboard_Add('открытие задвижки 32;                        DLY_S03_line1_t5_Time   ;;;0;0');
  CommonDataboard_Add('останов шнека 30 при останове маршрута;      DLY_S03_line1_t1_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 28 при останове маршрута;  DLY_S03_line1_t2_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 28 при '+
                      'отсутствии продукта на ДНУ 24;               DLY_S03_line1_t3_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 28 при '+
                      'наличии продукта на ДВУ 34;                  DLY_S03_line1_t4_Time   ;;;0;0');

  CommonDataboard_Add('Линия 2, временные задержки, с;;;');
  CommonDataboard_Add('открытие задвижки 33;                        DLY_S03_line2_t5_Time   ;;;0;0');
  CommonDataboard_Add('останов шнека 31 при останове маршрута;      DLY_S03_line2_t1_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 29 при останове маршрута;  DLY_S03_line2_t2_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 29 при '+
                      'отсутствии продукта на ДНУ 25;               DLY_S03_line2_t3_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 29 при '+
                      'наличии продукта на ДВУ 35;                  DLY_S03_line2_t4_Time   ;;;0;0');

  CommonDataboard_Add('===== ' + getSeqdNameByTagroot('S04') + ' =====;;;');

  CommonDataboard_Add('60.1 Вибратор, временные задержки;;;');
  CommonDataboard_Add('Пауза,с ;           GNR_060_1_LowTime      ;;;;0');
  CommonDataboard_Add('Работа,с ;          GNR_060_1_HighTime     ;;;;0');

  CommonDataboard_Add('Линия 1, ворошитель 36;;;');
  CommonDataboard_Add('Частота 1 (34 ДНУ пустой) ;        WORD_S04_036_freq1        ;/ 10;;1;0');
  CommonDataboard_Add('Частота 2 (34 ДНУ полный) ;        WORD_S04_036_freq2        ;/ 10;;1;0');
  CommonDataboard_Add('Линия 2, ворошитель 37;;;');
  CommonDataboard_Add('Частота 1 (35 ДНУ пустой) ;        WORD_S04_037_freq1        ;/ 10;;1;0');
  CommonDataboard_Add('Частота 2 (35 ДНУ полный) ;        WORD_S04_037_freq2        ;/ 10;;1;0');

  CommonDataboard_Add('Линия 1, шнек 40;;;');
  CommonDataboard_Add('Частота 1 (ДНУ пустой) ;           WORD_S04_line1_freq1      ;/ 10;;1;0');
  CommonDataboard_Add('Частота 2 (ДНУ полный) ;           WORD_S04_line1_freq2      ;/ 10;;1;0');
  CommonDataboard_Add('Частота 3 (ДСУ полный) ;           WORD_S04_line1_freq3      ;/ 10;;1;0');
  CommonDataboard_Add('Частота 4 (ДВУ полный) ;           WORD_S04_line1_freq4      ;/ 10;;1;0');

  CommonDataboard_Add('Линия 2, шнек 41;;;');
  CommonDataboard_Add('Частота 1 (ДНУ пустой) ;           WORD_S04_line2_freq1      ;/ 10;;1;0');
  CommonDataboard_Add('Частота 2 (ДНУ полный) ;           WORD_S04_line2_freq2      ;/ 10;;1;0');
  CommonDataboard_Add('Частота 3 (ДСУ полный) ;           WORD_S04_line2_freq3      ;/ 10;;1;0');
  CommonDataboard_Add('Частота 4 (ДВУ полный) ;           WORD_S04_line2_freq4      ;/ 10;;1;0');


  CommonDataboard_Add('Линия 1, временные задержки, с;;;');
  CommonDataboard_Add('открытие задвижки 42;                        DLY_S04_line1_t5_Time   ;;;0;0');
  CommonDataboard_Add('останов шнека 40 при останове маршрута;      DLY_S04_line1_t1_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 38 при останове маршрута;  DLY_S04_line1_t2_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 38 при '+
                      'отсутствии продукта на ДНУ 34;               DLY_S04_line1_t3_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 38 при '+
                      'наличии продукта на ДВУ 44;                  DLY_S04_line1_t4_Time   ;;;0;0');

  CommonDataboard_Add('Линия 2, временные задержки, с;;;');
  CommonDataboard_Add('открытие задвижки 43;                        DLY_S04_line2_t5_Time   ;;;0;0');
  CommonDataboard_Add('останов шнека 41 при останове маршрута;      DLY_S04_line2_t1_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 39 при останове маршрута;  DLY_S04_line2_t2_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 39 при '+
                      'отсутствии продукта на ДНУ 35;               DLY_S04_line2_t3_Time   ;;;0;0');
  CommonDataboard_Add('закрытие задвижки 39 при '+
                      'наличии продукта на ДВУ 44;                  DLY_S04_line2_t4_Time   ;;;0;0');

end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjBeforeStart;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjAfterStart;
begin
//  _ch_tr(_PrjCodeName, 'INFO', 131, 212, 318);
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjBeforeStop;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjAfterStop;
begin
end;

////////////////////////////////////////////////////////////////////////////////
procedure _PrjOnTimer;
begin
end;



end.

</file>