Advertisement
Guest User

Untitled

a guest
Nov 22nd, 2019
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.84 KB | None | 0 0
  1. zadatak 16.
  2.  
  3. PROGRAM PLC_PRG
  4. VAR
  5. START AT %IX0.0:BOOL:=TRUE;
  6. B1 AT %IX0.1:BOOL:=TRUE;
  7. A1 AT %IX0.2:BOOL:=TRUE;
  8. A2 AT %IX0.3:BOOL:=TRUE;
  9. A3 AT %IX0.4:BOOL:=TRUE;
  10. A4 AT %IX0.5:BOOL:=TRUE;
  11.  
  12.  
  13. END_VAR
  14.  
  15. VAR
  16. Y1 AT %QX0.0:BOOL:=FALSE;
  17. Y2 AT %QX0.1:BOOL:=TRUE;
  18. Y3 AT %QX0.2:BOOL:=FALSE;
  19. Y4 AT %QX0.3:BOOL:=TRUE;
  20. H1 AT %QX0.4:BOOL:=FALSE;
  21. END_VAR
  22.  
  23. VAR
  24. BROJAC1:CTU;
  25. BROJAC2:CTU;
  26. K1:BOOL:=FALSE;
  27. END_VAR
  28.  
  29.  
  30. BROJAC1(CU:=A2, PV:=6, RESET:=BROJAC1.Q );
  31. BROJAC2(CU:=A4, PV:=2, RESET:=BROJAC2.Q );
  32.  
  33. IF START THEN
  34. K1:=TRUE;
  35. END_IF
  36.  
  37. IF K1 AND B1 AND A1 THEN
  38. Y2:=FALSE;
  39. Y1:=TRUE;
  40. END_IF
  41.  
  42. IF A2 AND BROJAC1.CV<6 THEN
  43. Y1:=FALSE;
  44. Y2:=TRUE;
  45. END_IF
  46.  
  47. IF BROJAC1.Q AND A3 THEN
  48. Y4:=FALSE;
  49. Y3:=TRUE;
  50. END_IF
  51.  
  52. IF A4 THEN
  53. Y4:=TRUE;
  54. Y3:=FALSE;
  55. END_IF
  56.  
  57. IF BROJAC2.Q THEN
  58. H1:=TRUE;
  59. K1:=FALSE;
  60. END_IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement