Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IF sw == 1 AND panel == 1 THEN { praca automatyczna}
- zawor1-on = 0; zawor2-on = 0; zawor3-on = 0; zawor4-on = 0; zawor5-on = 0; zawor6-on = 0;
- lamp1-on = 0; lamp2-on = 0; lamp3-on = 0; lamp1-off =0; lamp2-off = 0; lamp3-off = 0;
- IF wylew == 0 THEN zawor4 = 1; ENDIF;
- IF poziom4 == 0 THEN zawor5 = 1; zawor1 = 1; zawor4 = 0; ENDIF;
- IF poziom5 == 0 THEN zawor6 = 1; zawor2 = 1; zawor5 = 0; ENDIF;
- IF poziom6 == 0 THEN zawor3 = 1; zawor6 = 0; ENDIF;
- ELSE IF sw == 0 THEN {praca reczna}
- panel = 0;
- IF zawor1-on == 1 AND poziom4 < 1000 THEN zawor1 = 1; ENDIF;
- IF zawor2-on == 1 AND poziom5 < 1000 THEN zawor2 = 1; ENDIF;
- IF zawor3-on == 1 AND poziom6 < 1000 THEN zawor3 = 1; ENDIF;
- IF zawor4-on == 1 AND poziom4 > 0 THEN zawor4 = 1; ENDIF;
- IF zawor5-on == 1 AND poziom5 > 0 THEN zawor5 = 1; ENDIF;
- IF zawor6-on == 1 AND poziom6 > 0 THEN zawor6 = 1; ENDIF;
- IF poziom4 > 599 THEN lamp1-on = 1; lamp1-off = 0; ELSE lamp1-on = 0; lamp1-off = 1; ENDIF;
- IF poziom5 > 599 THEN lamp2-on = 1; lamp2-off = 0; ELSE lamp2-on = 0; lamp2-off = 1; ENDIF;
- IF poziom6 > 599 THEN lamp3-on = 1; lamp3-off = 0; ELSE lamp3-on = 0; lamp3-off = 1; ENDIF;
- IF grzyb == 1 THEN
- zawor1-on = 0; zawor2-on = 0; zawor3-on = 0; zawor4-on = 0; zawor5-on = 0; zawor6-on = 0;
- lamp1-on = 0; lamp2-on = 0; lamp3-on = 0; lamp1-off =0; lamp2-off = 0; lamp3-off = 0;
- zawor1 = 0; zawor2 = 0; zawor3 = 0; zawor4 = 0; zawor5 = 0; zawor6 = 0; ENDIF;
- ELSE IF sw == 1 AND panel == 0 THEN
- zawor1 = 0; zawor2 = 0; zawor3 = 0; zawor4 = 0; zawor5 = 0; zawor6 = 0; ENDIF;
- ENDIF;
- ENDIF;
- IF zawor4 == 1 OR zawor5 == 1 OR zawor6 == 1 THEN wylew = 1; ELSE wylew = 0; ENDIF;
- IF zawor4 == 1 THEN poziom4 = poziom4 - 100; zawor1 = 0; ENDIF;
- IF zawor1 == 1 THEN poziom4 = poziom4 + 50; ENDIF;
- IF zawor5 == 1 THEN poziom5 = poziom5 - 100; zawor2 = 0; ENDIF;
- IF zawor2 == 1 THEN poziom5 = poziom5 + 50; ENDIF;
- IF zawor6 == 1 THEN poziom6 = poziom6 - 100; zawor3 = 0; ENDIF;
- IF zawor3 == 1 THEN poziom6 = poziom6 + 50; ENDIF;
- IF poziom4 == 1000 THEN zawor1-on = 0; zawor1 = 0; ENDIF;
- IF poziom5 == 1000 THEN zawor2-on = 0; zawor2 = 0; ENDIF;
- IF poziom6 == 1000 THEN zawor3-on = 0; zawor3 = 0; ENDIF;
- IF poziom4 == 0 THEN zawor4-on = 0; zawor4 = 0; ENDIF;
- IF poziom5 == 0 THEN zawor5-on = 0; zawor5 = 0; ENDIF;
- IF poziom6 == 0 THEN zawor6-on = 0; zawor6 = 0; ENDIF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement