[SCRIPT VB] Action sur un composant

La section pour partager vos scripts et demander de l'aide dans vos scénarios.

Modérateur: HoMIDoM

[SCRIPT VB] Action sur un composant

Messagede davidinfo » 04 Juin 2014, 07:58

Voici un petit script tout simple dont le but est d'actionner un composant physique : allumer une lampe, fermer un volet...

Code: Tout sélectionner
    Imports System
    Imports System.IO
    Imports System.Windows.Forms
    Imports Microsoft.VisualBasic
    Imports Homidom   
    Imports System.Xml
    Imports System.Xml.XPath
    Imports System.Xml.Serialization   
    Imports System.Net                                                         
    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)
        try
                Dim IdComposant as String = "e3f34ad9-780e-45c4-b275-1c957f9f2152"
                Dim IdDuServer as string = "123456789"

                 Dim composant as  Homidom.Homidom.TemplateDevice = _Serveur.ReturnDeviceById(IdDuServer,IdComposant)
                 _serveur.log(1, 2, "Macro VB:Action sur le composant", "composant : " & composant.name)

                 ' Simplement changer la valeur du composant dans Homidom (mais pas en physique, utile pour un composant virtuel par exemple)
                 ' _serveur.ChangeValueOfDevice(IdDuServer,IdComposant ,"CLOSE")

                 'Action sur un composant : ON, OFF, OPEN, CLOSE
                 Dim action as new Homidom.Homidom.DeviceAction
                 action.Nom="ON"
                 _serveur.ExecuteDeviceCommand(IdDuServer,IdComposant ,action)

                 'Action sur un composant : DIM 20
                 'Dim action as new Homidom.Homidom.DeviceAction
                 'action.Nom="ON"
                 'Dim param As New HoMIDom.HoMIDom.DeviceAction.Parametre
                 'param.Value = "20"
                 'action.Parametres.Add(param)
                 '_serveur.ExecuteDeviceCommand(IdDuServer,IdComposant ,action)

                 _serveur.log(1, 2, "Macro VB:Action sur le composant", "Fait")
                 
        Catch ex As Exception
           _serveur.log(8, 2, "Macro VB:Action sur le composant", "Exception: " & ex.tostring)
        End Try
      End Function

    End Class
    End Namespace
HoMIDoM- Le système complet et gratuit de domotique pour la maison (Domos)
Avatar de l’utilisateur
davidinfo
Dieu de domotique
 
Messages: 1514
Inscription: 19 Oct 2008, 22:49
Localisation: Algrange (57)

Re: [SCRIPT VB] Action sur un composant

Messagede cirdec007 » 22 Sep 2015, 15:51

Bonjour,
J'ai besoin de récupérer une variable définie dans un composant puis de la modifier en vb.
J'ai essayé

Dim x as TemplateDevice=Myservice.ReturnDeviceById(123456789,6d183eed-4909-4704-8380-419fba3xxxxxx)
Compteur=x.VariablesOfDevice("CompteurPerso")
x.VariableOfDevice("CompteurPerso")=Compteur + 1

Je reçois le message d'erreur suivant:

ERREUR SCRIPT ExecuteScript Erreur lors de l’exécution du script: Line>26, 'D' ne peut plus être utilisé pour indiquer un exposant ; utilisez 'E' à la place.

Thanks
cirdec007
Membre Actif
 
Messages: 30
Inscription: 08 Sep 2015, 10:38

Re: [SCRIPT VB] Action sur un composant

Messagede davidinfo » 23 Sep 2015, 09:05

Salut,

Pourrais tu essayer en mettant des guillements autour de id server et id du composant ?
Dim x as TemplateDevice=Myservice.ReturnDeviceById("123456789","6d183eed-4909-4704-8380-419fba3xxxxxx")

David
HoMIDoM- Le système complet et gratuit de domotique pour la maison (Domos)
Avatar de l’utilisateur
davidinfo
Dieu de domotique
 
Messages: 1514
Inscription: 19 Oct 2008, 22:49
Localisation: Algrange (57)

Re: [SCRIPT VB] Action sur un composant

Messagede cirdec007 » 23 Sep 2015, 14:12

Merci David ... ça fonctionne...

Navré de t'avoir dérangé pour si peu :-)

BĂ t
cirdec007
Membre Actif
 
Messages: 30
Inscription: 08 Sep 2015, 10:38

Re: [SCRIPT VB] Action sur un composant

Messagede davidinfo » 23 Sep 2015, 14:15

pas de soucis :-)
HoMIDoM- Le système complet et gratuit de domotique pour la maison (Domos)
Avatar de l’utilisateur
davidinfo
Dieu de domotique
 
Messages: 1514
Inscription: 19 Oct 2008, 22:49
Localisation: Algrange (57)


Retourner vers Scripts VB

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités

Copyright © 2011 - Touteladomotique.com - Tous droits rĂ©servĂ©s
Les blogs partenaires : Abavala, Domo-Blog, Domotique34, Maison et Domotique