Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.31 KB | None | 0 0
  1. IF sw == 1 AND panel == 1 THEN { praca automatyczna}
  2. zawor1-on = 0; zawor2-on = 0; zawor3-on = 0; zawor4-on = 0; zawor5-on = 0; zawor6-on = 0;
  3. lamp1-on = 0; lamp2-on = 0; lamp3-on = 0; lamp1-off =0; lamp2-off = 0; lamp3-off = 0;
  4. IF wylew == 0 THEN zawor4 = 1; ENDIF;
  5. IF poziom4 == 0 THEN zawor5 = 1; zawor1 = 1; zawor4 = 0; ENDIF;
  6. IF poziom5 == 0 THEN zawor6 = 1; zawor2 = 1; zawor5 = 0; ENDIF;
  7. IF poziom6 == 0 THEN zawor3 = 1; zawor6 = 0; ENDIF;
  8. ELSE IF sw == 0 THEN {praca reczna}
  9. panel = 0;
  10. IF zawor1-on == 1 AND poziom4 < 1000 THEN zawor1 = 1; ENDIF;
  11. IF zawor2-on == 1 AND poziom5 < 1000 THEN zawor2 = 1; ENDIF;
  12. IF zawor3-on == 1 AND poziom6 < 1000 THEN zawor3 = 1; ENDIF;
  13. IF zawor4-on == 1 AND poziom4 > 0 THEN zawor4 = 1; ENDIF;
  14. IF zawor5-on == 1 AND poziom5 > 0 THEN zawor5 = 1; ENDIF;
  15. IF zawor6-on == 1 AND poziom6 > 0 THEN zawor6 = 1; ENDIF;
  16. IF poziom4 > 599 THEN lamp1-on = 1; lamp1-off = 0; ELSE lamp1-on = 0; lamp1-off = 1; ENDIF;
  17. IF poziom5 > 599 THEN lamp2-on = 1; lamp2-off = 0; ELSE lamp2-on = 0; lamp2-off = 1; ENDIF;
  18. IF poziom6 > 599 THEN lamp3-on = 1; lamp3-off = 0; ELSE lamp3-on = 0; lamp3-off = 1; ENDIF;
  19. IF grzyb == 1 THEN
  20. zawor1-on = 0; zawor2-on = 0; zawor3-on = 0; zawor4-on = 0; zawor5-on = 0; zawor6-on = 0;
  21. lamp1-on = 0; lamp2-on = 0; lamp3-on = 0; lamp1-off =0; lamp2-off = 0; lamp3-off = 0;
  22. zawor1 = 0; zawor2 = 0; zawor3 = 0; zawor4 = 0; zawor5 = 0; zawor6 = 0; ENDIF;
  23. ELSE IF sw == 1 AND panel == 0 THEN
  24. zawor1 = 0; zawor2 = 0; zawor3 = 0; zawor4 = 0; zawor5 = 0; zawor6 = 0; ENDIF;
  25. ENDIF;
  26. ENDIF;
  27. IF zawor4 == 1 OR zawor5 == 1 OR zawor6 == 1 THEN wylew = 1; ELSE wylew = 0; ENDIF;
  28. IF zawor4 == 1 THEN poziom4 = poziom4 - 100; zawor1 = 0; ENDIF;
  29. IF zawor1 == 1 THEN poziom4 = poziom4 + 50; ENDIF;
  30. IF zawor5 == 1 THEN poziom5 = poziom5 - 100; zawor2 = 0; ENDIF;
  31. IF zawor2 == 1 THEN poziom5 = poziom5 + 50; ENDIF;
  32. IF zawor6 == 1 THEN poziom6 = poziom6 - 100; zawor3 = 0; ENDIF;
  33. IF zawor3 == 1 THEN poziom6 = poziom6 + 50; ENDIF;
  34. IF poziom4 == 1000 THEN zawor1-on = 0; zawor1 = 0; ENDIF;
  35. IF poziom5 == 1000 THEN zawor2-on = 0; zawor2 = 0; ENDIF;
  36. IF poziom6 == 1000 THEN zawor3-on = 0; zawor3 = 0; ENDIF;
  37. IF poziom4 == 0 THEN zawor4-on = 0; zawor4 = 0; ENDIF;
  38. IF poziom5 == 0 THEN zawor5-on = 0; zawor5 = 0; ENDIF;
  39. IF poziom6 == 0 THEN zawor6-on = 0; zawor6 = 0; ENDIF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement