FUNCTION FC 1 : VOID
TITLE =
VERSION : 0.1
VAR_INPUT
Takt : BOOL ;
Start : BOOL ;
Zeitwert : INT ;
Reset : BOOL ;
END_VAR
VAR_OUTPUT
Restzeit : INT ;
Out : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =
UN #Takt;
ON #Start;
O #Out;
SPB no;
L #Restzeit;
L 1;
-I ;
T #Restzeit;
no: L #Restzeit;
L 0;
==I ;
= #Out;
U( ;
L #Restzeit;
L 0;
==I ;
) ;
UN #Start;
O #Reset;
SPBN nore;
L #Zeitwert;
T #Restzeit;
nore: NOP 0;
NETWORK
TITLE =
END_FUNCTION
ORGANIZATION_BLOCK OB 1
TITLE = "Main Program Sweep (Cycle)"
VERSION : 0.1
VAR_TEMP
OB1_EV_CLASS : BYTE ; //Bits 0-3 = 1 (Coming event), Bits 4-7 = 1 (Event class 1)
OB1_SCAN_1 : BYTE ; //1 (Cold restart scan 1 of OB 1), 3 (Scan 2-n of OB 1)
OB1_PRIORITY : BYTE ; //Priority of OB Execution
OB1_OB_NUMBR : BYTE ; //1 (Organization block 1, OB1)
OB1_RESERVED_1 : BYTE ; //Reserved for system
OB1_RESERVED_2 : BYTE ; //Reserved for system
OB1_PREV_CYCLE : INT ; //Cycle time of previous OB1 scan (milliseconds)
OB1_MIN_CYCLE : INT ; //Minimum cycle time of OB1 (milliseconds)
OB1_MAX_CYCLE : INT ; //Maximum cycle time of OB1 (milliseconds)
OB1_DATE_TIME : DATE_AND_TIME ; //Date and time OB1 started
END_VAR
BEGIN
NETWORK
TITLE =
UN M 2.0;
L S5T#100MS;
SE T 2;
NOP 0;
NOP 0;
NOP 0;
U T 2;
= M 2.0;
NETWORK
TITLE =
U M 2.0;
= L 20.0;
BLD 103;
U M 2.1;
= L 20.1;
BLD 103;
U M 2.2;
= L 20.2;
BLD 103;
CALL FC 1 (
Takt := L 20.0,
Start := L 20.1,
Zeitwert := 60,
Reset := L 20.2,
Restzeit := MW 20,
Out := M 2.4);
NOP 0;
END_ORGANIZATION_BLOCK