Ayant automatisé les volets de ma maison, j’ai aussitôt créé des « events » sous Homeseer pour les ouvrir et les fermer automatiquement. Cependant, les volets ayant
le défaut de faire un peu de bruit lors de l’ouverture, j’ai cherché pour décaler l’heure d’ouverture le samedi, dimanche et les jours fériés.
Gérer les samedis et dimanches, c’est possible sous Homeseer, mais pas les jours fériés. J’ai donc fait quelques recherches sur les forums, voici la solution que j’ai récupérée du forum Touteladomotique.
I. Installation
La 1re étape consiste à créer un device qui va recueillir les informations sur le calcul du jour en cours.
1 – On commence par cliquer sur le bouton « Add Device » dans le menu « Status». Mettez « Jour férié » dans Device Name et « Status Only » dans Device Type.
Donnez lui un lettercode/Unitcode (u33 dans mon exemple).
Cliquez sur le bouton « Save » pour enregistrer votre device.
2 – Puis, dans le menu « Events », cliquez sur le bouton « Add Event ». Dans la partie Name mettez « Calcul jour ferie ». Décochez la case « Disable Automatic Event
Triggering » afin de pouvoir mettre l’événement en mode déclenchement automatique.
3 – Cliquez ensuite en haut sur l’onglet « Trigger ». Mettez « Absolute Time » dans Current Trigger Type puis 0 :01 dans Hour et Minute, afin que l’évènement se
déclenche tous les jours à 0h01.
4 – Dans l’étape suivante, sélectionner « Run Script » dans la liste de choix « Add action » et nommez « ferie.txt » dans la case « Existing or new script name ».
Cliquez ensuite sur le bouton « Open Script Window » et copiez/collez le script suivant :
sub main()
‘ 2= Férie, 3= Jour Normal
codelu= “VOTRECODELETTREUNITE“,
thisYear = Year(Date)
thisDay = Day(Date) & “/” & Month(Date)
jourdelasemaine = Weekday(Date)
if jourdelasemaine = 1 then
hs.SetDeviceStatus codelu ,2
HS.WriteLog “******”, “Nous sommes le ” & Date & “. ” & “Nous sommes un Dimanche.”
hs.SetDeviceString codelu,”<table border=””0″” width=””100%”” bgcolor=””#FFFF00″” cellspacing=””0″” cellpadding=””0″”><tr><td width=””100%””><font face=””Verdana”” color=””#800000″”><b>Dimanche</b></font></td></tr></table>”
exit sub
end if
jFixes = “1/1,1/5,8/5,14/7,15/8,1/11,11/11,25/12”
G = thisYear Mod 19
c = thisYear \ 100
H = (c – (c \ 4) – ((8 * c + 13) \ 25) + (19 * G) + 15) Mod 30
I = H – (H \ 28) * ((1 – (H \ 28) * (29 \ (H + 1)) * (21 – G) \ 11))
J = (thisYear + (thisYear \ 4) + I + 2 – c + (c \ 4)) Mod 7
L=I-J
mois = 3 + ((L + 40) \ 44)
jour = L + 28 – 31 * (mois \ 4)
jPaques = jour & “/” & mois & “/” & thisYear
jLundiPaques = DateSerial(Year(jPaques), Month(jPaques), Day(jPaques) + 1)
jAscension = DateSerial(Year(jPaques), Month(jPaques), Day(jPaques) + 39)
jPentecote = DateSerial(Year(jPaques), Month(jPaques), Day(jPaques) + 50)
jFeries = jFixes & “,” & Day(jPaques) & “/” & Month(jPaques) & “,” & Day(jLundiPaques) & “/” & Month(jLundiPaques) & “,” & Day(jAscension) & “/” & Month(jAscension) & “,” & Day(jPentecote) & “/” & Month(jPentecote)
tabFeries = Split(jFeries, “,”)
Text = “Ce n'est pas”
hs.SetDeviceStatus codelu,3
hs.setDeviceString codelu,”Jour normal”
For Each Jo In tabFeries
If Jo = thisDay Then
Text = “C'est”
hs.SetDeviceStatus codelu,2
hs.SetDeviceString codelu,”<table border=””0″” width=””100%”” bgcolor=””#FFFF00″” cellspacing=””0″” cellpadding=””0″”><tr><td width=””100%””><font face=””Verdana”” color=””#800000″”><b>Jour Ferie</b></font></td></tr></table>”
End If
Next
HS.WriteLog “******”, “Nous sommes le ” & Date & “. ” & Text & ” un jour férié.”
end sub
5 – Ne pas oublier de remplacer la ligne VOTRECODELETTREUNITE par votre propre code Lettre/unité (u33 dans mon exemple). Cliquez enfin sur le bouton « Save Script » puis « Update» et enfin « Save », l’évènement est prêt pour utilisation.
II. Test
Dans la liste des évènements, si vous cliquez sur le bouton « Run » devant le script « Calcul jour ferie », vous devez retrouver dans votre device le résultat du calcul.
En cliquant sur ce device et en allant dans l’onglet « Additionnal Information », vous trouverez les résultats suivants :
- Status = 3 = OFF : Jour normal
- Status = 2 = ON : Jour férie
- String : Nom du jour férié ou le texte « Jour normal »
III. Programmation des volets
Le calcul du jour férié aura lieu maintenant tous les jours à 0h01. Il ne reste plus qu’à appliquer une condition pour l’ouverture des volets. Pour cela, j’ai créé deux
évènements :
Le 1er ouvre les volets suivant l’heure de lever du soleil si on n’est pas un jour férié
Le 2éme ouvre les volets à heure fixe les jours fériés.
IV. Conclusion
Je trouve un peu compliqué la gestion des jours fériés sous Homeseer. Tout bon système d’information se doit de pouvoir gérer ce type d’évènement avec un calendrier fixe et mobile (dans une base de données). J’espère que la prochaine version de Homeseer sera capable d’évoluer et d’intégrer en natif cette problématique.
