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.