VAR
fbHys: util.HYSTERESIS;
aiValue: INT := 50; //входное аналоговое значение
alarmHys: BOOL; //результат ФБ
END_VAR
fbHys (IN := aiValue, LOW := 40, HIGH := 60);
alarmHys := fbHys.OUT; |
VAR
fbLim: util.LIMITALARM;
aiValue: INT; //входное значение
hiLim: INT; //верхняя граница
loLim: INT; //нижняя граница
alarmHigh: BOOL; // TRUE, если IN > HIGH (выход O)
alarmLow: BOOL; // TRUE, если IN < LOW (выход U)
inRange: BOOL; // TRUE, если значение в диапазоне (выход IL)
END_VAR
fbLim (IN := aiValue, HIGH := hiLim, LOW := loLim);
alarmHigh := fbLim.O; // превышение верхнего предела
alarmLow := fbLim.U; // ниже нижнего предела
inRange := fbLim.IL; // в пределах диапазона |
i := util.BCD_TO_INT(73); // результат 49
k := util.BCD_TO_INT(151); // результат 97
l := util.BCD_TO_INT(15); // выход: -1, т.к. значение не соответствует формату BCD* |
i := util.INT_TO_BCD(49); // результат 73
k := util.INT_TO_BCD(97); // результат 151
l := util.INT_TO_BCD(100); // Ошибка! Выход: 255 |
FLAG := util.EXTRACT(X:=81, N:=4); (*Результат: TRUE, так как 81 в двоичном
виде 1010001, поэтому бит "4" равен 1*)
FLAG := util.EXTRACT(X:=33, N:=0); (*Результат: TRUE, так как 33 в двоичном
виде 100001, поэтому бит "0" равен 1*) |
VAR
b0: BOOL := TRUE; // бит 0
b1: BOOL := FALSE; // бит 1
b2: BOOL := TRUE; // бит 2
b3: BOOL := FALSE; // бит 3
b4: BOOL := FALSE; // бит 4
b5: BOOL := FALSE; // бит 5
b6: BOOL := FALSE; // бит 6
b7: BOOL := TRUE; // бит 7
packed: BYTE; // упакованный байт
END_VAR
packed := util.PACK(B0 := b0, B1 := b1, B2 := b2, B3 := b3, B4 := b4, B5 := b5,
B6 := b6, B7 := b7); // packed = 16#85 (1000_0101)
|
Var1 := 38; // в двоичном виде: 100110
Var2 := util.PUTBIT(Var1, 4, TRUE); // Результат: 54 = 2#110110
Var3 := util.PUTBIT(Var1, 1, FALSE); // Результат: 36 = 2#100100 |
VAR
fbUnpack: util.UNPACK;
Value: BYTE := 16#85; // 1000_0101
b0, b1, b2, b3, b4, b5, b6, b7: BOOL;
END_VAR
fbUnpack(B := Value);
b0 := fbUnpack.B0; // TRUE
b1 := fbUnpack.B1; // FALSE
b7 := fbUnpack.B7; // TRUE |
VAR
fbPD: util.PD;
actual: REAL := 45.0; // измеренное значение
setPoint: REAL := 50.0; // уставка
yOut: REAL; // выход регулятора
limits: BOOL; // признак ограничения
END_VAR
fbPD(
ACTUAL := actual,
SET_POINT := setPoint,
KP := 2.0,
TV := 12.0,
Y_OFFSET := 0.0,
Y_MIN := 0.0, // нижнее ограничение выхода
Y_MAX := 100.0, // верхнее ограничение выхода
MANUAL := FALSE,
RESET := FALSE
);
yOut := fbPD.Y;
limits := fbPD.LIMITS_ACTIVE; |
VAR
fbPID: util.PID;
actual: REAL := 45.0; // текущее значение
setPoint: REAL := 50.0; // уставка
yOut: REAL; // выход регулятора
limits: BOOL; // признак ограничения выхода
overflow: BOOL; // признак переполнения интегральной части
END_VAR
fbPID(
ACTUAL := actual,
SET_POINT := setPoint,
KP := 2.0,
TN := 10.0,
TV := 1.0,
Y_OFFSET := 0.0,
Y_MIN := 0.0,
Y_MAX := 100.0,
MANUAL := FALSE,
RESET := FALSE
);
yOut := fbPID.Y;
limits := fbPID.LIMITS_ACTIVE;
overflow := fbPID.OVERFLOW; |
VAR
fbPID: util.PID_FIXCYCLE;
actual: REAL := 45.0; // текущее значение
setPoint: REAL := 50.0; // уставка
cycle: REAL := 0.01; // время цикла, с (например, 10 мс)
yOut: REAL; // выход регулятора
limits: BOOL; // признак ограничения выхода
overflow: BOOL; // признак переполнения интегральной части
END_VAR
fbPID(
ACTUAL := actual,
SET_POINT := setPoint,
KP := 2.0,
TN := 10.0,
TV := 1.0,
Y_OFFSET := 0.0,
Y_MIN := 0.0,
Y_MAX := 100.0,
MANUAL := FALSE,
RESET := FALSE,
CYCLE := cycle
);
yOut := fbPID.Y;
limits := fbPID.LIMITS_ACTIVE;
overflow := fbPID.OVERFLOW; |
VAR
p: util.POINT; // переменная типа POINT (структура с полями X и Y)
END_VAR
p.X := 1; // записать значение в поле X
p.Y := 2; // записать значение в поле Y |
VAR
CHARACTERISTIC_LINE: util.CHARCURVE;
KL: ARRAY[0..10] OF util.POINT := [
(X := 0, Y := 0),
(X := 250, Y := 50),
(X := 500, Y := 150),
(X := 750, Y := 400),
7((X := 1000, Y := 1000))];
COUNTER: INT;
END_VAR
COUNTER := COUNTER+10; //подает на CHARCURVE, например, постоянно растущий сигнал
CHARACTERISTIC_LINE(IN := COUNTER, N := 5, P := KL); |
VAR
Ramp: util.RAMP_INT;
InValue: INT; // входной сигнал (ступенька 0/100)
OutValue: INT; // выход RAMP_INT
Toggle: BOOL; // переключение входа
END_VAR
// Пример входного сигнала: переключение между 0 и 100
IF Toggle THEN
InValue := 100;
ELSE
InValue := 0;
END_IF;
Ramp(IN := InValue, ASCEND := 25, DESCEND := 20, TIMEBASE := T#1s, RESET := FALSE);
OutValue := Ramp.OUT; |
VAR
Ramp: util.RAMP_REAL;
InValue: REAL; // входной сигнал (ступенька 0/100)
OutValue: REAL; // выход RAMP_REAL
Toggle: BOOL; // переключение входа
END_VAR
// Пример входного сигнала: переключение между 0 и 100
IF Toggle THEN
InValue := 100;
ELSE
InValue := 0;
END_IF;
Ramp(IN := InValue, ASCEND := 25.5, DESCEND := 20.5, TIMEBASE := T#1s,
RESET := FALSE);
OutValue := Ramp.OUT; |
VAR
fbDerivative: util.DERIVATIVE;
rInput: REAL := 0.0; // входной сигнал
dwTime: DWORD := 100; // время между вызовами, мс (пример: 100 мс)
xReset: BOOL := FALSE; // сброс
rOut: REAL; // производная (выход)
END_VAR
// Пример изменения входного значения
rInput := rInput+ 1.0;
fbDerivative(IN := rInput, TM := dwTime, RESET := xReset);
rOut := fbDerivative.OUT; |
VAR
integral_inst: util.INTEGRAL;
rInput: REAL := 1.0; // входное значение (например, постоянный сигнал)
dwTime: DWORD := 100; // время между вызовами, мс (пример: 100 мс)
xReset: BOOL := FALSE; // сброс интегратора
rOut: REAL; // значение интеграла
xOverflow: BOOL; // признак переполнения
END_VAR
integral_inst(IN := rInput, TM := dwTime, RESET := xReset);
rOut := integral_inst.OUT;
xOverflow := integral_inst.OVERFLOW; |
VAR
fbLinTrafo: util.LIN_TRAFO;
rVolt: REAL := 5.0; // Напряжение с датчика (В)
rTemp: REAL; // Температура (°C)
xError: BOOL; // признак ошибки
END_VAR
fbLinTrafo(IN := rVolt, IN_MIN := 0.0, IN_MAX := 10.0, OUT_MIN := -20.0,
OUT_MAX := 40.0);
rTemp := fbLinTrafo.OUT;
xError := fbLinTrafo.ERROR; |
VAR
fbStat: util.STATISTICS_INT;
iValue: INT := 0; // входное значение
xReset: BOOL := FALSE; // сброс статистики
iMin: INT; // минимум
iMax: INT; // максимум
iAvg: INT; // среднее
END_VAR
fbStat(IN := iValue, RESET := xReset);
iMin := fbStat.MN
iMax := fbStat.MX
iAvg := fbStat.AVG |
VAR
fbStat: util.STATISTICS_REAL;
iValue: REAL := 0; // входное значение
xReset: BOOL := FALSE; // сброс статистики
iMin: REAL; // минимум
iMax: REAL; // максимум
iAvg: REAL; // среднее
END_VAR
fbStat(IN := iValue, RESET := xReset);
iMin := fbStat.MN
iMax := fbStat.MX
iAvg := fbStat.AVG |
VAR
fbVariance: util.VARIANCE;
rValue: REAL := 10.0; // входное значение
xReset: BOOL := FALSE; // сброс расчета
rVar: REAL; // дисперсия
END_VAR
fbVariance(IN := rValue, RESET := xReset);
rVar := fbVariance.OUT;
|
VAR
fbBlink: util.BLINK;
xEnable: BOOL := TRUE; // разрешить переключение
tLow: TIME := T#500ms; // время OUT = FALSE
tHigh: TIME := T#500ms; // время OUT = TRUE
xOut: BOOL; // входной сигнал
END_VAR
fbBlink(ENABLE := xEnable, TIMELOW := tLow, TIMEHIGH := tHigh);
xOut := fbBlink.OUT;
|
VAR
fbFreq: util.FREQ_MEASURE;
xDI: BOOL; // дискретный вход (например, датчик импульсов)
iPeriods: INT := 5; // усреднение по 5 периодам (1..10)
xReset: BOOL := FALSE; // сброс измерения
rFreqHz: REAL; // измеренная частота, Гц
xValid: BOOL; // признак валидности измерения
END_VAR
fbFreq(IN := xDI, PERIODS := iPeriods, RESET := xReset);
rFreqHz := fbFreq.OUT;
xValid := fbFreq.VALID; |
VAR
fbgen: util.GEN; (* экземпляр ФБ *)
signal: INT; (* выходной сигнал *)
END_VAR
(* Генерация треугольника от -AMPLITUDE до +AMPLITUDE.
Период задан по количеству вызовов: BASE = FALSE, CYCLES = 100 *)
fbgen(
MODE := util.TRIANGLE,
BASE := FALSE,
CYCLES := 100,
AMPLITUDE := 1000,
RESET := FALSE,
OUT => signal
);
|
VAR
wVersion: WORD;
END_VAR
wVersion := util.Version_Util(b:=True);
|