Advertisement
Guest User

Untitled

a guest
Nov 27th, 2014
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1.  
  2. (*** Regulacja temperatury cieczy (p.6) ***)
  3.  
  4. T1X:=REAL_TO_INT(200.0*T1);
  5. T2X:=REAL_TO_INT(200.0*T2);
  6.  
  7. IF(START=TRUE AND AUTO=TRUE) THEN
  8. IF(T2X<(T1X-50)) THEN (* Warunek wł. grzałki G1 *)
  9. G1:=TRUE; (* Włączenie grzałki G1 *)
  10. END_IF
  11.  
  12. IF(T2X>(T1X+50)) THEN (* Warunek wył. grzałki G1 *)
  13. G1:=FALSE; (* Wyłączenie grzałki G1 *)
  14. END_IF
  15. END_IF
  16.  
  17. (*** Sygnalizacja alarmów (p.5) ***)
  18. IF(P1=TRUE)THEN (* Jeśli przekroczono ciśnienie P1 *)
  19. ALM:=TRUE; (* Włączenie alarmu *)
  20. END_IF
  21.  
  22. IF(H2=TRUE)THEN (* Jeśli poziom cieczy > 50% wys. zbiornika *)
  23. IF (H1=FALSE) THEN (* i jeśli poziomu cieczy < 10% wys. zbiornika *)
  24. ALM:=TRUE; (* Włączenie alarmu *)
  25. END_IF
  26. END_IF
  27.  
  28. IF(H3=TRUE)THEN
  29. IF (H2=FALSE) THEN
  30. ALM:=TRUE;
  31. END_IF
  32. IF (H1=FALSE) THEN
  33. ALM:=TRUE;
  34. END_IF
  35. END_IF
  36.  
  37. IF(G1=TRUE AND H1=FALSE) THEN
  38. ALM:=TRUE;
  39. END_IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement