9. Клюев А.С. Глазов Б.В. Дубровский А.Х. “Проектирование систем автоматизации технологических процессов” Справочное пособие МОСКВА «Энергия» 1980г.
10. ГОСТ 29329-92 “Весы для статического взвешивания. Общие технические требования” Госстандарт РОССИЯ 1992г.
11. ГОСТ 8.005-82 “Весы непрерывного действия. Методы и средства поверки” Гос. Ком. СССР по стандартам МОСКВА 1982г.
12. ГОСТ 15077-78 “Датчики силоизмерительные тензорезисторные. Общие технические условия” Гос. Ком. СССР по стандартам МОСКВА 1978г.
13. ГОСТ 16217-83 “Датчики силы тензорезисторные. Термины и определения” Гос. Ком. СССР по стандартам МОСКВА 1983г.
14. “Правила технической эксплуатации ленточных конвейеров на предприятиях черной металлургии” МОСКВА «Металлургия» 1987г.
15. “Должностная инструкция для слесаря КИП и А участка ТА цеха металлизации” УАМ ОЭМК 1999г.
16. Иванов И.М. Бельгольский Б.П. Соломахин И.С. “Технико-экономические расчеты по организации, планированию и управлению металлургическими предприятиями” МОСКВА «Металлургия» 1993г.
17. ГОСТ 7.32-91 “Отчет о научно-исследовательской работе. Общие требования и правила оформления” Госстандарт РОССИЯ 1991г.
“”””””””””””” ПРОГРАММА ПОДСИСТЕМЫ УЧЕТА ГОТОВОЙ ПРОДУКЦИ ”””””””””””””
БИБЛИОТЕКА (LIB\VES.LIB);
БИБЛИОТЕКА (LIB\VESMATH.LIB);
"Инициализация"
ВЫЧИСЛИТЬ (CR) (+) (1) (CR);
"""""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ СЕТEВОГО МОДУЛЯ""""""""""""""""""""""""
ДРАЙВЕР (D3C02);
РАЗРЕШИТЬ (0);
""""""""""""""""ИНИЦИАЛИЗАЦИЯ МОДУЛЯ СЧЕТЧИКОВ ТАХОГЕНЕРАТОРОВ""""""""""""""
ФУНКЦИЯ (FINIQC01), входные параметры (2);
""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ МОДУЛЯ СЧЕТЧИКОВ ВЕСА"""""""""""""""""""""
ДРАЙВЕР (DQC01_A) (3,0,30);
РАЗРЕШИТЬ (3);
""""""""""""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ ЧАСОВ"""""""""""""""""""""""""""
ДРАЙВЕР (D3RTC), (220);
ФУНКЦИЯ (FINTRTC), входные параметры (1);
"""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ ВРЕМЕНИ ФИЛЬТРОВ"""""""""""""""""""""""""
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_ФИЛ);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_1);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_2);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_3);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_4);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12543);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12544);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12_1);
ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12_2);
ПЕРЕСЛАТЬ значение (10) в (ФЛ_СЧ_ЧТ);
ПЕРЕСЛАТЬ значение (1) в (Q);
СБРОСИТЬ флаг (ДИН_ТАР);
СБРОСИТЬ флаг (ДИН_ЮСТ);
ПЕРЕСЛАТЬ значение (0) в (ФЛАГИ_ТАР);
ПЕРЕСЛАТЬ значение (0) в (ФЛАГИ_ЮСТ);
ПЕРЕСЛАТЬ значение (255) в (КОНЕЦ_ТАР);
"""""""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ ФИЛЬТРА""""""""""""""""""""""""""""""
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12090_1, СОСТ_12090_1 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12090_2, СОСТ_12090_2 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12090_3, СОСТ_12090_3 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12090_4, СОСТ_12090_4 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12543, СОСТ_12543 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12544, СОСТ_12544 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12_1, СОСТ_12_1 );
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_12_2, СОСТ_12_2 );
"""""""""""""""ИНИЦИАЛИЗАЦИЯ БУФЕРА ДИНАМИЧЕСКОГО ТАРИРОВАНИЯ""""""""""""""""
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_ТАР, СОСТ_ТАР );
"""""""""""""""ИНИЦИАЛИЗАЦИЯ БУФЕРА ДИНАМИЧЕСКОЙ ЮСТИРОВКИ"""""""""""""""""""
ФУНКЦИЯ (INIT_FTR),
входные параметры (100),
выходные параметры ( НАЧ_БУФ_ЮСТ, СОСТ_ЮСТ );
"""""""""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ФИЛЬТРА МЕСДОЗ""""""""""""""
ЗАГРУЗИТЬ таймер (ТАЙМ_ФИЛ) уставкой (ВРЕМ_ФИЛ), режим (0);
СТАРТ таймер (ТАЙМ_ФИЛ);
ПРЕРЫВАНИЕ с номером (23) подпрограммой (ФИЛ_МЕСДОЗ),
если (ТАЙМ_ФИЛ@) (=) (0);
РАЗРЕШИТЬ (23);
"""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ДИНАМИЧЕСКОГО ТАРИРОВАНИЯ""""""""
ПРЕРЫВАНИЕ с номером (22) подпрограммой (ДИНАМ_ТАР),
если (@ТАЙМ_ТАР@) (=) (1);
"""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ДИНАМИЧЕСКОЙ ЮСТИРОВКИ"""""""""""
ПРЕРЫВАНИЕ с номером (21) подпрограммой (ДИНАМ_ЮСТ),
если (@ТАЙМ_ЮСТ@) (=) (1);
"""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ЧТЕНИЯ ТАХОГЕНИРАТОРОВ"""""""""""
ЗАГРУЗИТЬ таймер (ТАЙМ_ТАХ) уставкой (100), режим (0);
СТАРТ таймер (ТАЙМ_ТАХ);
ПРЕРЫВАНИЕ с номером (16) подпрограммой (ЧТ_ТАХ),
если (@ТАЙМ_ТАХ@) (=) (1);
РАЗРЕШИТЬ (16);
"""""""ИНИЦИАЛИЗАЦИЯ ТАЙМЕРОВ ДИСКРЕТНЫХ ВЫХОДОВ""""""""""""""""""""""""""""
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_1) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_2) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_3) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_4) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12543) уставкой (40), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12543_1) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12543_2) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12544) уставкой (40), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12544_1) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12544_2) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12_1) уставкой (20), режим (0);
ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12_2) уставкой (20), режим (0);
СТАРТ таймер (ТАЙМ_ИМП_12090_1);
СТАРТ таймер (ТАЙМ_ИМП_12090_2);
СТАРТ таймер (ТАЙМ_ИМП_12090_3);
СТАРТ таймер (ТАЙМ_ИМП_12090_4);
СТАРТ таймер (ТАЙМ_ИМП_12543);
СТАРТ таймер (ТАЙМ_ИМП_12543_1);
СТАРТ таймер (ТАЙМ_ИМП_12543_2);
СТАРТ таймер (ТАЙМ_ИМП_12544);
СТАРТ таймер (ТАЙМ_ИМП_12544_1);
СТАРТ таймер (ТАЙМ_ИМП_12544_2);
СТАРТ таймер (ТАЙМ_ИМП_12_1);
СТАРТ таймер (ТАЙМ_ИМП_12_2);
ОЖИДАТЬ (300) интервалов;
"""""""""""""""""""""""""""""""НАЧАЛО ПРОГРАММЫ"""""""""""""""""""""""""""""
[НАЧАЛО]
ДЕБЛОКИРОВАТЬ;
ПЕРЕСЛАТЬ (0) в (ЗАЩИТА);
ЗАГРУЗИТЬ таймер (ТАЙМЕР) уставкой (100), режим (0);
СТАРТ таймер (ТАЙМЕР);
"""""""""""""""""""""""""""""""" УСТАНОВКА ЧАСОВ """"""""""""""""""""""""""""
ЕСЛИ (Q) (=) (1), то {
ЕСЛИ (F1) (=) (1), то {
СБРОСИТЬ флаг (F2);
ИДТИ на метку (A1);
} ИНАЧЕ {ВЗВЕСТИ флаг (F1);
СБРОСИТЬ флаг (F2);
ФУНКЦИЯ (FSETRTC), входные параметры (СЕК,МИН,ЧАС,
ЧИСЛ,МЕС,ГОД);
ФУНКЦИЯ (FINTRTC), входные параметры (Q);}}
ИНАЧЕ { ЕСЛИ (F2) (=) (1), то {
СБРОСИТЬ флаг (F1);
ИДТИ на метку (A1);
} ИНАЧЕ {ВЗВЕСТИ флаг (F2);
СБРОСИТЬ флаг (F1);
ФУНКЦИЯ (FINTRTC), входные параметры (Q);}}
[A1]
""""""""""""""""""""""" ЧТЕНИЕ ЗНАЧЕНИЙ МЕСДОЗ """""""""""""""""""""""""""""
ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_1) в (МЕСДОЗА_12090_1);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_2) в (МЕСДОЗА_12090_2);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_3) в (МЕСДОЗА_12090_3);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_4) в (МЕСДОЗА_12090_4);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12543) в (МЕСДОЗА_12543);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12544) в (МЕСДОЗА_12544);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12_1) в (МЕСДОЗА_12_1);
ПЕРЕСЛАТЬ значение (ДАТЧИК_12_2) в (МЕСДОЗА_12_2);
""""""""""""""""""""""""""""""УПРАВЛЕНИЕ ФИЛЬТРАМИ""""""""""""""""""""""""""
ЕСЛИ (ВКЛ_ФИЛ_12090_1) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12090_1) в (БРУТТО_12090_1);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_1) в (БРУТТО_12090_1);
}
ЕСЛИ (ВКЛ_ФИЛ_12090_2) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12090_2) в (БРУТТО_12090_2);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_2) в (БРУТТО_12090_2);
}
ЕСЛИ (ВКЛ_ФИЛ_12090_3) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12090_3) в (БРУТТО_12090_3);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_3) в (БРУТТО_12090_3);
}
ЕСЛИ (ВКЛ_ФИЛ_12090_4) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12090_4) в (БРУТТО_12090_4);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_4) в (БРУТТО_12090_4);
}
ЕСЛИ (ВКЛ_ФИЛ_12543) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12543) в (БРУТТО_12543);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12543) в (БРУТТО_12543);
}
ЕСЛИ (ВКЛ_ФИЛ_12544) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12544) в (БРУТТО_12544);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12544) в (БРУТТО_12544);
}
ЕСЛИ (ВКЛ_ФИЛ_12_1) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12_1) в (БРУТТО_12_1);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12_1) в (БРУТТО_12_1);
}
ЕСЛИ (ВКЛ_ФИЛ_12_2) (=) (1), то {
ПЕРЕСЛАТЬ значение (ФИЛ_12_2) в (БРУТТО_12_2);
}
ИНАЧЕ {
ПЕРЕСЛАТЬ значение (МЕСДОЗА_12_2) в (БРУТТО_12_2);
}
"""""""""""""""""""""""""ТАРИРОВАНИЕ"""""""""""""""""""""""""""