ЕСЛИ (ФЛАГИ_ТАР) (#) (0), то {
ВЫЗВАТЬ процедуру (ТАРИРОВАНИЕ);
}
"""""""""""""""""""""""""ЮСТИРОВАНИЕ"""""""""""""""""""""""""""
ЕСЛИ (ФЛАГИ_ЮСТ) (#) (0), то {
ВЫЗВАТЬ процедуру (ЮСТИРОВКА);
}
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА """"""""""""""""""""""""""""""
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_1"""""""""""""""""""""""
ВЫЧИСЛИТЬ (БРУТТО_12090_1) (-) (ТАРА_СТАТ_12090_1) (НЕТТО_СТАТ_12090_1);
ФУНКЦИЯ (FZOOM), вх (НЕТТО_СТАТ_12090_1,ЮСТ_ВЕС_12090_1,ЮСТ_СТАТ_12090_1),
вых (ВЕС_СТАТ_12090_1);
ВЫЧИСЛИТЬ (БРУТТО_12090_1) (-) (ТАРА_ДИН_12090_1) (НЕТТО_ДИН_12090_1);
ЕСЛИ (НЕТТО_ДИН_12090_1) (<) (0), то {
ВЫЧИСЛИТЬ (0) (-) (НЕТТО_ДИН_12090_1) (НЕТТО_ДИН_12090_1);
ВЗВЕСТИ флаг (ФЛ_МИН_12090_1);
}ИНАЧЕ {
СБРОСИТЬ флаг (ФЛ_МИН_12090_1);
}
ФУНКЦИЯ (FZOOM), вх (НЕТТО_ДИН_12090_1,ЮСТ_ВЕС_12090_1,ЮСТ_ДИН_12090_1),
вых (ВЕС_ДИН_12090_1);
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_2""""""""""""""""""""""""""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_3"""""""""""""""""""""""
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_4"""""""""""""""""""""""
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12543"""""""""""""""""""""""
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12544"""""""""""""""""""""""
"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12_1""""""""""""""""""""""""""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12_2""""""""""""""""""""""""""""""""""""""""""""""""""КОНЕЦ РАСЧЕТА ВЕСА""""""""""""""""""""""""""""""""""""""""""""ПРОВЕРКА НАЛИЧИЯ МАТЕРИАЛА НА ЛЕНТЕ""""""""""""""""""""""""""
ЕСЛИ (ВЕС_ДИН_12090_1) (<) (МИН_ВЕС_12090_1), то {
ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_1);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_1);
}
ЕСЛИ (ВЕС_ДИН_12090_2) (<) (МИН_ВЕС_12090_2), то {
ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_2);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_2);
}
ЕСЛИ (ВЕС_ДИН_12090_3) (<) (МИН_ВЕС_12090_3), то {
ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_3);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_3);
}
ЕСЛИ (ВЕС_ДИН_12090_4) (<) (МИН_ВЕС_12090_4), то {
ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_4);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_4);
}
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_1""""""
""""""""""""""""""""РАСЧЕТ СКОРОСТИ 12090_1""""""""""""""""""""""""""""""""
ФУНКЦИЯ (MULU), вх (ДЛИН_12090_1,ДЛ_ТАХ_12090_1), вых (Х_С,Х_М);
ФУНКЦИЯ (DIVU), вх (КАЛ_С_12090_1,КАЛ_М_12090_1,10),
вых (Y_С,Y_М,ОСТ); "импульсов за 1/10 оборота
ЕСЛИ (Y_С) (=) (0), то {
ЕСЛИ (ОСТ) (>) (4), то {
ВЫЧИСЛИТЬ (Y_М) (+) (1) (Y_М);
}
ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,Y_М),
вых (СКОР_С_12090_1,СКОР_М_12090_1,ОСТ); " в мм/сек
ВЫЧИСЛИТЬ (Y_М) (/) (2) (Y_М);
ЕСЛИ (ОСТ) (>=) (Y_М), то {
ВЫЧИСЛИТЬ (СКОР_М_12090_1) (+) (1) (СКОР_М_12090_1);
}
}
""""""""""""""РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ 12090_1"""""""""""""""""""""""""""
ФУНКЦИЯ (MULU), вх (ДЛИН_12090_1,ВЕС_ДИН_12090_1), вых (Х_С,Х_М);
ФУНКЦИЯ (DIVU), вх (КАЛ_С_12090_1,КАЛ_М_12090_1,10),
вых (Y_С,Y_М,ОСТ); "импульсов за 1/10 оборота
ЕСЛИ (Y_С) (=) (0), то {
ЕСЛИ (ОСТ) (>) (4), то {
ВЫЧИСЛИТЬ (Y_М) (+) (1) (Y_М);
}
ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,Y_М), вых (Z_С,Z_М,ОСТ);
ВЫЧИСЛИТЬ (Y_М) (/) (2) (Y_М);
ЕСЛИ (ОСТ) (>=) (Y_М), то {
ВЫЧИСЛИТЬ (Z_М) (+) (1) (Z_М);
}
}
ФУНКЦИЯ (MULU), вх (ДЛ_ТАХ_12090_1,3600), вых (Х_С,Х_М);
ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,МОСТ_12090_1), вых (Х_С,Х_М,ОСТ);
ВЫЧИСЛИТЬ (МОСТ_12090_1) (/) (2) (Y_М);
ЕСЛИ (ОСТ) (>=) (Y_М), то {
ВЫЧИСЛИТЬ (Х_М) (+) (1) (Х_М);
}
ФУНКЦИЯ (MULU), вх (Z_М,Х_М),
вых (ПРОИЗВ_С_12090_1,ПРОИЗВ_М_12090_1); " г. в час"
ФУНКЦИЯ (CMP32), вх (ПРОИЗВ_С_12090_1,ПРОИЗВ_М_12090_1, 22,0),
вых (ERR);
ЕСЛИ (ERR) (=) (-1), то {
ПЕРЕСЛАТЬ значение (0) в (ПРОИЗВ_С_12090_1);
ПЕРЕСЛАТЬ значение (0) в (ПРОИЗВ_М_12090_1);
}
ФУНКЦИЯ (DIVU), вх (ПРОИЗВ_С_12090_1,ПРОИЗВ_М_12090_1,10000),
вых (Х_С,Х_М,ОСТ);
ФУНКЦИЯ (FZOOM), вх (Х_М,3276,10000), вых (ПРЗ_12090_1);
ВЫЧИСЛИТЬ (ПРЗ_12090_1) (+) (819) (ПРЗ_12090_1);
ФУНКЦИЯ (FAO01), вх (0,1,ПРЗ_12090_1), вых (ERR);
ЕСЛИ (КОНВ_12090_1) (=) (1), то {
""""""""ИНИЦИАЛИЗАЦИЯ РУЧНОГО СЧЕТЧИКА КОЛИЧЕСТВА МАТЕРИАЛА 12090_1"""""""""
ЕСЛИ (ФЛ_СЧЕТ_12090_1) (=) (0), то {
ЕСЛИ (ВР_СЧ_12090_1) (>) (0), то {
ВЗВЕСТИ флаг (ФЛ_СЧЕТ_12090_1);
СБРОСИТЬ флаг (ФЛ_ЧТ_12090_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_КОЛ_С_12090_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_КОЛ_М_12090_1);
ВЫЧИСЛИТЬ (ВР_СЧ_12090_1) (*) (1) (КОЛ_ИЗМ_12090_1);
}
}
""""""""""""""РАСЧЕТ КОЛИЧЕСТВА МАТЕРИАЛА 12090_1"""""""""""""""""""""""""""
ЕСЛИ (ФЛ_ЧТ_12090_1) (=) (1), то {
ФУНКЦИЯ (MULU), вх (ДЛ_ТАХ_12090_1,5000), вых (Х_С,Х_М);
ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,МОСТ_12090_1),
вых (Х_С,Х_М,ОСТ);
ВЫЧИСЛИТЬ (МОСТ_12090_1) (/) (2) (Y_М);
ЕСЛИ (ОСТ) (>=) (Y_М), то {
ВЫЧИСЛИТЬ (Х_М) (+) (1) (Х_М);
}
ФУНКЦИЯ (MULU), вх (Z_М,Х_М), вых (Х_С,Х_М);
ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,5000),
вых (Х_С,Х_М,ОСТ); "г. в сек"
"""""""""""""""""РУЧНОЙ СЧЕТЧИК 12090_1"""""""""""""""""""""""""""""""""""""
ЕСЛИ (ФЛ_СЧЕТ_12090_1) (=) (1), то {
ЕСЛИ (ФЛ_МИН_12090_1) (=) (0), то {
ФУНКЦИЯ (ADDU32), вх (СЧЕТ_КОЛ_С_12090_1,
СЧЕТ_КОЛ_М_12090_1,
Х_С,Х_М),
вых (СЧЕТ_КОЛ_С_12090_1,
СЧЕТ_КОЛ_М_12090_1,ERR);
}ИНАЧЕ{
ФУНКЦИЯ (SUBU32), вх (СЧЕТ_КОЛ_С_12090_1,
СЧЕТ_КОЛ_М_12090_1,
Х_С,Х_М),
вых (СЧЕТ_КОЛ_С_12090_1,
СЧЕТ_КОЛ_М_12090_1,ERR);
}
ВЫЧИСЛИТЬ (КОЛ_ИЗМ_12090_1) (-) (1) (КОЛ_ИЗМ_12090_1);
ЕСЛИ (КОЛ_ИЗМ_12090_1) (=) (0), то {
СБРОСИТЬ флаг (ФЛ_СЧЕТ_12090_1);
ПЕРЕСЛАТЬ (0) в (ВР_СЧ_12090_1);
}
}
""""""""""""""""""""""""""СЧЕТЧИК МАТЕРИАЛА 12090_1"""""""""""""""""""""""""
ЕСЛИ (RDA9) (#) (10), то {
ЕСЛИ (ФЛ_СБР_12090_1) (=) (1), то {
ПЕРЕСЛАТЬ (0) в (ТЕХ_СЧ_М_12090_1);
ПЕРЕСЛАТЬ (0) в (ТЕХ_СЧ_С_12090_1);
СБРОСИТЬ флаг (ФЛ_СБР_12090_1);
}ИНАЧЕ{
ЕСЛИ (ФЛ_МИН_12090_1) (=) (0), то {
ФУНКЦИЯ (ADDU32), вх (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1, Х_С,Х_М),
вых (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1,ERR);
}ИНАЧЕ{
ФУНКЦИЯ (SUBU32), вх (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1, Х_С,Х_М),
вых (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1,ERR);
}
}
ЕСЛИ (ФЛ_МИН_12090_1) (=) (0), то {
ФУНКЦИЯ (ADDU32), вх (КОЛ_С_12090_1, КОЛ_М_12090_1, Х_С,Х_М),
вых (КОЛ_С_12090_1, КОЛ_М_12090_1,ERR);
ФУНКЦИЯ (ADDU32), вх (ИМП_С_12090_1, ИМП_М_12090_1, Х_С,Х_М),
вых (ИМП_С_12090_1, ИМП_М_12090_1,ERR);
}ИНАЧЕ{
ФУНКЦИЯ (SUBU32), вх (КОЛ_С_12090_1, КОЛ_М_12090_1, Х_С,Х_М),
вых (КОЛ_С_12090_1, КОЛ_М_12090_1,ERR);
ФУНКЦИЯ (SUBU32), вх (ИМП_С_12090_1, ИМП_М_12090_1, Х_С,Х_М),
вых (ИМП_С_12090_1, ИМП_М_12090_1,ERR);
}
}
СБРОСИТЬ флаг (ФЛ_ЧТ_12090_1);
}
ЕСЛИ (ТАЙМ_ИМП_12090_1@) (=) (0), то {
ФУНКЦИЯ (CMP32), вх (ИМП_С_12090_1, ИМП_М_12090_1, 0,10000),
вых (ERR);
ЕСЛИ (ERR) (#) (-1), то {
ФУНКЦИЯ (SUBU32), вх (ИМП_С_12090_1, ИМП_М_12090_1, 0,10000),
вых (ИМП_С_12090_1, ИМП_М_12090_1,ERR);
СТАРТ таймер (ТАЙМ_ИМП_12090_1);
}
}
}
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_2""""""
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_3""""""
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_4""""""
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12543""""""
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12544""""""
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12_1""""""
""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12_2""""""
"""""""""""""""""""""""ИМПУЛЬСНЫЕ СЧЕТЧИКИ""""""""""""""""""""""""""""""""
ЕСЛИ (ТАЙМ_ИМП_12090_1) (>) (10), то {
ВКЛЮЧИТЬ выход (ИМП_12090_1);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_1);
}
ЕСЛИ (ТАЙМ_ИМП_12090_2) (>) (10), то {
ВКЛЮЧИТЬ выход (ИМП_12090_2);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_2);
}
ЕСЛИ (ТАЙМ_ИМП_12090_3) (>) (10), то {
ВКЛЮЧИТЬ выход (ИМП_12090_3);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_3);
}
ЕСЛИ (ТАЙМ_ИМП_12090_4) (>) (10), то {
ВКЛЮЧИТЬ выход (ИМП_12090_4);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_4);
}
ЕСЛИ (ТАЙМ_ИМП_12543) (>) (20), то {
ВКЛЮЧИТЬ выход (ИМП_12543);
} ИНАЧЕ {
ВЫКЛЮЧИТЬ дискретный выход (ИМП_12543);