Application : Fermer tous les volets du salon (exemple 1), Éteindre toutes les lumières de la maison (exemple 2) …
Il n’y a pas de composants spécifique à créer.
Voici le script à mettre dans une action VB d'une macro (à exécuter par trigger composants Switch virtuel ou via Sarah par exemple) :
Exemple 1
- Code: Tout sélectionner
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Homidom
Namespace Dynam
'Ne pas supprimer cette class
Public Class DynamicCode
'Ne pas supprimer cette function
Public Function ExecuteCode(paramarray prmParameters() as object) as object
Dim Serveur as Homidom.Homidom.server
Serveur=prmParameters(0)
Dim resultat as integer
Dim XDevice as System.Collections.ArrayList = Serveur.ReturnDeviceByZoneType("123456789","idzone1","VOLET",true)
For each Dev as object in XDevice
resultat=Serveur.ChangeValueOfDevice("123456789",Dev.ID,0)
‘Serveur.log(10, 2, "Macro VB:off all","Commande de " & Dev.name & " ; Result= " & resultat )
Next
End Function
End Class
End Namespace
Exemple 2
- Code: Tout sélectionner
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Homidom
Namespace Dynam
'Ne pas supprimer cette class
Public Class DynamicCode
'Ne pas supprimer cette function
Public Function ExecuteCode(paramarray prmParameters() as object) as object
Dim Serveur as Homidom.Homidom.server
Serveur=prmParameters(0)
Dim resultat as integer
Dim XDevice as System.Collections.ArrayList = Serveur.ReturnDeviceByZoneType("123456789","","LAMPE",true)
For each Dev as object in XDevice
resultat=Serveur.ChangeValueOfDevice("123456789",Dev.ID,0)
‘Serveur.log(10, 2, "Macro VB:off all","Commande de " & Dev.name & " ; Result= " & resultat )
Next
End Function
End Class
End Namespace