Discussion :

[perstef]

Bonjour,

J'utilise un programme de gestion Domotique qui est Homeseer Pro, avec ce dernier je souhaite gérer la commande de mise en et hors service de ma chaudière.

J'ai donc créé un script (vbscript) qui demande l'exécution d'une commande marche dès que la mesure relevée par la sonde est < à la température de consigne et une commande arrêt dès que la mesure de sonde est >= à la température de consigne (a noter que la sonde envoie ses donnée au système dès qu'elle varie d'un 10ème de °) cela fonctionne mais ...

Mon problème est que la commande d'un sens comme dans l'autre est envoyé à chaque mesure reçue par le système sollicitant les relais plus que nécessaire.

Ce que je souhaite c'est que dès que la condition est remplie d'un sens comme dans l'autre la commande soit envoyée une fois seulement par exemple:

10h00 Température sonde < température de consigne ===> envoie de la commande marche
10h05 Température sonde < température de consigne ===> pas de commande
10h08 Température sonde < température de consigne ===> pas de commande
10h15 Température sonde >= température de consigne ===> envoie de la commande Arrêt
10h18 Température sonde >= température de consigne ===> pas de commande
10h22 Température sonde >= température de consigne ===> pas de commande
Etc..

J'espère être claire étant un vrai, vrai débutant en vbscript pour un peu plus de clarté je colle çi dessous l'extrait du code qui aujourd'hui fonctionne mais pas comme je le souhaite.

D'avance merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   '### DEMARAGE DU CHAUFFAGE
        If (Sonde_oregon<Mode_chauffage) Then
                hs.execX10 "M2", "on"
                hs.execX10 "M12", "off"
                hs.WriteLog "Info", "chauffage Marche"
    End If
 
        '### ARRET DU CHAUFFAGE
        If (Mode_chauffage<=Sonde_oregon) Then
                hs.execX10 "M12", "on"
                hs.execX10 "M2", "off"
                hs.WriteLog "Info", "chauffage Arret"
 
     End If

Nota les commandes qui commence par "hs" sont propre au système "Homeseer" de gestion domotique

[l_autodidacte]

Salut et BIENVENU sur DVP

D'après ce que j'ai pu comprendre, tu devrais mettre une condition sur la fréquence d'envoi des commandes ; c-à-d toutes les 4 ou 5 minutes car à vrai dire je n'ai pas bien saisie ta demande !

[ProgElecT]

Salut l_autodidacte & perstef
Cela pourrait ressembler à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim EtatCmd ' drapeau état du relais 
'Time, fonction: Renvoie un Variant de sous-type Date indiquant l'heure système en cours
 
 '### DEMARAGE DU CHAUFFAGE
		If Time >= Cdate("10:00:00") And Time <= Cdate("10:08:00") Then
			If (Sonde_oregon<Mode_chauffage) And EtatCmd <> "Marche" Then
                		hs.execX10 "M2", "on"
                		hs.execX10 "M12", "off"
                		hs.WriteLog "Info", "chauffage Marche"
				EtatCmd = "Marche"
			End If
		End If
 
        '### ARRET DU CHAUFFAGE
		If Time >= Cdate("10:15:00") And Time <= Cdate("10:22:00") Then
			If (Mode_chauffage<=Sonde_oregon) And EtatCmd <> "Arret" Then
                		hs.execX10 "M12", "on"
                		hs.execX10 "M2", "off"
                		hs.WriteLog "Info", "chauffage Arret"
				EtatCmd = "Arret"
			End If
		End If

Prise en compte de l'heure de déclenchement de mise en et/ou hors service (ligne 5 et 15) plus dernière commande Arrêt/Marche effectué par le script (ligne 6 et 16) avec le And évalué en même temps que la condition température.

[perstef]

Bonjour,

Merci à tous de votre contribution même si la solution n'y était pas "L'autodidact" à allumer chez moi une lumière, un éclair de lucidité.

En effet j'avais oublié que le système proposait une fonction permettant de vérifier l'état de la commande cette fonction est "hs.isoff ou hs.ison", il m'a donc suffit d'ajouter un "And hs.isoff ("M2") dans la condition (voir si dessous) ainsi la cmde n'est envoyée qu'une seul fois quelques soit la variation de la sonde de température jusqu'a ce que celle ci atteigne la température de consigne. et la j'suis trop content CA MARCHE COMME JE VEUX. Je colle ci dessous l'extrait du code au cas ou cela servirait à quelqu'un.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'### DEMARAGE DU CHAUFFAGE
If (Sonde_oregon<Mode_chauffage)and hs.isoff ("M2") Then ' si température sonde < consigne et M2 off (marche chauffage est off alors
     hs.execX10 "M2", "on"                            ' Cmde marche Chaudière sur on
     hs.execX10 "M12", "off"                          ' Cmde arret Chaudiere sur off
     hs.WriteLog "Info", "chauffage Marche"           ' Pase info marche chaudiere ds journal
End If
 
'### ARRET DU CHAUFFAGE
If (Mode_chauffage<=Sonde_oregon)and hs.isoff ("M12") Then ' si température sonde >= consigne et M12 off (Arret chauffage est off alors
     hs.execX10 "M12", "on"                             ' Cmde arret Chaudière sur on
     hs.execX10 "M2", "off"                             ' Cmde marche Chaudiere sur off
     hs.WriteLog "Info", "chauffage Arret"              ' Pase info Arret chaudiere ds journal
End If

[l_autodidacte]

Bonjour,
Heureux pour toi d'avoir trouvé la solution.
ProgElecT ( ) et moi avons répondu selon le peu d'infos que nous avons pu récupérer de ta demande car nous ne connaissons pas ton support de travail.
Comme consigné dans ma signature : Ne pas oublier le tag si satisfait.

[pitchalov]

Bonjour,
Le problème est résolu et c'est tant mieux, mais après avoir lu le sujet et les réponses, je me permets d'ajouter mon grain de sel.
Cela pourra servir si le même problème se reposait, sans capacité d'interroger l'état de la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'### INITIALISATION
boolChauffageOn = False
Do While 1
	'### DEMARAGE DU CHAUFFAGE
	If ((boolChauffageOn = False) AND (Sonde_oregon < Mode_chauffage)) Then
		hs.execX10 "M2", "on"
		hs.execX10 "M12", "off"
		hs.WriteLog "Info", "chauffage Marche"
		boolChauffageOn = True
	End If
 
	'### ARRET DU CHAUFFAGE
	If ((boolChauffageOn = True) AND (Mode_chauffage <= Sonde_oregon)) Then
		hs.execX10 "M12", "on"
		hs.execX10 "M2", "off"
		hs.WriteLog "Info", "chauffage Arret"
		boolChauffageOn = False
	End If
Loop

Bonne continuation

[ProgElecT]

Salut

Je ne veux pas troler, mais ce qui me gène dans les codes proposés c'est la notion de plages horaires .

10h00 Température sonde < température de consigne ===> envoie de la commande marche
10h05 Température sonde < température de consigne ===> pas de commande
10h08 Température sonde < température de consigne ===> pas de commande
10h15 Température sonde >= température de consigne ===> envoie de la commande Arrêt
10h18 Température sonde >= température de consigne ===> pas de commande
10h22 Température sonde >= température de consigne ===> pas de commande

pitchalov, pourrais tu m'expliquer cette ligne de code Do While 1

[pitchalov]

Hello ProgElecT

J'avais peut-être mal compris, mais j'avais l'impression que les heures étaient des résultats de logs, envoyés à titre d'exemple.
Si je me suis trompé, mon code n'a effectivement rien à faire là étant donné qu'il ne prend pas en compte de plage horaire.

Par contre, si le script doit juste faire du maintien en température, sans tenir compte des horaires, alors mon exemple pourrait être utile --> son seul objectif est de ne pas renvoyer de commande "on/off" si la commande en cours est déjà la bonne.

Le "Do While 1" est une boucle infinie (il lui manque un Wait afin de faire de la tempo bien sûr) permettant d'avoir un script unique de maintien de la température (pas la peine de le relancer toutes les 5/10 minutes) et de justement garder dans une variable l'état de la commande en cours --> je l'ai rajouté pour illustrer mon exemple.

Si ma contribution n'est pas constructive, voir plus troublante qu'autre chose, je l'enlèverai sans problème