Homeseer:Old libraire

Un article de MacodaWiki.

Jump to: navigation, search

Ces librairies apportent un ensemble de fonctions génériques pour l'ensemble des scripts. Elle sont découpées par type de fonction afin d'essayer de surcharger le moins possible les scripts avec des librairies immenses. Elles sont obsolètes car re-développées en VB.NET pour Homeseer 2.0 (voir les nouvelles libraires).

Elles sont toutes fonctionnelles, mais pas encore toutes documentées.

  • lib_log.vbs : Permet d'écrire des messages dans les logs
  • lib_device.vbs : Permet de gérer les devices Homeseer et contient l'ensemble des devices gérés.
  • lib_util.vbs : Contient un ensemble de fonctions (surtout pour les dates)
  • lib_bddata.vbs : Tout ce qui a rapport avec une base de données
  • lib_alerte.vbs : Permet de gérer des niveaus d'alerte, de relance d'alerte, ...
  • lib_arrosage.vbs : Permet de gérer l'arrosage intégré (empêche que 2 voies soient allumées en même temps, ...)
  • lib_chrono.vbs : Permet de comptabiliser du temps (chronomètre)
  • lib_comm.vbs : Permet d'envoyer des emails, des SMS, ... de façon standard et facile.
  • lib_temp.vbs : Permet de gérer les thermomètre et device 1820 et autres
  • lib_vdr.vbs : Permet de piloter VDR
  • lib_vmc.vbs : Permet de piloter la VMC

Scripts VBS

Script de gestion domotique lancé par Homeseer.

Scripts ASP

Ensemble de script qui sont lancés par le moteur ASP de Homeseer. Principalement utilisé pour l'affichage de graphique, mais également par l'interface R2D2.


Ecriture dans une base de données

Pour écrire dans une base de données avec le code suivant, il faut avoir préalablement créé un lien ODBC sur votre PC :

Définition de la base de données sur le PC
Lancer "odbcad32.exe"
Source de données "utilisateur"
Cliquer sur "Ajouter"
Choisir "Microsoft Access Driver"
Dans la nouvelle boite de dialogue
Mettre le nom de la base de données "HOMESEER"
Cliquer sur le bouton "Sélectionner"
Choisir le .mdb qui contiendra la base de données
Cliquer sur OK

Code pour écrire dans la base de données

sub main()
' Objet base de données (a affecter avec le nom de la base=HOMESEER)
Set oBase = CreateObject("ADODB.Connection")   
'
' Pointeur pour les requêtes sur la base
Set oRequete = CreateObject("ADODB.Recordset")            
'
' Ouverture de l'objet Base : Obligatoire avant tout autre opération
oBase.Open "HOMESEER"       
'
iIndexAct = 1210
iConsoAct = 540
iNbSec =123
iNbWatt = 456
sTexte = "INSERT INTO tb_speedfan ( [Date_op],[Index], [watt_heure], [nb_sec], [nb_watt] )"
sTexte +="VALUES (Now,'"&cstr(iIndexAct)&"','"&cstr(iConsoAct)&"','"&cstr(iNbSec)&"','"&cstr(iNbWatt)&"');"
'
' Insertion d'une ligne dans la table
oRequete.Open sTexte, oBase 
'
' Fermeture de la base à la fin
oBase.Close
'
end sub