a := 1+3; // результат 4 |
x1 := 1=1; // результат TRUE
x2 := TRUE=FALSE; // результат FALSE |
END_PROGRAM
TYPE
eAutoMode : (
Manual, (*Ручной режим*)
SemiAuto, (*Полуавтоматический*)
Auto, (*Автоматический*)
Service := 10 (*Сервисный режим*)
);
END_TYPE |
VAR
eAM: eAutoMode;
END_VAR
IF eAM = Manual THEN
(* работа в ручном режиме *)
END_IF
eAM := SemiAuto; (* eAM будет равно 1 или SemiAuto *)
eAM := 10; (* eAM будет равно 10 или Service *) |
TYPE
enShapes: (circle, square, triangle);
enButtons: (circle, pentagon, star);
END_TYPE |
TYPE
enShapes: (SHAPE_CIRCLE, SHAPE_SQUARE, SHAPE_TRIANGLE);
enButtons: (BTN_CIRCLE, BTN_PENTAGON, BTN_STAR);
END_TYPE |
END_FUNCTION
TYPE
eAutoMode : WORD
(
Manual :=1, (*Ручной режим*)
SemiAuto, (*Полуавтоматический*)
Auto, (*Автоматический*)
Service := 5 (*Сервисный режим*)
) ;
END_TYPE |
VAR
eAM : eAutoMode;
wWord: WORD;
END_VAR
wWord:=eAutoMode.Auto; (*wWord = 3*)
END_PROGRAM |
VAR RETAIN
iCycles: UDINT := 0;
fbTON: TON; // таймер задержки включения
END_VAR |
VAR_GLOBAL RETAIN
gCounter: DINT := 0;
gMode: INT := 1;
END_VAR |
FUNCTION fct
VAR_INPUT
in1, in2: DWORD;
END_VAR
VAR_OUTPUT
in3: DWORD;
END_VAR
VAR
local1, local2: DWORD;
END_VAR
END_FUNCTION |
VAR
TPInst: TP; //экземпляр TP
Btn: BOOL; //кнопка-сигнал
PulseOut: BOOL; //импульсный выход
END_VAR
TPInst (IN := Btn, PT := T#200ms);
PulseOut := TPInst.Q; |
VAR
fbTON: TON; //экземпляр таймера TON
Start: BOOL; //входной сигнал
Motor: BOOL; //выход
END_VAR
//вызов таймера каждый цикл
fbTON (IN := Start, PT := T#3s);
//выход активируется после выдержки
Motor := fbTON.Q; |
VAR
fbTOFF: TOF; //экземпляр таймера TOF
RunCmd: BOOL; //команда "работать"
Fan: BOOL; //выход на вентилятор
END_VAR
fbTOFF (IN := RunCmd, PT := T#10s);
Fan := fbTOFF.Q; |
VAR
Cnt: CTU; //экземпляр счетчика CTU
Pulse: BOOL; //импульсы счета
ResetBtn: BOOL; //сброс
Done: BOOL;
Value: WORD;
END_VAR
Cnt (CU := Pulse, RESET := ResetBtn, PV := 10); //считать до 10
Done := Cnt.Q; //TRUE, когда CV >= 10
Value := Cnt.CV; //текущее значение счетчика |
VAR
CntD: CTD; //экземпляр счетчика CTD
DecPulse: BOOL; //импульсы декремента
LoadBtn: BOOL; //загрузить начальное значение
Zero: BOOL;
Value: WORD;
END_VAR
CntD (CD := DecPulse, LOAD := LoadBtn, PV := 10); //загрузка 10, затем считать
вниз
Zero := CntD.Q; //TRUE, когда CV = 0
Value := CntD.CV; //текущее значение счетчика |
VAR
Cnt: CTUD; //экземпляр счетчика CTUD
UpPulse: BOOL; //импульсы счета вверх
DnPulse: BOOL; //импульсы счета вниз
ResetBtn: BOOL; //сброс
LoadBtn: BOOL; //загрузка PV и CV
QU_reach: BOOL;
QD_zero: BOOL;
Value: WORD;
END_VAR
Cnt (CU := UpPulse, CD := DnPulse, RESET := ResetBtn, LOAD := LoadBtn, PV := 10);
QU_reach := Cnt.QU; //TRUE, когда CV >= 10
QD_zero := Cnt.QD; //TRUE, когда CV = 0
Value := Cnt.CV; //текущее значение счетчика |
VAR
Latch: SR; //экземпляр переключателя SR
StartPB: BOOL; //установить
StopPB: BOOL; //сбросить
MotorOn: BOOL;
END_VAR
Latch (SET1 := StartPB, RESET := StopPB);
MotorOn := Latch.Q1; |
VAR
Latch: RS; //экземпляр переключателя RS
StartPB: BOOL; //установить
StopPB: BOOL; //сбросить, доминирует
MotorOn: BOOL;
END_VAR
Latch (SET := StartPB, RESET1 := StopPB);
MotorOn := Latch.Q1; |
VAR
rt: R_TRIG; //экземпляр R_TRIG
Button: BOOL; //входной сигнал
Pulse: BOOL; //импульс 1 цикл
END_VAR
rt (CLK := Button);
Pulse := rt.Q; //TRUE только при переходе Button FALSE -> TRUE
IF (rt.Q) THEN
dwCount := dwCount + 1;
END_IF |
VAR
ft: F_TRIG; //экземпляр F_TRIG
Sensor: BOOL; //входной сигнал
Pulse: BOOL; //импульс 1 цикл
END_VAR
Ft (CLK := Sensor);
Pulse := ft.Q; //TRUE только при переходе Sensor TRUE -> FALSE
IF (rt.Q) THEN
dwCount := dwCount + 1;
END_IF |
VAR
in_byte: BYTE := 16#45; // 2#0100_0101
in_word: WORD := 16#45; // 2#0100_0101
out_byte: BYTE;
out_word: WORD;
n: BYTE := 2;
END_VAR
out_byte := SHL (in_byte, n); //Результат 2#0001_0100, 16#14
out_word := SHL (in_word, n); //Результат 2#1_0001_0100, 16#0114
|
VAR
in_byte: BYTE := 16#45; // 2#0100_0101
in_word: WORD := 16#45; // 2#0100_0101
out_byte: BYTE;
out_word: WORD;
n: BYTE := 2;
END_VAR
out_byte := SHR (in_byte, n); //Результат 2#0001_0001, 16#11
out_word := SHR (in_word, n); //Результат 2#0000_0000_0001_0001, 16#0011
|
VAR
in_byte: BYTE := 16#45;
in_word: WORD := 16#45;
out_byte: BYTE;
out_word: WORD;
n: BYTE := 2;
END_VAR
out_byte := ROL (in_byte, n); //Результат 16#15
out_word := ROL (in_word, n); //Результат 16#0114
|
VAR
in_byte: BYTE := 16#45;
in_word: WORD := 16#45;
out_byte: BYTE;
out_word: WORD;
n: BYTE := 2;
END_VAR
out_byte := ROR (in_byte, n); //Результат 16#51
out_word := ROR (in_word, n); //Результат 16#4011
|
VAR
w: WORD := 16#1234;
q: WORD := 16#1234;
wBE: WORD;
qLE: WORD;
END_VAR
wBE := TO_BIG_ENDIAN (w); //Возвращаемое значение 16#3412
qLE := TO_LITTLE_ENDIAN (q); //Возвращаемое значение 16#1234
|
VAR
wFBE: WORD := 16#3412; (*байты 34 12, как если бы пришло от big-endian
значение 16#1234*)
wFLE: WORD := 16#1234; (*байты 12 34, как если бы пришло от little-endian
значение 16#1234*)
valBE: WORD;
valLE: WORD;
END_VAR
valBE := FROM_BIG_ENDIAN (wFBE); (*на little-endian CPU возвращаемое значение
16#1234*)
valLE := FROM_LITTLE_ENDIAN (wFLE); (*на little-endian CPU возвращаемое значение
16#1234*)
|
VarSTRING1 := LEN (‘ALTA’); //возвращаемое значение 4 |
VarSTRING1 := LEFT (‘ALTA’,3); //возвращаемое значение ’ALT’ |
VarSTRING1 := RIGHT (‘ALTA’,3); //возвращаемое значение ’LTA’ |
MID (STR, LEN, POS) | означает: вырезать LEN символов из STR строки, начиная с POS. |
VarSTRING1 := MID (‘ALTA’,2,2); //возвращаемое значение ’LT’ |
VarSTRING1 := CONCAT (‘ALTA’,‘IDE’); //возвращаемое значение ’ALTAIDE’ |
INSERT(STR1, STR2, POS) | означает: вставить STR2 в STR1 в позиции POS. |
VarSTRING1 := INSERT (‘ALTA’,‘IDE’,2); //возвращаемое значение ’ALIDETA’ |
DELETE(STR, LEN, POS) | означает: удалить LEN символов из STR, начиная с позиции POS. |
VarSTRING1 := DELETE (‘ALTAIDE’,2,3); //возвращаемое значение ’ALTDE’ |
REPLACE(STR1, STR2, LEN, POS) | означает: заменить LEN символов строки STR1 на STR2 начиная с позиции POS. |
VarSTRING1 := REPLACE (‘ALTA’,‘IDE’,2,2); //возвращаемое значение ’AIDEA’ |
FIND(STR1, STR2) | означает: найти позицию в строке STR1, где впервые встречается подстрока STR2. |
VarINT1 := FIND (‘ALTA IDE’,‘ID’); //возвращаемое значение 6 |
OUT := STRING_EQUAL (‘ALTA’,‘IDE’); //возвращаемое значение ‘FALSE’
OUT := STRING_EQUAL (‘ALTA’,‘ALTA’); //возвращаемое значение ‘TRUE’
OUT := WSTRING_EQUAL ("ALTA","IDE"); //возвращаемое значение ‘FALSE’
OUT := WSTRING_EQUAL ("ALTA","ALTA"); //возвращаемое значение ‘TRUE’ |
VAR
IN1: STRING := ‘ALTA’;
IN2: STRING := ‘IDE’;
IN3: WSTRING := "IDE";
IN4: WSTRING := "ALTA";
GS: BOOL;
GW: BOOL;
END_VAR
GS := STRING_GREATER (IN1,IN2); (*возвращаемое значение FALSE, т.к. 'A'
лексикографически меньше 'I'*)
GW := WSTRING_GREATER (IN3,IN4); (*возвращаемое значение TRUE, т.к. 'I'
лексикографически больше 'A'*) |
VAR
IN1: STRING := ‘ALTA’;
IN2: STRING := ‘IDE’;
IN3: WSTRING := "IDE";
IN4: WSTRING := "ALTA";
GS: BOOL;
GW: BOOL;
END_VAR
GS := STRING_LESS (IN1,IN2); (*возвращаемое значение TRUE, т.к. 'A'
лексикографически меньше 'I'*)
GW := WSTRING_LESS (IN3,IN4); (*возвращаемое значение FALSE, т.к. 'I'
лексикографически больше 'A'*) |
q := ABS (-5); //возвращаемое значение 5 |
q := SQRT (16.0); //возвращаемое значение 4.0 |
q := LN (36.6); //возвращаемое значение 3.6000482404073 |
q := LOG (36.6); //возвращаемое значение 1.5634810853944 |
q := EXP (2.0); //возвращаемое значение 7.3890561 |
q := SIN (0.5); //возвращаемое значение 0.4794255386 |
q := COS (0.7); //возвращаемое значение 0.7648421873 |
q := TAN (0.33); //возвращаемое значение 0.342654129 |
q := ASIN (0.5); //возвращаемое значение 0.5235987756 |
q := ACOS (0.7); //возвращаемое значение 0.7953988302 |
q := ATAN (0.33); //возвращаемое значение 0.3187475604 |
var1 := EXPT (7.1,2); //возвращаемое значение 50.41 |
x := TRUNC (7.9); //возвращаемое значение 7
y := TRUNC (-0.9); //возвращаемое значение 0 |
q := ROUND (2.3); //возвращаемое значение 2.0
|
q := ATAN2 (0.0,-1.0); //возвращаемое значение 3.141592653589793
|
OUT := MAX (10,12); //возвращаемое значение 12
|
OUT := MIN (10,12); //возвращаемое значение 10
|
OUT := LIMIT (0,5,10); //возвращаемое значение 5
OUT := LIMIT (0,-2,10); //возвращаемое значение 0
OUT := LIMIT (0,-15,10); //возвращаемое значение 10 |
VAR
x: LREAL := 12.5;
OUT: BOOL;
END_VAR
OUT := IS_VALID (x); //возвращаемое значение TRUE, т.к. x — корректное число |
VAR
bcdVal: WORD := 16#1234; //BCD: 1-2-3-4
OUT: BOOL;
END_VAR
OUT := IS_VALID_BCD (bcdVal); //возвращаемое значение TRUE |
VAR
y: INT := 2026;
m: INT := 11;
d: INT := 15;
myDate: DATE;
END_VAR
myDate := CONCAT_DATE (y, m, d); //возвращаемое значение 2026-11-15
|
VAR
myDate: DATE := D#2026-02-20;
y: INT;
m: INT;
d: INT;
f: INT;
END_VAR
f := SPLIT_DATE (myDate, y, m, d); //выходные переменные y=2026, m=02, d=20
|
t := MUL_TIME (T#2s, 3);//возвращаемое значение T#6s
|
t1 := DIV_TIME (T#10s, 4);//возвращаемое значение T#2s500ms
|
VAR
CurTime := TIME;
END_VAR
CurTime := TIME (); //возвращаемое значение - текущее время, например T#6h41m30s
|
VAR
StartTime: INSTANT;
END_VAR
StartTime := INSTANT_NOW (); //возвращаемое значение - время от начала запуска
приложения, например 1h15m30s
|
VAR
wVal: WORD := 16#00FA; //250
iVal: INT;
END_VAR
iVal := WORD_TO_INT (wVal); //iVal = 250
|