About the author

Pascal STEPHANY

Rédacteur en Chef du Blog Domotique Info depuis 2009, je suis avant tout un passionné de Domotique. Après avoir géré la boutique en ligne My Domotique entre 2012 et 2016, je travaille désormais dans les produits pour maison connectée...

Related Articles

8 Comments

  1. 1

    Jérôme

    Bravo pour cette très belle installation !

    Peux-tu nous en dire plus les scripts qui envoient à Pachube et Mischamps4b ?

  2. 2

    jeannine allegatiere

    bravo jean-pierre –

  3. 3

    Peedjy

    Salut Jérôme
    Pour Pachube :
    Voici les scripts que j’utilise sous Homeseer : Appelé par un event toute les 10mn
    Il faut bien enregistrer le fichier en .vb et pas .txt

    Sub Main(ByVal Parms As String)
    ‘upload data to pachube relating to sensors etc
    Dim TempChambreParents= (hs.devicevalue(« T1 »)/100)
    Dim TempExterieure = (hs.devicevalue(« T2 ») / 100)
    Dim TempChambreEnfants = (hs.devicevalue(« T3 »)/100)
    Dim TempSalledeJeux = (hs.devicevalue(« T4 »)/100)
    Dim TempSalledeBain = (hs.devicevalue(« T5 ») / 100)
    Dim TempToilettes = (hs.devicevalue(« T6 ») / 100)

    TempChambreParents = replace (TempChambreParents, « , », ». »)
    TempExterieure = replace (TempExterieure, « , », ». »)
    TempChambreEnfants = replace (TempChambreEnfants, « , », ». »)
    TempSalledeJeux = replace (TempSalledeJeux, « , », ». »)
    TempSalledeBain = replace (TempSalledeBain, « , », ». »)
    TempToilettes = replace (TempToilettes, « , », ». »)

    Dim WebStr As String

    WebStr = TempChambreParents & « , » & TempExterieure & « , » & TempChambreEnfants & « , » & TempSalledeJeux & « , » & TempSalledeBain & « , » & TempToilettes
    ‘WebStr = TempChambreParents & « , » & TempExterieure & « , » & TempChambreEnfants
    hs.writelog(« Pachube », »Uploading: » & webstr)
    Try

    Dim strURL = « http://www.pachube.com/api/feeds/3XXXX.csv » ‘ Remplacer XXXX par le numéro de Feeds à updater
    ‘Dim strURL = « http://api.pachube.com/V2/feeds/3XXXX.csv » ‘Cette version de l’API ne fonctionne pas avec le script ci dessous!!
    Dim wR As System.Net.WebRequest = System.Net.WebRequest.Create(strURL)
    wR.Headers.Add(« X-PachubeApiKey: mettre ici la clé API de pachube »)

    wR.Method = « PUT »

    Dim oEncoder As New System.Text.ASCIIEncoding()
    ‘hs.writelog(« Pachube », »Uploading: » & webstr)
    Dim bytes As Byte() = oEncoder.GetBytes(webStr)
    Dim postStream As System.IO.Stream = wR.GetRequestStream()
    postStream.Write(bytes, 0, bytes.Length)
    postStream.Close()
    Dim wResponse As System.Net.WebResponse = wR.GetResponse()
    Dim ResponseText As String
    Using SReader As New system.io.StreamReader(wResponse.GetResponseStream)
    ResponseText = SReader.readtoend()
    End Using
    wR = Nothing
    Catch
    hs.writelog(« Pachube », « Error uploading to Pachube »)
    End Try
    End Sub

    Pour Michamps4b :
    Il s’agit d’une API web
    Le webmaster du site (très sympa) ne souhaite pas la rendre public. Si tu veux le contacter directement, il t’aideras surement à la mettre en place sur ton système.
    C’est une simple adresse web qui contient : identifiant, Pwd, Data1, Data2 etc…
    Avec Homeseer je l’appelle comme ça :

    Sub EnvoiData()
    ConsoJour = (hs.deviceString (« [5 »)/1000)
    ConsoNuit = (hs.deviceString (« [4 »)/1000)
    URL = « http://www.michamps4b.be/plus la suite de l’URL fourni par le web master
    hs.writeLog « Mischamps4b »,time & URL

    CodeRetour = hs.GetURL(« http://www.michamps4b.be », »/ plus la suite de l’URL fourni par le web master,true,80)
    hs.writeLog « Mischamps4b »,time & CodeRetour

    End Sub

    Voila
    A+, Peedjy

  4. 4

    Jean-Pierre

    Salut Johan
    Pour les sondes 1 wire j’utilise un autre modèle trouvé sur E-bay mais le composant à l’intérieur est identique des DS18B20 (j’ai aussi quelque composants ‘brut’)
    Il existe surement des systèmes sans fil mais l’avantage du bus 1 wire c’est le coût qui est vraiment bas et la simplicité à mettre en œuvre (Tu branches tout tes capteurs le long d’un seul câble)
    A+

  5. 5

    Jean-Pierre

    Salut Jérôme
    Pour Pachube :
    Voici les scripts que j’utilise sous Homeseer : Appelé par un event toute les 10mn
    Il faut bien enregistrer le fichier en .vb et pas .txt

    Sub Main(ByVal Parms As String)
    ‘upload data to pachube relating to sensors etc
    Dim TempChambreParents= (hs.devicevalue(« T1 »)/100)
    Dim TempExterieure = (hs.devicevalue(« T2 ») / 100)
    Dim TempChambreEnfants = (hs.devicevalue(« T3 »)/100)
    Dim TempSalledeJeux = (hs.devicevalue(« T4 »)/100)
    Dim TempSalledeBain = (hs.devicevalue(« T5 ») / 100)
    Dim TempToilettes = (hs.devicevalue(« T6 ») / 100)

    TempChambreParents = replace (TempChambreParents, « , », ». »)
    TempExterieure = replace (TempExterieure, « , », ». »)
    TempChambreEnfants = replace (TempChambreEnfants, « , », ». »)
    TempSalledeJeux = replace (TempSalledeJeux, « , », ». »)
    TempSalledeBain = replace (TempSalledeBain, « , », ». »)
    TempToilettes = replace (TempToilettes, « , », ». »)

    Dim WebStr As String

    WebStr = TempChambreParents & « , » & TempExterieure & « , » & TempChambreEnfants & « , » & TempSalledeJeux & « , » & TempSalledeBain & « , » & TempToilettes
    ‘WebStr = TempChambreParents & « , » & TempExterieure & « , » & TempChambreEnfants
    hs.writelog(« Pachube », »Uploading: » & webstr)
    Try

    Dim strURL = « http://www.pachube.com/api/feeds/3XXXX.csv » ‘ Remplacer XXXX par le numéro de Feeds à updater
    ‘Dim strURL = « http://api.pachube.com/V2/feeds/3XXXX.csv » ‘Cette version de l’API ne fonctionne pas avec le script ci dessous!!
    Dim wR As System.Net.WebRequest = System.Net.WebRequest.Create(strURL)
    wR.Headers.Add(« X-PachubeApiKey: mettre ici la clé API de pachube »)

    wR.Method = « PUT »

    Dim oEncoder As New System.Text.ASCIIEncoding()
    ‘hs.writelog(« Pachube », »Uploading: » & webstr)
    Dim bytes As Byte() = oEncoder.GetBytes(webStr)
    Dim postStream As System.IO.Stream = wR.GetRequestStream()
    postStream.Write(bytes, 0, bytes.Length)
    postStream.Close()
    Dim wResponse As System.Net.WebResponse = wR.GetResponse()
    Dim ResponseText As String
    Using SReader As New system.io.StreamReader(wResponse.GetResponseStream)
    ResponseText = SReader.readtoend()
    End Using
    wR = Nothing
    Catch
    hs.writelog(« Pachube », « Error uploading to Pachube »)
    End Try
    End Sub

    Pour Michamps4b :
    Il s’agit d’une API web
    Le webmaster du site (très sympa) ne souhaite pas la rendre public. Si tu veux le contacter directement, il t’aideras surement à la mettre en place sur ton système.
    C’est une simple adresse web qui contient : identifiant, Pwd, Data1, Data2 etc…
    Avec Homeseer je l’appelle comme ça :

    Sub EnvoiData()
    ConsoJour = (hs.deviceString (« [5 »)/1000)
    ConsoNuit = (hs.deviceString (« [4 »)/1000)
    URL = « http://www.michamps4b.be/plus la suite de l’URL fourni par le web master
    hs.writeLog « Mischamps4b »,time & URL

    CodeRetour = hs.GetURL(« http://www.michamps4b.be », »/ plus la suite de l’URL fourni par le web master,true,80)
    hs.writeLog « Mischamps4b »,time & CodeRetour

    End Sub

    Voila
    A+

  6. 6

    Jerome

    Pas mal du tout
    merci de la contribution

  7. 7

    jean pierre

    Pour Johan, malheureusement je n’ai pas encore de blog. (plus par manque de temps….) mais si tu as des questions je peux essayer de repondre. sinon je post frequement des messages sur le forum de toute la domotique (pseudo Peedjy) ou sur Facebook

  8. 8

    Jean-Pierre

    salut Johan,
    Juste pour info j’ai finalement demarré un blog très recement si à l’occasion tu veux faire un tour voic l’adresse: http://domogy.blogspot.com/
    A+

Leave a Reply

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.

2016 - Tous droits protégés - Domotique Info

En poursuivant votre navigation sur ce site, vous acceptez l’utilisation de cookies ou autres traceurs pour vous proposer par exemple, des publicités ciblées adaptés à vos centres d’intérêts ou encore, réaliser des statistiques de visites. Plus informations

Les paramètres de cookies sur ce site sont configurés pour "autoriser les cookies" afin de vous offrir la meilleure expérience de navigation possible. Si vous continuez à utiliser ce site Web sans modifier vos paramètres de cookies ou si vous cliquez sur "Accepter" ci-dessous, vous consentez à cela.

Fermer