Zadanie czasowe

PROGRAM MAIN

VAR

l AT%Q*:BOOL:=FALSE;

ru AT%I*:BOOL:=FALSE;

t AT%I*:BOOL:=FALSE;

stan: INT:=1;

TOF_1: TOF;

TON_1: TON;

END_VAR

TOF_1(IN:=ru, PT:=T#5s);

CASE stan OF

1: l:=FALSE;

IF ru THEN stan:=2; END_IF

2: l:=TRUE;

IF NOT ru AND NOT TOF_1.Q THEN stan:=1; END_IF

END_CASE

ZADANIE SEKWENCYJNE

PROGRAM MAIN

VAR

p AT%Q*:BOOL:=FALSE;

z AT%Q*:BOOL:=FALSE;

x1 AT%I*:BOOL:=FALSE;

x2 AT%I*:BOOL:=FALSE;

x3 AT%I*:BOOL:=FALSE;

stan: INT:=1;

END_VAR

CASE stan OF

1: z:=FALSE; p:=FALSE;

IF x3 THEN stan:=3; END_IF

IF NOT x1 THEN stan:=2; END_IF

2: z:=FALSE; p:=TRUE;

IF x3 THEN stan:=3; END_IF

IF x2 THEN stan:=1; END_IF

3: z:=TRUE; p:=FALSE;

IF NOT x2 THEN stan:=1; END_IF

END_CASE