20
« dnia: Listopada 26, 2017, 03:24:33 pm »
Sterownie oswietlenia z czujnika ruchu
Deklaracja Zmiennych:
(*deklaracje gaszenia i swiecenia z czujnika ruchu*)
Light_PIR_A_Wiatrolap: Fb_Delay;
Light_PIR_B_Wiatrolap: F_TRIG;(*gasi po czasie dwToff_10tel_s*)
Light_PIR_C_Wiatrolap: R_TRIG; (*swiecie po podaniu na xInput*)
Kod (oświtelnie DMX):
Lampa1_Wiatrolap (xDimmSwitch:=IN43 OR IN43_VISU, XCentON:= Central_ON_Wiatrolap OR (Light_PIR_C_Wiatrolap.Q AND REAL_TO_BOOL (zmierzch_real)) , XCentOFF:= Central_OFF_Wiatrolap OR (Light_PIR_B_Wiatrolap.Q AND REAL_TO_BOOL (zmierzch_real)), bDimmValue:=Lampa1_Wiatrolap_bDimmValue, bDimmValueatMemoOFF:= (10*swiatlo_dzienne));
Lampa1_Wiatrolap_Sterowanie ( bValueRed:=Lampa1_Wiatrolap.bNvo_DimmValue, iChannelRed:=7, (*xWrite:=TRUE,*) xAutoWrite:= TRUE, abDMX_Values:=abDMX_Values);
Light_PIR_A_Wiatrolap(xInput:=IN58, dwTon_10tel_s:=1, dwToff_10tel_s:=(Light_PIR_Time_Wiatrolap*10));
Light_PIR_B_Wiatrolap (CLK:= Light_PIR_A_Wiatrolap.xOutput);
Light_PIR_C_Wiatrolap (CLK:= Light_PIR_A_Wiatrolap.xOutput);
lub standardowa lampa na przekaźniku
Deklaracja Zmiennych:
(*deklaracje gaszenia i swiecenia z czujnika ruchu*)
Lampa1_Garaz: FbDimmerSingleSwitch:= (uiT_ShortIn10telSec:= 5, xMemoOFF:= TRUE, bMaxDimmValue:= 200, bMinDimmValue:= 10, uiT_SpeedIn10telSec:= 50, bModeOnReset:= 3);
Lampa2_Garaz: FbDimmerSingleSwitch:= (uiT_ShortIn10telSec:= 5, xMemoOFF:= TRUE, bMaxDimmValue:= 200, bMinDimmValue:= 10, uiT_SpeedIn10telSec:= 50, bModeOnReset:= 3);
Central_ON_Garaz: BOOL;
Central_OFF_Garaz: BOOL;
IN52_VISU: BOOL;
IN53_VISU: BOOL;
Light_PIR_A_Garaz: Fb_Delay;
Light_PIR_B_Garaz: F_TRIG;(*gasi po czasie dwToff_10tel_s*)
Light_PIR_C_Garaz: R_TRIG; (*swiecie po podaniu na xInput*)
Kod:
(*obsluga oswietlenia garaz*)
Lampa1_Garaz (xDimmSwitch:=IN52 OR IN54_VISU, XCentON:= Central_ON_Garaz OR (Light_PIR_C_Garaz.Q AND REAL_TO_BOOL (zmierzch_real)) , XCentOFF:= Central_OFF_Strych OR (Light_PIR_B_Garaz.Q AND REAL_TO_BOOL (zmierzch_real)), bDimmValueatMemoOFF:= (10*swiatlo_dzienne));
OUT25:= Lampa1_Garaz.xSwitch;
Lampa2_Garaz (xDimmSwitch:=IN53 OR IN55_VISU, XCentON:= Central_ON_Garaz OR (Light_PIR_C_Garaz.Q AND REAL_TO_BOOL (zmierzch_real)) , XCentOFF:= Central_OFF_Strych OR (Light_PIR_B_Garaz.Q AND REAL_TO_BOOL (zmierzch_real)), bDimmValueatMemoOFF:= (10*swiatlo_dzienne));
OUT26:= Lampa2_Garaz.xSwitch;
Light_PIR_A_Garaz(xInput:=IN60, dwTon_10tel_s:=10, dwToff_10tel_s:=10);
Light_PIR_B_Garaz (CLK:= Light_PIR_A_Garaz.xOutput);
Light_PIR_C_Garaz (CLK:= Light_PIR_A_Garaz.xOutput
Pozdrawiam
Łukasz