Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM PLC_PRG
- VAR_INPUT
- START AT %IX0.0:BOOL;
- A1 AT %IX0.1:BOOL;
- A2 AT %IX0.2:BOOL;
- A3 AT %IX0.3:BOOL;
- A4 AT %IX0.4:BOOL;
- A5 AT %IX0.5:BOOL;
- A6 AT %IX0.6:BOOL;
- B1 AT %IX0.7:BOOL;
- END_VAR
- VAR_OUTPUT
- Y1 AT %QX0.0:BOOL:=0;
- Y3 AT %QX0.0:BOOL:=0;
- Y5 AT %QX0.0:BOOL:=1;
- Y6 AT %QX0.0:BOOL:=0;
- END_VAR
- VAR
- TAJMER:TON;
- KORAK:INT:=1;
- K:TIME:= T#3S;
- END_VAR
- --------------------------------------
- TAJMER(IN:=A4, PT:=K);
- IF B1 THEN
- K:=T#5S;
- END_IF
- IF NOT B1 THEN
- K:=T#3S;
- END_IF
- IF START AND A1 AND A3 AND A6 AND KORAK=1 THEN
- Y1:=1;
- KORAK:=2;
- END_IF
- IF A2 AND KORAK=2 THEN
- Y3:=1;
- KORAK:=4;
- END_IF
- IF TAJMER.Q AND KORAK=4 THEN
- Y3:=0;
- KORAK:=5;
- END_IF
- IF A3 AND KORAK=5 THEN
- Y6:=1;
- Y5:=0;
- KORAK:=6;
- END_IF
- IF A5 AND KORAK=6 THEN
- Y3:=1;
- KORAK:=8;
- END_IF
- IF TAJMER.Q AND KORAK=8 THEN
- Y3:=0;
- KORAK:=9;
- END_IF
- IF A3 AND KORAK=9 THEN
- Y1:=0;
- Y5:=1;
- Y6:=0;
- KORAK:=1;
- END_IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement