Code: Alles auswählen
Tor_offen geöffnet und Schaltdauer (Tor_offen) Größer "00:05:00" und Alarmanlage eingeschaltet dann Tor_schließen einschalten für "00:00:01" endewenn
Danke
Moderator: Co-Administratoren
Code: Alles auswählen
Tor_offen geöffnet und Schaltdauer (Tor_offen) Größer "00:05:00" und Alarmanlage eingeschaltet dann Tor_schließen einschalten für "00:00:01" endewenn
Code: Alles auswählen
if lngDebug > 0 then
// ins Syslog schreiben
syslog.strMessage := "BW_Garage: neuer Zustand -"+BW_Garage+"-"
syslog.strMessage := syslog.strMessage + ", swBM_Garage -"+swBM_Garage+"-"
syslog.strMessage := syslog.strMessage + ", swBM_GaragePush -"+swBM_GaragePush+"-"
syslog.strMessage := syslog.strMessage + ", HS_Garage -"+HS_Garage+"-"
syslog.strMessage := syslog.strMessage + ", lngHelligkeit -"+lngHelligkeit+"-"
syslog.strMessage := syslog.strMessage + ", Glob_Helligkeit.min -"+Glob_Helligkeit.min+"-"
syslog.strMessage := syslog.strMessage + ", Glob_Helligkeit.IstDunkel -"+Glob_Helligkeit.IstDunkel+"-"
syslog.strMessage := syslog.strMessage + ", ST_UG_StrahlerGarage -"+ST_UG_StrahlerGarage+"-"
syslog.strMessage := syslog.strMessage + ", ST_UG_StrahlerGarage.zeitSchaltpunkt -"+ST_UG_StrahlerGarage.zeitSchaltpunkt+"-"
call syslog
endif
if swBM_Garage eingeschaltet and BW_Garage eingeschaltet and (Glob_Helligkeit.IstDunkel=1 or Glob_Helligkeit.min < lngHelligkeit) then
// MIT Einschaltdauer, einschalten oder verlängern...
if ST_UG_StrahlerGarage eingeschaltet then
strAktion:=", Licht an verlängert"
startwatch temp.zeitVar
temp.lngVar1 := ST_UG_StrahlerGarage.zeitSchaltpunkt - temp.zeitVar
if temp.lngVar1 < 150 then
ST_UG_StrahlerGarage.uhrEinschaltdauer := 150
else
ST_UG_StrahlerGarage.uhrEinschaltdauer := temp.lngVar1
endif
else
strAktion:=", Licht an"
ST_UG_StrahlerGarage.uhrEinschaltdauer := 150
endif
if lngDebug > 0 then
// ins Syslog schreiben
syslog.strMessage := "BW_Garage: Es ist dunkel, gewählte Aktion '" + strAktion + "'"
syslog.strMessage := syslog.strMessage + ", ST_UG_StrahlerGarage -"+ST_UG_StrahlerGarage+"-"
syslog.strMessage := syslog.strMessage + ", ST_UG_StrahlerGarage.uhrEinschaltdauer -" + ST_UG_StrahlerGarage.uhrEinschaltdauer +"-"
syslog.strMessage := syslog.strMessage + ", ST_UG_StrahlerGarage.zeitSchaltpunkt -"+ST_UG_StrahlerGarage.zeitSchaltpunkt+"-"
syslog.strMessage := syslog.strMessage + ", temp.lngVar1 "+temp.lngVar1+"-"
call syslog
endif
ST_UG_StrahlerGarage.strSource := "BW_Garage" + strAktion
ST_UG_StrahlerGarage einschalten für ST_UG_StrahlerGarage.uhrEinschaltdauer
endif
....
Code: Alles auswählen
23.11.2019 12:13:40 ccu2: BW_Garage: neuer Zustand -an-, swBM_Garage -an-, swBM_GaragePush -aus-, HS_Garage -191-, lngHelligkeit -80-, Glob_Helligkeit.min -188-, Glob_Helligkeit.IstDunkel -0-, ST_UG_StrahlerGarage -aus-, ST_UG_StrahlerGarage.zeitSchaltpunkt -22.11.2019 23:04:13-
23.11.2019 12:13:41 ccu2: BW_Garage: Garagentor ist Geschlossen, Garagentor.ct=23.11.2019 01:51:17, m_Evt_MotionGarage.zeitLastTriggered=01.01.1970 00:00:00, m_Evt_MotionGarage.zeitGaragentorCt=01.01.1970 00:00:00
23.11.2019 12:13:41 ccu2: BW_Garage: Makro ENDE, Aktion:
23.11.2019 12:13:57 ccu2: BW_Garage: neuer Zustand -aus-, swBM_Garage -an-, swBM_GaragePush -aus-, HS_Garage -191-, lngHelligkeit -80-, Glob_Helligkeit.min -188-, Glob_Helligkeit.IstDunkel -0-, ST_UG_StrahlerGarage -aus-, ST_UG_StrahlerGarage.zeitSchaltpunkt -22.11.2019 23:04:13-
23.11.2019 12:13:57 ccu2: BW_Garage: Makro ENDE, Aktion:
23.11.2019 12:18:19 ccu2: BW_Garage: neuer Zustand -an-, swBM_Garage -an-, swBM_GaragePush -aus-, HS_Garage -190-, lngHelligkeit -80-, Glob_Helligkeit.min -191-, Glob_Helligkeit.IstDunkel -0-, ST_UG_StrahlerGarage -aus-, ST_UG_StrahlerGarage.zeitSchaltpunkt -22.11.2019 23:04:13-
23.11.2019 12:18:19 ccu2: BW_Garage: Garagentor ist Geschlossen, Garagentor.ct=23.11.2019 01:51:17, m_Evt_MotionGarage.zeitLastTriggered=23.11.2019 12:13:41, m_Evt_MotionGarage.zeitGaragentorCt=23.11.2019 01:51:17
23.11.2019 12:18:19 ccu2: BW_Garage: Makro ENDE, Aktion:
23.11.2019 12:18:36 ccu2: BW_Garage: neuer Zustand -aus-, swBM_Garage -an-, swBM_GaragePush -aus-, HS_Garage -190-, lngHelligkeit -80-, Glob_Helligkeit.min -190-, Glob_Helligkeit.IstDunkel -0-, ST_UG_StrahlerGarage -aus-, ST_UG_StrahlerGarage.zeitSchaltpunkt -22.11.2019 23:04:13-
23.11.2019 12:18:36 ccu2: BW_Garage: Makro ENDE, Aktion: