Zmiana wilgotności w czasie -> włącz wiatrak

[gucio1234 79]

Znalazłem gdzieś podejście do automatycznego włączania wiatraka w łazience jeżeli wilgotność wzrośnie powyżej zadanej wielkości.

 

Nie bardzo podoba mi się takie podejście, bo wilgotność w mieszkaniu zmienia się w zależności od pogody, ogrzewania, ...

 

Zrobiłem scenkę badającą zmianę poziomu wilgotności w czasie i jeżeli wilgotność wzrośnie w zadanym czasie o określoną wartość, to włączy się wiatrak.

 

W załączonej scenie są wielkości (INTERWAL POMIARU, PROG) dostosowane do mojej łazienki i wydajności wiatraka. Każdy będzie musiał dostosować te parametry do swoich warunków.

 

Używam sensora wilgotności Aeon 4w1. Zdarza się, że pokazuje błędne pomiary wilgotności (dużo wyższe niż realne) - dlatego w kodzie sceny zabezpieczenie na taki wypadek.

 

Wyłączanie wiatraka jest realizowane przez inną scenę (prosta scena blokowa), wyłączającą urządzenie po określonym czasie.

 

 

 

Przedstawiony algorytm można użyć do pomiaru innych wielkości zmieniających się w czasie.

 

U mnie działa. Może się komuś przyda.

 

Wszelkie uwagi i komentarze mile widziane.

 

 

 

 

--[[ 

 

%% properties 

 

560 value

 

%% globals 

 

--]]

 

-- Scena uruchamia urządzenia (WIATRAK), (PODGRZEWANIE LUSTRA)

-- jeżeli wilgotność powietrza (SENSOR WILGOTNOSCI)

-- wzrośnie o wartość określoną przez PROG [%]

-- w czasie określonym przez INTERWALPOMIARU

 

-- SENSOR WILGOTNOSCI

local sensorID = 560

 

-- PODGRZEWANIE LUSTRA

local lustroID = 233

 

-- WIATRAK

local wiatrakID = 227

 

-- PROG

local prog = 4

 

-- INTERWALPOMIARU

local interwalpomiaru = 180

 

-----------------------------------------------------------------------------

 

if fibaro:countScenes() > 1 

   then 

   --fibaro:debug("Instancja Sceny : "..fibaro:countScenes())

   --fibaro:debug("KONIEC SCENY - INSTANCJA 2 --------------------------") 

   fibaro:abort() 

   end

-----------------------------------------------------------------------------

 

fibaro:debug("START SCENY -----------------------------------------")

local wilgotnosc = tonumber(fibaro:getValue(sensorID, "value"))

fibaro:debug("Pierwszy pomiar wilgotności = "..tostring(wilgotnosc).." %" )

 

fibaro:sleep(interwalpomiaru*1000)

  

local wilgotnosc1 = tonumber(fibaro:getValue(sensorID, "value"))

local zmianawilgotnosci = (wilgotnosc1 - wilgotnosc)

 

 

--zabezpieczenie przed fałszywym odczytem wilgotności

if zmianawilgotnosci > 20 

   then 

   fibaro:debug("Wilgotność po "  ..tostring(interwalpomiaru).. " sek. = "..tostring(wilgotnosc1).." %" )

   fibaro:debug("KONIEC SCENY ----BŁĘDNY POMIAR WILGOTNOŚCI") 

   fibaro:debug(" ") 

   fibaro:abort() 

   end

 

 

fibaro:debug("Wilgotność po "  ..tostring(interwalpomiaru).. " sek. = "..tostring(wilgotnosc1).." %" )

 

fibaro:debug("Zmiana wilgotności w ciągu " ..tostring(interwalpomiaru).. " sek. = "..tostring(zmianawilgotnosci).." %" )

  

if (zmianawilgotnosci >= prog) 

   then

   fibaro:call(wiatrakID, "turnOn")

   fibaro:debug("AKCJA: Wiatrak włączony")  

   fibaro:call(lustroID, "turnOn")

   fibaro:debug("AKCJA: Podgrzewanie lustra włączone") 

   end  

 

fibaro:debug("KONIEC SCENY ---------------------------------------") 

fibaro:debug(" ") 

 

fibaro:abort()