-> Hier kostenlos registrieren
Hallo,
ich möchte meine Rolladen per Wago 750-841 mit 2x750-530 und 1x750-430 mit Wago Relais 788-375 steuern.
Verhindern möchte ich das ein Motor abraucht. Gesteuert wird mit WebVisu, Tastern und später bei Dunkelheit automatich mit Dämmerungsensor.
Mein Programm sieht so aus:
VAR
Bad_Button_schliessen : BOOL; (* Button an WebVisu *)
Bad_Button_oeffnen : BOOL; (* Button an WebVisu *)
END_VAR
(* InputBit1 = Taster *)(* OuputBit1 = Motor schliessen *)(* OuputBit2 = Motor öffnen *)
IF Bad_Button_schliessen=TRUE AND Input_Bit1=FALSE THEN
Output_Bit2:=0;
Output_Bit1:=1; (* Wenn an WebVisu Button Bad Rolladen schliessen betätigt dann Ausgang1 einschalten *)
END_IF
IF Bad_Button_schliessen=FALSE AND Input_Bit1=TRUE THEN
Output_Bit2:=0;
Output_Bit1:=1; (* Wenn Taster im Bad betätigt wird dann Ausgang1 einschalten *)
END_IF
IF Bad_Button_schliessen=FALSE AND Input_Bit1=FALSE THEN
Output_Bit2:=0;
Output_Bit1:=0; (* Wenn an WebVisu Button Bad Rolladen schliessen und Taster im Bad nicht betätigt dann Ausgang1 ausschalten *)
END_IF
IF Bad_Button_schliessen=TRUE AND Input_Bit1=TRUE THEN
Output_Bit2:=0;
Output_Bit1:=0; (* Wenn Buton links und Taster betätigt dann Ausgang1 ausschalten *)
END_IF
Das Programm funktioniert ist allerdings zu unübersichtlich, wenn noch Dämmerungssensor dazu kommt wirds noch komplizierter, hat jemmand Tips für mich wie ich das einfacher programmieren kann?
Ich möchte das aber in ST programmieren, weil ich mit Pascal ziemmlich vertraut bin.
Herzlichen Dank.
ich möchte meine Rolladen per Wago 750-841 mit 2x750-530 und 1x750-430 mit Wago Relais 788-375 steuern.
Verhindern möchte ich das ein Motor abraucht. Gesteuert wird mit WebVisu, Tastern und später bei Dunkelheit automatich mit Dämmerungsensor.
Mein Programm sieht so aus:
VAR
Bad_Button_schliessen : BOOL; (* Button an WebVisu *)
Bad_Button_oeffnen : BOOL; (* Button an WebVisu *)
END_VAR
(* InputBit1 = Taster *)(* OuputBit1 = Motor schliessen *)(* OuputBit2 = Motor öffnen *)
IF Bad_Button_schliessen=TRUE AND Input_Bit1=FALSE THEN
Output_Bit2:=0;
Output_Bit1:=1; (* Wenn an WebVisu Button Bad Rolladen schliessen betätigt dann Ausgang1 einschalten *)
END_IF
IF Bad_Button_schliessen=FALSE AND Input_Bit1=TRUE THEN
Output_Bit2:=0;
Output_Bit1:=1; (* Wenn Taster im Bad betätigt wird dann Ausgang1 einschalten *)
END_IF
IF Bad_Button_schliessen=FALSE AND Input_Bit1=FALSE THEN
Output_Bit2:=0;
Output_Bit1:=0; (* Wenn an WebVisu Button Bad Rolladen schliessen und Taster im Bad nicht betätigt dann Ausgang1 ausschalten *)
END_IF
IF Bad_Button_schliessen=TRUE AND Input_Bit1=TRUE THEN
Output_Bit2:=0;
Output_Bit1:=0; (* Wenn Buton links und Taster betätigt dann Ausgang1 ausschalten *)
END_IF
Das Programm funktioniert ist allerdings zu unübersichtlich, wenn noch Dämmerungssensor dazu kommt wirds noch komplizierter, hat jemmand Tips für mich wie ich das einfacher programmieren kann?
Ich möchte das aber in ST programmieren, weil ich mit Pascal ziemmlich vertraut bin.
Herzlichen Dank.