si vous avez des idée d’amélioration hésiter surtout pas il y en a plus dans deux tête que dans une
il faudra créé un bouton multiple "Mode volets" avec comme valeur
nuveau / nom
0 / manuel
10 / normal
20 / tardif
30 / canicule
apres differente option sont disponible
-- Opt. 1. Si alarme desactivé (option alarme)
-- => On ouvre les volets designé sinon on les ferme alarme=true
-- Opt. 2. Si pluie détectée (option station meteo)
-- => On ferme les volets correspondant aux fenêtres ouvertes
-- Opt. 3. Commande STOP correspond à un possition du volet
-- => si le volet dispose d'une possition favorite en STOP
-- Opt. 4. Si volets commandable en %
-- => si le volet dispose d'une commande en pourcentage
-- Opt. 5. Si volet donne sur une porte
-- => pas de fermeture du volets identifier porte=true apres le coucher du soleil
-- Opt. 6. Commande de fermeture complète de tous les volets
-- => ouverture / fermeture automatiser de tous les volets selon la valeur de cette commande
-- Opt. 7. Commande presence
-- => si presence detecté ouverture le matin des volets indiquer presence=true si non pas d'ouveture quelque soit le mode
Code : Tout sélectionner
--[[
name : Genstion_vollets.lua
auteur : Max-MT007
Date de mise à jour : 02/07/2022
date de création : 29/03/2022
Principe : permet d'automatiser la gestion des volets roulants
en fonction de l'heure de levé et couché du soleil, Temperature, pluie, alarme
]]--
----------------------------------------------------------------------
-- Script d'action des scripts de gestion des volets en fonction de --
----------------------------------------------------------------------
-- 1. Mode Manuel
-- => Si activé alors Désactive ce script
-- 2. Mode Normal
-- Ouverture volets au lever du soleil / Fermeture au coucher
-- Si option STOP Fermeture en stop apres le coucher et Fermeture complète apres le delai
-- 3. Mode Tardif
-- Ouverture volets salon le matin uniquement si présence détectée
-- 4. Mode Canicule
-- => Si activé alors
-- Tous les jours, ouverture volets pieces principale 1h30 plus tôt, Fermeture volets pieces principale/chambre 2h plus tard que le lever ou coucher du soleil
-- Si temp dehors < chambre, alors ouvre les volets chambres sinon on les ferme
-- Fermeture et ouverture des volets avec azimute indiqué en fonction de l'orientation du soleil pour garder de la luminositer dans la maison
-- indiqué le temps de fermeture partiel souhaiter pour chaque volets si pas indiquer fermeture complète
--
-- Opt. 1. Si alarme desactivé (option alarme)
-- => On ouvre les volets designé sinon on les ferme alarme=true
-- Opt. 2. Si pluie détectée (option station meteo)
-- => On ferme les volets correspondant aux fenêtres ouvertes
-- Opt. 3. Commande STOP correspond à un possition du volet
-- => si le volet dispose d'une possition favorite en STOP
-- Opt. 4. Si volets commandable en %
-- => si le volet dispose d'une commande en pourcentage
-- Opt. 5. Si volet donne sur une porte
-- => pas de fermeture du volets identifier porte=true apres le coucher du soleil
-- Opt. 6. Commande de fermeture complète de tous les volets
-- => ouverture / fermeture automatiser de tous les volets selon la valeur de cette commande
-- Opt. 7. Commande presence
-- => si presence detecté ouverture le matin des volets indiquer presence=true si non pas d'ouveture quelque soit le mode
----------------------------------------------------------------------
--------------------------------------------
------------ Variables à éditer ------------
--------------------------------------------
local ip = '127.0.0.1:8080' -- user:pass@ip:port de domoticz
local debugging = false -- true pour voir les logs dans la console log Dz ou false pour ne pas les voir
local script_actif = true -- active (true) ou désactive (false) ce script simplement
local sonde_ext = 'Exterieur' -- nom de la sonde de température extérieure
--local lumiere = 'luminosité exterieur' -- tonumber(otherdevices_svalues['Lux']) -- nom du bloc Lux de wheather underground
--local lux_max = tonumber(90000) -- seuil à parti duquel on ferme les volets en pleine journée
local mode_volets = 'Mode volets' -- selecteur mode des volets (Manuel, Normal, Tardif, Canicule)
local delai_sus_tarif = tonumber(60) -- delai en minites ajouté a tous les autre delais en mode Tardif
local delai_avant_leve_soleil = tonumber(75) -- délai en minutes pour l'ouverture des volets avant levé du soleil mode canicule & fermeture des volets des chambre si ouvert
local delai_apres_leve_soleil = tonumber(30) -- délai en minutes pour l'ouverture des volets après levé du soleil
local delai_avant_couche_soleil = tonumber(45) -- délai en minutes pour l'ouverture des volets avant couché du soleil mode canicule
local delai_apres_couche_soleil = tonumber(30) -- délai en minutes pour la fermeture des volets après couché du soleil
local delai_closed_apres_couche_soleil = tonumber(90) -- délai en minutes pour la fermeture complète des volets après couché du soleil
local delai_on_off = tonumber(10) -- délai minimum en minutes pour la réouverture des volets après fermeture
local min_volet_matin_hh = tonumber(7) -- heure minimum pour que les volets souvre la matin
local min_volet_matin_mm = tonumber(30)
local azimute_sun = 'Azimut du soleil' -- variable qui donne l'orientation du soleil par rapport au nord
local elevation_sun = 'Altitude du soleil' -- variable qui donne l'levation du soleil dans le ciel
------- option possible -------
local option alame = true
local option_pluie = true
local device_pluie = 'Pluie'
local option_stop = true
local option_percente = false
local option_cmd_manu = true
local device_cmd_closed = 'BP chambre'
local value_cmd_closed = "ferme tous les vollets / eteint les lumieres"
local value_cmd_opened = "ouvre les volets"
local device_presence = "iphone max"
local value_presence = "On"
--------------------------------------------
-- Tableau des volets
--------------------------------------------
local les_volets = {};
--
-- type de pieces : chambre, principale, service, eau
-- exemple pièces principale (salon, salle à manger, salle de jeux, bureau), eau (cuisine, salle de bain), de service (couloir, toilettes, hall, etc.)
-- Possibilité d'ajouter des équipements en relation, comme température piece, etat ouverture fenetre, etc (séparé par une virgule)
-- exemple principale les_volets[#les_volets+1] = {volet="Salon sur Jardin", piece="principale" Type="Somfy", absent=false, pieces="principale", azimut=285, times=10}
-- option aditionel : temperature="Temperature Salon" / fenetre="Fenetre Salon sur Jardin" / alarme=true
-- 1ere volet : nom du device volet 1
les_volets[#les_volets+1] = {volet="Volet salon 1", piece="principale", Type="somfy", presence=false, fenetre="fenetre salon 1", pluie=true, azimut=90, times=15, alarme=false}
-- 2eme volet : nom du device volet 2
les_volets[#les_volets+1] = {volet="Volet salon 2", piece="principale", Type="somfy", presence=false, fenetre="fenetre salon 2", pluie=true, azimut=90, times=15, alarme=false}
-- 3eme volet : nom du device volet 3
les_volets[#les_volets+1] = {volet="Volet salle a manger", piece="principale", Type="somfy", presence=false, fenetre="fenetre salle a manger", pluie=true, azimut=180, times=18, alarme=false}
-- 4eme volet : nom du device volet 4
les_volets[#les_volets+1] = {volet="Volet terrasse", piece="eau", Type="somfy", presence=true, fenetre="porte terrasse", porte=true, pluie=false, alarme=true}
-- 5eme volet : nom du device volet 5
les_volets[#les_volets+1] = {volet="Volet chambre", piece="chambre", Type="somfy", presence=false, fenetre="fenetre chambre", pluie=true, azimut=90, times=15, alarme=false, h_ouvertur=450, temperature="Chambre"}
-- 6eme volet : nom du device volet 6
les_volets[#les_volets+1] = {volet="Volet bureau", piece="principale", Type="somfy", presence=true, fenetre="fenetre bureau", pluie=true, azimut=270, times=10, alarme=true}
--------------------------------------------
----------- Fin variables à éditer ---------
--------------------------------------------
local nom_script = 'Gestion volets'
local version = '2.5'
local heures = 0
local minutes = 0
local secondes = 0
local sunrise = 0 -- lever du soleil
local sunset = 0 -- coucher du soleil
local now = 0
local min_volet_matin = min_volet_matin_hh*60 + min_volet_matin_mm
--------------------------------------------
---------------- Fonctions -----------------
--------------------------------------------
---- fonction print log ----
function voir_les_logs (s, debugging) -- nécessite la variable local debugging
if (debugging) then
if s ~= nil then
print (s)
else
print ("aucune valeur affichable")
end
end
end
--------------------------------------------
---- fonction arrondi ----
function round(value, digits)
local precision = 10^digits
return (value >= 0) and
(math.floor(value * precision + 0.5) / precision) or
(math.ceil(value * precision - 0.5) / precision)
end
--------------------------------------------
---- retourne le temps en minutes depuis la dernière màj du périphérique ----
function TimeDiff(device)
timestamp = otherdevices_lastupdate[device] or device
y, m, d, H, M, S = timestamp:match("(%d+)-(%d+)-(%d+) (%d+):(%d+):(%d+)")
difference = round((os.difftime(os.time(), os.time{year=y, month=m, day=d, hour=H, min=M, sec=S})/60), 0)
return difference
end
--------------------------------------------
---- fonction min vers hh:mm ----
function min_to_hh_mm(mmm)
hh = math.floor(mmm/(60))
reste = (mmm%60)
mm = math.floor(reste)
if (hh<10) then hh='0'..hh..'' end
if (mm<10) then mm='0'..mm..'' end
return hh..":"..mm
end
--------------------------------------------
---- fonction selection ordre open/closed par type de volets ----
function ordre_type(type_volet, ordre, attente)
if attente == nil then
if ordre == "opening" then
if type_volet == "somfy" then
return 'Off'
else
return 'On'
end
elseif ordre == "closing" then
if type_volet == "somfy" then
return 'On'
else
return 'Off'
end
else
return ordre
end
else
if ordre == "opening" then
if type_volet == "somfy" then
return 'Off AFTER '..attente..'sec'
else
return 'On AFTER '..attente..'sec'
end
elseif ordre == "closing" then
if type_volet == "somfy" then
return 'On AFTER '..attente..'sec'
else
return 'Off AFTER '..attente..'sec'
end
else
return ordre..' AFTER '..attente..'sec'
end
end
end
--------------------------------------------
--------------------------------------------
-------------- Fin Fonctions ---------------
--------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------- DEBUT DU PROGRAME DE GESTION DES VOLETS -------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------------
commandArray = {}
if (script_actif == true) then
voir_les_logs("========= ".. nom_script .." (v".. version ..") =========",debugging)
time=os.time()
now = tonumber(os.date('%H')*60 + os.date('%M'))
sunrise = tonumber(timeofday['SunriseInMinutes'])
sunset = tonumber(timeofday['SunsetInMinutes'])
mode_volets = otherdevices[mode_volets]
azimute_sun = tonumber(otherdevices[azimute_sun])
elevation_sun = tonumber(otherdevices[elevation_sun])
--= otherdevices_svalues['']
local minutes=tonumber(os.date('%M',time))
local hours=tonumber(os.date('%H',time))
local timeInMinutes = hours * 60 + minutes;
if (minutes<10) then minutes='0'..minutes..'' end
if (hours<10) then hours='0'..hours..'' end
local time=''..hours..':'..minutes
local temperature_exterieure = otherdevices_temperature[sonde_ext]
voir_les_logs("--- --- --- Heure actuelle : "..time.."",debugging)
voir_les_logs('--- --- --- Température extérieure : '..temperature_exterieure,debugging)
voir_les_logs("--- --- --- Heure de levé du soleil : "..min_to_hh_mm(timeofday['SunriseInMinutes']),debugging);
voir_les_logs("--- --- --- Heure de couché du soleil : "..min_to_hh_mm(timeofday['SunsetInMinutes']),debugging);
voir_les_logs('--- --- --- delai entre 2 mouvements des volets : '..delai_on_off..' minute(s)',debugging)
voir_les_logs('--- --- --- Mode '..mode_volets..' de gestion des volets',debugging)
for k,v in pairs(les_volets) do-- On parcourt chaque volet
voir_les_logs('--- --- ---',debugging);
voir_les_logs('--- --- --- Gestion du volet : '..v.volet,debugging);
voir_les_logs('--- --- --- Position du volet : '..otherdevices[v.volet],debugging)
voir_les_logs('--- --- --- dernier mouvement du volet : '..TimeDiff(v.volet)..' minute(s)',debugging)
------------------------------------------------------
-- OUVERTURE de tous les volets par COMMANDE manuel --
------------------------------------------------------
if (option_cmd_manu == true and otherdevices[device_cmd_closed] == value_cmd_opened) then
voir_les_logs("--- --- --- Commande manuel d'ouverture",debugging)
if ( otherdevices[v.volet]=='Closed' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
end
end
------------------------------------------------------
-- FERMETURE de tous les volets par COMMANDE manuel --
------------------------------------------------------
if (option_cmd_manu == true and otherdevices[device_cmd_closed] == value_cmd_closed) then
voir_les_logs('--- --- --- Commande manuel de fermeture',debugging)
if mode_volets == 'Canicule' then
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' and (v.piece=="principale" or v.piece=="eau" or v.piece=="service")) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
else
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
end
-------------------------------------------------------
-- OUVERTURE des volets chambre COMMANDE automatique --
-------------------------------------------------------
if (now == v.h_ouvertur and (v.piece=="chambre")) then
voir_les_logs("--- --- --- Commande automatique d'ouverture chambre",debugging)
if ( otherdevices[v.volet]=='Closed' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
if (option_stop == true ) then
commandArray[v.volet]=ordre_type(v.Type, "stop")
else
commandArray[v.volet]=ordre_type(v.Type, "opening")
end
end
end
-------------------------------------------------------
-- FERMETURE des volets chambre COMMANDE automatique --
-------------------------------------------------------
if (now == sunrise-30 and (v.piece=="chambre")) then
voir_les_logs("--- --- --- Commande automatique d'ouverture chambre",debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
--------------------------------------------------------
-- FERMETURE des volets COMMANDE automatique si pluie --
--------------------------------------------------------
if (otherdevices[v.fenetre]=="Open" and otherdevices_rain_lasthour[device_pluie]>0) then
voir_les_logs("--- --- --- Commande automatique d'ouverture chambre",debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
------------------------------- MODE NORMAL DES VOLETS -------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
if mode_volets == "Normal" then
------------------------------------------------------------------------------------
-- OUVERTURE VOLETS des pieces principales / eau / service AUX LE LEVER DU SOLEIL --
------------------------------------------------------------------------------------
if (((sunrise <= min_volet_matin and now == min_volet_matin) or (sunrise == now and now >= min_volet_matin)) and (v.piece=="principale" or v.piece=="eau" or v.piece=="service")) then
voir_les_logs('--- --- --- Aux le levé du soleil',debugging)
if ( otherdevices[v.volet]=='Closed' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
if (v.presence== false or v.presence == nil) then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
elseif (v.presence == true) then
if (otherdevices_svalues[device_presence] == value_presence) then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
else
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet ne peux pas etre ouvert car pas de presence detecter',debugging)
end
end
end
end
-------------------------------------------------------------------------------------
-- ACTION VOLETS des pieces principales / eau / service APRES LE COUCHER DU SOLEIL --
-------------------------------------------------------------------------------------
if ((sunset+delai_apres_couche_soleil) == timeInMinutes and (v.piece=="principale" or v.piece=="eau" or v.piece=="service") and (v.porte==false or v.porte==nil)) then
voir_les_logs('--- --- --- Après le coucher du soleil',debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
if (option_stop == true ) then
commandArray[v.volet]=ordre_type(v.Type, "stop")
else
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
end
------------------------------------------------------------------------------------------------------
-- FERMETURE complète de tous les volets APRES LE COUCHER DU SOLEIL et delais sus OU opt cmd closed --
------------------------------------------------------------------------------------------------------
if ((sunset+delai_apres_couche_soleil+delai_closed_apres_couche_soleil) == now) then
voir_les_logs('--- --- --- Après le coucher du soleil + delais suplementaire',debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
------------------------------- MODE TARDIF DES VOLETS -------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
elseif mode_volets == "Tardif" then
------------------------------------------------------------------------------------
-- OUVERTURE VOLETS des pieces principales / eau / service AUX LE LEVER DU SOLEIL --
------------------------------------------------------------------------------------
if (((sunrise <= min_volet_matin+delai_sus_tarif and now == min_volet_matin+delai_sus_tarif) or (sunrise == now and now >= min_volet_matin+delai_sus_tarif)) and (v.piece=="principale" or v.piece=="eau" or v.piece=="service")) then
voir_les_logs('--- --- --- Aux le levé du soleil',debugging)
if ( otherdevices[v.volet]=='Closed' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
if (v.presence== false or v.presence == nil) then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
elseif (v.presence == true) then
if (otherdevices_svalues[device_presence] == value_presence) then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
else
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet ne peux pas etre ouvert car pas de presence detecter',debugging)
end
end
end
end
-------------------------------------------------------------------------------------
-- ACTION VOLETS des pieces principales / eau / service APRES LE COUCHER DU SOLEIL --
-------------------------------------------------------------------------------------
if ((sunset+delai_apres_couche_soleil+delai_sus_tarif) == now and (v.piece=="principale" or v.piece=="eau" or v.piece=="service") and (v.porte==false or v.porte==nil)) then
voir_les_logs('--- --- --- Après le coucher du soleil',debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
if (option_stop == true ) then
commandArray[v.volet]=ordre_type(v.Type, "stop")
else
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
end
------------------------------------------------------------------------------------
-- FERMETURE complète de tous les volets APRES LE COUCHER DU SOLEIL et delais sus --
------------------------------------------------------------------------------------
if ((sunset+delai_apres_couche_soleil+delai_closed_apres_couche_soleil+delai_sus_tarif) == now) then
voir_les_logs('--- --- --- Après le coucher du soleil + delais suplementaire',debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
------------------------------ MODE CANICULE DES VOLETS ------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
elseif mode_volets == "Canicule" then
------------------------------------------------------------
-- FERMETURE VOLETS des chambres AVANT LE LEVER DU SOLEIL --
------------------------------------------------------------
if (sunrise-delai_avant_leve_soleil == now and v.piece=="chambre") then
voir_les_logs('--- --- --- Avant le levé du soleil',debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
--------------------------------------------------------------------------------------
-- OUVERTURE VOLETS des pieces principales / eau / service AVANT LE LEVER DU SOLEIL --
--------------------------------------------------------------------------------------
if (now == sunrise-delai_avant_leve_soleil and (v.piece=="principale" or v.piece=="eau" or v.piece=="service")) then
voir_les_logs('--- --- --- Aux le levé du soleil',debugging)
if ( otherdevices[v.volet]=='Closed' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
if (v.presence== false or v.presence == nil) then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
elseif (v.presence == true) then
if (otherdevices_svalues[device_presence] == value_presence) then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
else
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être fermé',debugging)
voir_les_logs ('--- --- --- Le volet ne peux pas etre ouvert car pas de presence detecter',debugging)
end
end
end
end
--------------------------------------------------------------------------
-- ACTION VOLETS en fonction de l'orientation du soleil apres sont levé --
--------------------------------------------------------------------------
if (now > sunrise and v.azimut ~= nil and v.presence == false) then
voir_les_logs('--- --- --- Ce volet bouge en fonction du soleil',debugging)
if (azimute_sun >= v.azimut-75 and azimute_sun <= v.azimut+75 and elevation_sun >= 20)then
voir_les_logs ('--- --- --- Commande Fermeture azimut soleil',debugging)
if (otherdevices[v.volet]=='Open') and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
commandArray[v.volet]=ordre_type(v.Type, "stop", v.times)
end
elseif elevation_sun >= 30 then
voir_les_logs ('--- --- --- Commande Ouverture azimut soleil',debugging)
if ( otherdevices[v.volet]=='Closed' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être partielement fermé',debugging)
voir_les_logs ('--- --- --- Le volet est Fermé ==> Ouverture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "opening")
end
end
end
------------------------------------------------------------------------------------------------------
-- FERMETURE VOLETS des pieces principales / eau / service APRES LE COUCHER DU SOLEIL et delais sus --
------------------------------------------------------------------------------------------------------
if (sunset+delai_apres_couche_soleil+delai_closed_apres_couche_soleil+delai_sus_tarif) > 1440 then
time_closed = (sunset+delai_apres_couche_soleil+delai_closed_apres_couche_soleil+delai_sus_tarif)-1440
else
time_closed = sunset+delai_apres_couche_soleil+delai_closed_apres_couche_soleil+delai_sus_tarif
end
if (time_closed == now and (v.piece=="principale" or v.piece=="eau" or v.piece=="service")) then
voir_les_logs('--- --- --- Après le coucher du soleil + delais suplementaire',debugging)
if ( otherdevices[v.volet]=='Open' or otherdevices[v.volet]=='Stopped' ) and TimeDiff(v.volet) > delai_on_off then
voir_les_logs ('--- --- --- Le volet : "'..v.volet..'" doit être ouvert',debugging)
voir_les_logs ('--- --- --- Le volet est Ouvert ==> Fermeture',debugging)
commandArray[v.volet]=ordre_type(v.Type, "closing")
end
end
elseif (mode_volets == "manuel") then
else
voir_les_logs ('--- --- --- Mode gestion volet non reconnu',debugging)
end
end
end
return commandArrayCode : Tout sélectionner
--[[ sunAzimuth.lua for [ dzVents >= 2.4.14 (domoticz >= V4.10444)]
author/auteur = papoo
update/mise à jour = 04/08/2019
creation = 04/08/2019
place this DZvents script in /domoticz/scripts/dzVents/scripts/ directory
script dzvents à placer dans le répertoire /domoticz/scripts/dzVents/scripts/
https://pon.fr/dzvents-altitude-et-azimut-du-soleil-sans-api/
https://github.com/papo-o/domoticz_scripts/blob/master/dzVents/scripts/sunAzimuth.lua
https://easydomoticz.com/forum/viewtopic.php?f=17&t=8787
--]]
local scriptName = 'sun azimuth'
local scriptVersion = '1.0'
local solarAltitude = 'Altitude du soleil' -- name or idx without '' of the sun altitude device, nil if not used
local solarAzimuth = 'Azimut du soleil' -- name or idx without '' of the sun azimuth device, nil if not used
return {
active = true,
on = { timer = {'every minute'}},
logging = { -- level = domoticz.LOG_DEBUG,
level = domoticz.LOG_INFO, -- Seulement un niveau peut être actif; commenter les autres
-- level = domoticz.LOG_ERROR, -- Only one level can be active; comment others
-- level = domoticz.LOG_MODULE_EXEC_INFO,
marker = scriptName..' v'..scriptVersion },
execute = function(domoticz)
local function logWrite(str,level) -- Support function for shorthand debug log statements
domoticz.log(tostring(str),level or domoticz.LOG_DEBUG)
end
local latitude = domoticz.settings.location.latitude
--local latitude = '45.83'
logWrite('latitude : '..latitude)
local longitude = domoticz.settings.location.longitude
--local longitude = '1.26'
logWrite('longitude : '..longitude)
local function sunposition(latitude, longitude, time)-- solar altitude, azimuth (degrees)
--source https://stackoverflow.com/questions/35467309/position-of-the-sun-azimuth-in-lua
time = time or os.time()
if type(time) == 'table' then time = os.time(time) end
local date = os.date('*t', time)
local timezone = (os.time(date) - os.time(os.date('!*t', time))) / 3600
if date.isdst then timezone = timezone + 1 end
local utcdate = os.date('*t', time - timezone * 3600)
local latrad = math.rad(latitude)
local fd = (utcdate.hour + utcdate.min / 60 + utcdate.sec / 3600) / 24
local g = (2 * math.pi / 365.25) * (utcdate.yday + fd)
local d = math.rad(0.396372 - 22.91327 * math.cos(g) + 4.02543 * math.sin(g) - 0.387205 * math.cos(2 * g)
+ 0.051967 * math.sin(2 * g) - 0.154527 * math.cos(3 * g) + 0.084798 * math.sin(3 * g))
local t = math.rad(0.004297 + 0.107029 * math.cos(g) - 1.837877 * math.sin(g)
- 0.837378 * math.cos(2 * g) - 2.340475 * math.sin(2 * g))
local sha = 2 * math.pi * (fd - 0.5) + t + math.rad(longitude)
local sza = math.acos(math.sin(latrad) * math.sin(d) + math.cos(latrad) * math.cos(d) * math.cos(sha))
local saa = math.acos((math.sin(d) - math.sin(latrad) * math.cos(sza)) / (math.cos(latrad) * math.sin(sza)))
return 90 - math.deg(sza), math.deg(saa)
end
local function getSunPos(lat, long, time)
findTime = {}
findTime.hour, findTime.min = time.hour, time.min
fixedAzimuthLast, fixedAzimuth = 0, 0
for i=0,23 do
for j=0,59 do
time.hour, time.min = i, j
local altitude, azimuth = sunposition(lat, long, time)
-- fix azimuth
if fixedAzimuthLast < azimuth then
fixedAzimuthLast = azimuth
fixedAzimuth = fixedAzimuthLast
else
fixedAzimuth = fixedAzimuthLast + (180 - azimuth)
end
-- find azimuth at target time
if findTime.hour == i and findTime.min == j then
-- final result
return altitude, fixedAzimuth
end
end
end
end
altitude, azimuth = getSunPos(latitude, longitude, os.date('*t', os.time()))
if altitude < 0 then altitude=0 end
logWrite('solar altitude : '..domoticz.utils.round(altitude),2)
logWrite('solar azimut : '..domoticz.utils.round(azimuth),2)
if (solarAltitude) and (altitude) then domoticz.devices(solarAltitude).updateCustomSensor(altitude) end
if (solarAzimuth) and (azimuth) then domoticz.devices(solarAzimuth).updateCustomSensor(azimuth) end
end -- execute function
}