Advertisement
Guest User

Untitled

a guest
Dec 13th, 2019
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.96 KB | None | 0 0
  1. PROGRAM PLC_PRG
  2. VAR_INPUT
  3. START AT %IX0.0:BOOL;
  4. A1 AT %IX0.1:BOOL;
  5. A2 AT %IX0.2:BOOL;
  6. A3 AT %IX0.3:BOOL;
  7. A4 AT %IX0.4:BOOL;
  8. A5 AT %IX0.5:BOOL;
  9. A6 AT %IX0.6:BOOL;
  10. B1 AT %IX0.7:BOOL;
  11.  
  12.  
  13. END_VAR
  14. VAR_OUTPUT
  15. Y1 AT %QX0.0:BOOL:=0;
  16. Y3 AT %QX0.0:BOOL:=0;
  17. Y5 AT %QX0.0:BOOL:=1;
  18. Y6 AT %QX0.0:BOOL:=0;
  19.  
  20. END_VAR
  21.  
  22. VAR
  23. TAJMER:TON;
  24. KORAK:INT:=1;
  25. K:TIME:= T#3S;
  26.  
  27. END_VAR
  28. --------------------------------------
  29. TAJMER(IN:=A4, PT:=K);
  30. IF B1 THEN
  31. K:=T#5S;
  32. END_IF
  33. IF NOT B1 THEN
  34. K:=T#3S;
  35. END_IF
  36.  
  37.  
  38.  
  39. IF START AND A1 AND A3 AND A6 AND KORAK=1 THEN
  40. Y1:=1;
  41. KORAK:=2;
  42.  
  43. END_IF
  44.  
  45. IF A2 AND KORAK=2 THEN
  46. Y3:=1;
  47. KORAK:=4;
  48. END_IF
  49.  
  50. IF TAJMER.Q AND KORAK=4 THEN
  51. Y3:=0;
  52. KORAK:=5;
  53. END_IF
  54.  
  55. IF A3 AND KORAK=5 THEN
  56. Y6:=1;
  57. Y5:=0;
  58. KORAK:=6;
  59. END_IF
  60.  
  61.  
  62. IF A5 AND KORAK=6 THEN
  63. Y3:=1;
  64. KORAK:=8;
  65. END_IF
  66.  
  67.  
  68. IF TAJMER.Q AND KORAK=8 THEN
  69. Y3:=0;
  70. KORAK:=9;
  71. END_IF
  72.  
  73. IF A3 AND KORAK=9 THEN
  74. Y1:=0;
  75. Y5:=1;
  76. Y6:=0;
  77. KORAK:=1;
  78. END_IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement