Advertisement
Guest User

Untitled

a guest
Jun 20th, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.05 KB | None | 0 0
  1. --[[
  2. %% autostart
  3. %% properties
  4. %% weather
  5. %% events
  6. %% globals
  7. alarmanlage_scharf
  8. --]]
  9.  
  10. local startSource = fibaro:getSourceTrigger();
  11. local alarmanlagestatus = tonumber(fibaro:getGlobalValue("alarmanlage_scharf"));
  12. local window_ids = fibaro:getDevicesId({type = "com.fibaro.windowSensor"});
  13. local door_ids = fibaro:getDevicesId({type = "com.fibaro.doorSensor"});
  14.  
  15. local device_ids_zone_1 = {39,415,387};
  16. local device_ids_zone_2 = {39,48,51,124,127,133,136,139,419,466};
  17. local error_zone_1 = '';
  18. local error_zone_2 = '';
  19.  
  20. -- RGBW Config wenn alles okay
  21. local RGBW_Brightness = 100;
  22. local RGBW_setColor_r = 0;
  23. local RGBW_setColor_g = 255;
  24. local RGBW_setColor_b = 0;
  25. local RGBW_setColor_w = 0;
  26.  
  27.  
  28.  
  29. Show_Debug = function ( color, message )
  30. fibaro:debug(string.format('<%s style="color:%s;">%s', "span", color, message, "span"))
  31. end
  32.  
  33.  
  34. Show_Debug('white','Variable alarmanlage_schart wurde auf '..alarmanlagestatus..' geschaltet');
  35.  
  36. if (alarmanlagestatus == 0 )
  37. then
  38.  
  39. Show_Debug('white','Alarmanlage aktiviert starte prüfung Fenster & Türen');
  40. Show_Debug('white','Starte Prüfung Zone 1');
  41.  
  42.  
  43. for i, device_id in pairs( device_ids_zone_1 ) do
  44. if(tonumber(fibaro:getValue(device_id,'value')) == 0)
  45. then
  46. Show_Debug("green", "Fenster Sensor: "..device_id.." Name: " .. fibaro:getName(device_id).." im Raum "..fibaro:getRoomName( fibaro:getRoomID(device_id) ).." ist geschlossen")
  47. else
  48. error_zone_1 = ''..fibaro:getRoomName( fibaro:getRoomID(device_id) )..',';
  49. Show_Debug("red", "Fenster Sensor: "..device_id.." Name: " .. fibaro:getName(device_id).." im Raum "..fibaro:getRoomName( fibaro:getRoomID(device_id) ).." ist geöffnet!")
  50. end
  51. end
  52.  
  53.  
  54. Show_Debug('white','Starte Prüfung Zone 2');
  55.  
  56.  
  57. for i, device_id in pairs( device_ids_zone_2 ) do
  58.  
  59. if(tonumber(fibaro:getValue(device_id,'value')) == 0)
  60. then
  61. Show_Debug("green", "Fenster Sensor: "..device_id.." Name: " .. fibaro:getName(device_id).." im Raum "..fibaro:getRoomName( fibaro:getRoomID(device_id) ).." ist geschlossen")
  62. else
  63. error_zone_2 = ''..fibaro:getRoomName( fibaro:getRoomID(device_id) )..',';
  64. Show_Debug("red", "Fenster Sensor: "..device_id.." Name: " .. fibaro:getName(device_id).." im Raum "..fibaro:getRoomName( fibaro:getRoomID(device_id) ).." ist geöffnet!")
  65. end
  66. end
  67.  
  68. if(error_zone_1 ~= '' or error_zone_2 ~= '')
  69. then
  70. Show_Debug("red",'Mindests ein Fenster sind geöffnet');
  71.  
  72. if(error_zone_1 ~= '')
  73. then
  74. Show_Debug("red",'In Zone 1 ist in folgendem Raum ein Fehler: '..error_zone_1..'');
  75. RGBW_Brightness = 100;
  76. RGBW_setColor_r = 255;
  77. RGBW_setColor_g = 0;
  78. RGBW_setColor_b = 0;
  79. RGBW_setColor_w = 0;
  80. end
  81.  
  82. if(error_zone_2 ~= '')
  83. then
  84. if(RGBW_setColor_r == 255)
  85. then
  86. -- Wenn Zone 1 schon was hat setze Wert auf Orange !
  87. RGBW_Brightness = 100;
  88. RGBW_setColor_r = 255;
  89. RGBW_setColor_g = 32;
  90. RGBW_setColor_b = 0;
  91. RGBW_setColor_w = 0;
  92. else
  93. -- Wenn nur Zone 2 setze wert auf Gelb
  94. RGBW_Brightness = 100;
  95. RGBW_setColor_r = 255;
  96. RGBW_setColor_g = 118;
  97. RGBW_setColor_b = 0;
  98. RGBW_setColor_w = 0;
  99.  
  100. end
  101. Show_Debug("red",'In Zone 2 ist in folgendem Raum ein Fehler: '..error_zone_2..'');
  102. end
  103.  
  104. end
  105.  
  106. Show_Debug('White','Setze RGBW Stripe auf folgende werte: Helligkeit: '..RGBW_Brightness..' R: '..RGBW_setColor_r..' G: '..RGBW_setColor_g..' B: '..RGBW_setColor_b..' W: '..RGBW_setColor_w..' ')
  107. fibaro:call(579, "setBrightness", RGBW_Brightness);
  108. fibaro:call(579, "setColor", RGBW_setColor_r,RGBW_setColor_g,RGBW_setColor_b,RGBW_setColor_w);
  109. fibaro:call(579,'turnOn');
  110.  
  111. fibaro:sleep( 10*1000);
  112. Show_Debug('White','RGBW wieder ausschalten');
  113. fibaro:call(579,'turnOff');
  114.  
  115.  
  116.  
  117. else
  118. Show_Debug('white','Alarmanlage deaktiviert');
  119. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement