}
}ИНАЧЕ{
СБРОСИТЬ флаг (ФЛ_СМ1);
}
ЕСЛИ (ЧАС) (=) (20), то {
ЕСЛИ (ФЛ_СМ2) (=) (0), то {
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12090_1) в (СМ_С_12090_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12090_1) в (СМ_М_12090_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12090_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12090_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12090_2) в (СМ_С_12090_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12090_2) в (СМ_М_12090_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12090_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12090_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12090_3) в (СМ_С_12090_3);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12090_3) в (СМ_М_12090_3);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12090_3);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12090_3);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12090_4) в (СМ_С_12090_4);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12090_4) в (СМ_М_12090_4);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12090_4);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12090_4);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12543_1) в (СМ_С_12543_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12543_1) в (СМ_М_12543_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12543_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12543_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12543_2) в (СМ_С_12543_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12543_2) в (СМ_М_12543_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12543_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12543_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12544_1) в (СМ_С_12544_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12544_1) в (СМ_М_12544_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12544_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12544_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12544_2) в (СМ_С_12544_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12544_2) в (СМ_М_12544_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12544_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12544_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12_1) в (СМ_С_12_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12_1) в (СМ_М_12_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_С_12_2) в (СМ_С_12_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СМ_М_12_2) в (СМ_М_12_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_С_12_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СМ_М_12_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12090_1) в (СУТ_С_12090_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12090_1) в (СУТ_М_12090_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12090_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12090_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12090_2) в (СУТ_С_12090_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12090_2) в (СУТ_М_12090_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12090_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12090_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12090_3) в (СУТ_С_12090_3);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12090_3) в (СУТ_М_12090_3);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12090_3);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12090_3);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12090_4) в (СУТ_С_12090_4);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12090_4) в (СУТ_М_12090_4);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12090_4);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12090_4);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12543_1) в (СУТ_С_12543_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12543_1) в (СУТ_М_12543_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12543_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12543_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12543_2) в (СУТ_С_12543_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12543_2) в (СУТ_М_12543_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12543_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12543_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12544_1) в (СУТ_С_12544_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12544_1) в (СУТ_М_12544_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12544_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12544_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12544_2) в (СУТ_С_12544_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12544_2) в (СУТ_М_12544_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12544_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12544_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12_1) в (СУТ_С_12_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12_1) в (СУТ_М_12_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12_1);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12_1);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_С_12_2) в (СУТ_С_12_2);
ПЕРЕСЛАТЬ значение (СЧЕТ_СУТ_М_12_2) в (СУТ_М_12_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_С_12_2);
ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_СУТ_М_12_2);
ВЗВЕСТИ флаг (ФЛ_СМ2);
}
}ИНАЧЕ{
СБРОСИТЬ флаг (ФЛ_СМ2);
}
""""""""""""""""""""""МАТЕРИАЛ ЗА МЕСЯЦ"""""""""""""""""""""""""
ПЕРЕЙТИ, если переменной (МЕС) соответствует {
ЗНАЧЕНИЕ (1):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (2):
ФУНКЦИЯ (DIVU), вх (0,ГОД,4), вых (Х_С,Х_М,ОСТ);
ЕСЛИ (ОСТ) (#) (0), то {
ЕСЛИ (ЧИСЛ) (=) (28), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
}ИНАЧЕ {
ЕСЛИ (ЧИСЛ) (=) (29), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
}
ВЫХОД;
ЗНАЧЕНИЕ (3):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (4):
ЕСЛИ (ЧИСЛ) (=) (30), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (5):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (6):
ЕСЛИ (ЧИСЛ) (=) (30), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (7):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (8):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (9):
ЕСЛИ (ЧИСЛ) (=) (30), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (10):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (11):
ЕСЛИ (ЧИСЛ) (=) (30), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
ВЫХОД;
ЗНАЧЕНИЕ (12):
ЕСЛИ (ЧИСЛ) (=) (31), то {
ВЫЗВАТЬ процедуру (СЧЕТМЕС);
}
}
СТОП таймер (ТАЙМЕР);
ВЫЧИСЛИТЬ (100) (-) (ТАЙМЕР) (ТИК);
ИДТИ на метку (НАЧАЛО); "КОНЕЦ ПРОГРАММЫ
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
""""""""""""""""Подпрограмма фильтрации сигнала с месдоз"""""""""""""""""""
""""""""""""""""""""""""""""""""ФИЛ_МЕСДОЗ"""""""""""""""""""""""""""""""""
ПОДПРОГРАММА (ФИЛ_МЕСДОЗ) {
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12090_1""""""""""""""""""""
ЕСЛИ (ВРЕМ_12090_1) (>=) (ВРЕМ_ФИЛ_12090_1), то {
ЕСЛИ (СОСТ_12090_1) (=) (0), то { " Успешное выделение буфера
ЕСЛИ (ОШИБКА_12090_1) (=) (0), то { " Успешное снятие измерения
ФУНКЦИЯ (RUN_FTR),
входные параметры (НАЧ_БУФ_12090_1, МЕСДОЗА_12090_1),
выходные параметры (ФИЛ_12090_1, БУФ_ПОЛН_12090_1);
}
}
ПЕРЕСЛАТЬ значение (1) в (ВРЕМ_12090_1);
} ИНАЧЕ {
ВЫЧИСЛИТЬ (ВРЕМ_12090_1) (+) (1) (ВРЕМ_12090_1);
}
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛ МЕСДОЗЫ 12090_2"""""""""""""""""""""
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12090_3"""""""""""""""""""""
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12090_4"""""""""""""""""""""
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12543""""""""""""""""""""
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12544""""""""""""""""""""
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12_1""""""""""""""""""""
""""""""""""""""""""ФИЛЬТРАЦИЯ СИГНАЛА МЕСДОЗЫ 12_2""""""""""""""""""""
ЗАГРУЗИТЬ таймер (ТАЙМ_ФИЛ) уставкой (ВРЕМ_ФИЛ), режим (0);
СТАРТ таймер (ТАЙМ_ФИЛ); "РЕИНИЦИАЛИЗАЦИЯ ТАЙМЕРА
} "КОНЕЦ ПОДПРОГРАММЫ
""""""""""""""""Подпрограмма динамического тарирования"""""""""""""""""""""
""""""""""""""""""""""""""""""""ДИНАМ_ТАР""""""""""""""""""""""""""""""""""
ПОДПРОГРАММА (ДИНАМ_ТАР) {
ЕСЛИ (СОСТ_ТАР) (=) (0), то { " Успешное выделение буфера
ФУНКЦИЯ (RUN_FTR),
входные параметры (НАЧ_БУФ_ТАР, БРУТТО_ДИН),
выходные параметры (ТАРА_ДИН, БУФ_ПОЛН_ТАР);
ВЫЧИСЛИТЬ (ЧИСЛО_ИЗМ) (+) (1) (ЧИСЛО_ИЗМ);
}
СТАРТ таймер (ТАЙМ_ТАР);
} "КОНЕЦ ПОДПРОГРАММЫ
""""""""""""""""Подпрограмма динамического юстирования"""""""""""""""""""""
""""""""""""""""""""""""""""""""ДИНАМ_ЮСТ""""""""""""""""""""""""""""""""""
ПОДПРОГРАММА (ДИНАМ_ЮСТ) {
ЕСЛИ (СОСТ_ЮСТ) (=) (0), то { " Успешное выделение буфера
ФУНКЦИЯ (RUN_FTR),
входные параметры (НАЧ_БУФ_ЮСТ, БРУТТО_ДИНАМ),
выходные параметры (ЮСТ_ДИН, БУФ_ПОЛН_ЮСТ);
ВЫЧИСЛИТЬ (ЧИСЛО_ИЗМЕР) (+) (1) (ЧИСЛО_ИЗМЕР);
}
СТАРТ таймер (ТАЙМ_ЮСТ);
} "КОНЕЦ ПОДПРОГРАММЫ
""""""""""""""""Подпрограмма чтения тахогенераторов"""""""""""""""""""""
""""""""""""""""""""""""""""""""ЧТ_ТАХ""""""""""""""""""""""""""""""""""
ПОДПРОГРАММА (ЧТ_ТАХ) {
ФУНКЦИЯ (FRDQC01), входные параметры (2,8),
выходные параметры (РАБ_КОНВ);