[***] Script GRAPH.vb chartdirector

Solution Ă  base d'un PC et du logiciel Homeseer. Vous trouverez ici les tutos, les discussions sur les plugs-in et les scripts Ă  base de VBasic, ASP, VBScript, etc

Re: script GRAPH.vb chartdirector

Messagede florent306 » 21 DĂ©c 2011, 13:05

salut stephane,
peut tu me dire le non de la dll?
je ne trouve pas system.data.dll ou peut on la trouver?
merci
Florent
Domotics
PC: I3 3.07 GHz DD232G 2G RAM+1 PC MEDIACENTER E6750 2GO RAM!
Soft: Homeseer pro 2.5.0.44
X10: 1xCM11-RS232, 1MS13E, 1LM15,4LW12,1LM12,1SW12+1FILTRE FM10F
RF: , 1RPT,
Télécommande: 1xSS13, 1KR18,1SH624,1SURF801
Alarme: 1xSC9100, 2xDS18, 1xMS18
1 ROOMBA 560
florent306
Membre Actif
 
Messages: 40
Inscription: 28 DĂ©c 2006, 23:56
Localisation: ain

Re: script GRAPH.vb chartdirector

Messagede steph@ne » 21 DĂ©c 2011, 13:17

En fait, je pensais plus Ă  netchartdir.dll....
*******************************************************************************************************************************************
Homeseer Pro 2.5.0.20: Arrêté depuis debut mai 2014.
HSTouch: 1 tablette android murale,1 Wiko, 2 iphones, 1 flytouch
*******************************************************************************************************************************************
Homeseer 3 Pro:
Mes plugins: Carte TERACOM, TELEINFO, THERMOSTAT, CGE USB, CALLERID, IPX800v3, NETATMO
Autres plugins: RFXCOM, X10, SONOS
*******************************************************************************************************************************************
Matériels:
X10: CM11(serie), SW10(7), MS13(3), Micromodules(4), modules lampe/appareil
RFXCOM: interface(receiver/transmitter), sondes oregon(7), DS10 modifiés en 433Mhz
Chauffage: fils pilotes sur carte IPX800v3+ plugin thermostat pour HS3
Avatar de l’utilisateur
steph@ne
Dieu de domotique
 
Messages: 574
Inscription: 11 Mar 2009, 13:10
Localisation: Isère

Re: script GRAPH.vb chartdirector

Messagede florent306 » 21 DĂ©c 2011, 20:48

steph@ne a Ă©crit:En fait, je pensais plus Ă  netchartdir.dll....

celui la je l'ai.
maintenant j'ai ça comme erreur!:et la je sèche :mrgreen:
21/12/2011 20:42:11 - Error - Script compile error: Type 'OdbcConnection' non défini.on line 80

21/12/2011 20:42:11 - SCR - Option Strict OffImports Microsoft.VisualBasicImports System.Data.OdbcImports System.DataImports System.WebImports ChartDirectorimports Schedulerimports SystemPublic Module scriptcode1#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End Region' ---------------------------------------------------------------------------' Filename: GRAPH.vb' By: Steph@ne' Created: 14-11-2010' Updated: 18-11-2010' Version: 1.1' Use: Recup les temprature du salon et de l'exterieur' InsertionDB() insert les valeurs des 15 devices en DB' CreateChart() Crée un graphique en ligne suivant paramétrage' dans graph.ini''v1.1 Création de tous les graphiques en même temps' Ajout de System.data;System.Data.dll automatiquement dans settings.ini' Création automatique de l'event recurent.' ---------------------------------------------------------------------------sub initialisation(param as string) hs.writelog("GRAPH.vb","Vérification de l'événement.") if hs.EventExists(hs.GetINISetting("temperature", "EventNom", "", "GRAPH.ini")) then hs.DeleteEvent(hs.GetINISetting("temperature", "EventNom", "", "GRAPH.ini")) Dim eve As Scheduler.Classes.EventClass._EventClass dim ref as long dim script as string hs.writelog("GRAPH.vb","Création de l'événement " & hs.GetINISetting("temperature", "EventNom", "", "GRAPH.ini") & " toutes les " & hs.GetINISetting("temperature", "EventAuto", "", "GRAPH.ini") & " mn" ) ref=hs.NewEventGetRef(hs.GetINISetting("temperature", "EventNom", "", "GRAPH.ini")) eve=hs.GetEventByRef(ref) eve.ev_abs_time=6 eve.rec_mins=hs.GetINISetting("temperature", "EventAuto", "", "GRAPH.ini") eve.group="Graphiques" hs.clearactions(ref) script="&hs.runex(""GRAPH.vb"",""Main"","" "")" hs.addaction(ref,5,script) hs.EnableEvent(hs.GetINISetting("temperature", "EventNom", "", "GRAPH.ini")) eve=nothing hs.writelog("GRAPH.vb","Vérification de settings.ini.") Dim parametre as string = "System.data;System.Data.dll" Dim TrouveParametre as integer = InStr(hs.GetINISetting("Settings", "ScriptingReferences", "", "settings.ini"),parametre) if TrouveParametre=0 then hs.writelog("GRAPH.vb","Paramètre dans settings.ini manquant.") hs.SaveINISetting("settings","ScriptingReferences",hs.GetINISetting("Settings", "ScriptingReferences", "", "settings.ini") & "," & parametre,"settings.ini") hs.writelog("GRAPH.vb","Paramètre dans settings.ini ajouté. Redémarrer Homeseer") Else hs.writelog("GRAPH.vb","Paramètre dans settings.ini trouvé. Pas d'action.") End ifEnd SubSub Main(parm as string) InsertionDB("") dim graph() as string = hs.GetINISetting("temperature", "GraphAuto", "", "GRAPH.ini").split(",") dim i as integer For i=lbound(graph) to ubound(graph) CreateChart(graph(i)) NextEnd Sub' --------------- Creation du graphique lignesSub CreateChart(graphique as string) if graphique<>"" then Dim ConnectionString as String = hs.GetINISetting("temperature", "ConnectionString", "", "GRAPH.ini") Dim connection As OdbcConnection Dim aCommand As OdbcCommand Dim reader connection = New OdbcConnection() connection.ConnectionString = ConnectionString connection.Open() Dim strQuery as String="SELECT DateTemperature , " & hs.GetINISetting(graphique, "Devicex", "", "GRAPH.ini") & " FROM Temperaturesheure WHERE DateTemperature>DATEADD ('h',-24,now()) order by datetemperature asc;" aCommand = New OdbcCommand(strQuery, connection) Reader = aCommand.ExecuteReader(CommandBehavior.CloseConnection) dim dev1, dev2, dev3, dev4, dev5, dev6, dev7, dev8, dev9, dev10, dev11, dev12, dev13, dev14, dev15 as boolean Dim selection() as string = hs.GetINISetting(graphique, "Devicex", "", "GRAPH.ini").split(",") Dim a as integer For a=lbound(selection) to ubound(selection) if lcase(selection(a))="device1" then dev1=true if lcase(selection(a))="device2" then dev2=true if lcase(selection(a))="device3" then dev3=true if lcase(selection(a))="device4" then dev4=true if lcase(selection(a))="device5" then dev5=true if lcase(selection(a))="device6" then dev6=true if lcase(selection(a))="device7" then dev7=true if lcase(selection(a))="device8" then dev8=true if lcase(selection(a))="device9" then dev9=true if lcase(selection(a))="device10" then dev10=true if lcase(selection(a))="device11" then dev11=true if lcase(selection(a))="device12" then dev12=true if lcase(selection(a))="device13" then dev13=true if lcase(selection(a))="device14" then dev14=true if lcase(selection(a))="device15" then dev15=true Next Dim device1() As Double = {0} Dim device2() As Double = {0} Dim device3() As Double = {0} Dim device4() As Double = {0} Dim device5() As Double = {0} Dim device6() As Double = {0} Dim device7() As Double = {0} Dim device8() As Double = {0} Dim device9() As Double = {0} Dim device10() As Double = {0} Dim device11() As Double = {0} Dim device12() As Double = {0} Dim device13() As Double = {0} Dim device14() As Double = {0} Dim device15() As Double = {0} Dim DateTemp() As date Dim Compteur As Long =0 While reader.Read() ReDim Preserve Device1(compteur) ReDim Preserve Device2(compteur) ReDim Preserve Device3(compteur) ReDim Preserve Device4(compteur) ReDim Preserve Device5(compteur) ReDim Preserve Device6(compteur) ReDim Preserve Device7(compteur) ReDim Preserve Device8(compteur) ReDim Preserve Device9(compteur) ReDim Preserve Device10(compteur) ReDim Preserve Device11(compteur) ReDim Preserve Device12(compteur) ReDim Preserve Device13(compteur) ReDim Preserve Device14(compteur) ReDim Preserve Device15(compteur) ReDim Preserve DateTemp(compteur) if dev1=true then device1(Compteur) = reader("Device1").ToString() if dev2=true then device2(Compteur) = reader("Device2").ToString() if dev3=true then device3(Compteur) = reader("Device3").ToString() if dev4=true then device4(Compteur) = reader("Device4").ToString() if dev5=true then device5(Compteur) = reader("Device5").ToString() if dev6=true then device6(Compteur) = reader("Device6").ToString() if dev7=true then device7(Compteur) = reader("Device7").ToString() if dev8=true then device8(Compteur) = reader("Device8").ToString() if dev9=true then device9(Compteur) = reader("Device9").ToString() if dev10=true then device10(Compteur) = reader("Device10").ToString() if dev11=true then device11(Compteur) = reader("Device11").ToString() if dev12=true then device12(Compteur) = reader("Device12").ToString() if dev13=true then device13(Compteur) = reader("Device13").ToString() if dev14=true then device14(Compteur) = reader("Device14").ToString() if dev15=true then device15(Compteur) = reader("Device15").ToString() DateTemp(Compteur) = reader("DateTemperature").tostring() Compteur=Compteur+1 End While Dim c As XYChart = New XYChart(hs.GetINISetting(graphique, "LargeurPx", "", "GRAPH.ini"), hs.GetINISetting(graphique, "HauteurPx", "", "GRAPH.ini"),hs.GetINISetting(graphique, "CouleurFond", "", "GRAPH.ini"), &H0, 0) chart.setLicenseCode("SBWTDH883563W6GG7218B192") if hs.GetINISetting(graphique, "Titre", "", "GRAPH.ini")<>"" then c.setPlotArea(30, 20, hs.GetINISetting(graphique, "LargeurPx", "", "GRAPH.ini")-40, hs.GetINISetting(graphique, "HauteurPx", "", "GRAPH.ini")-60,&H0FF000000,-1,-1,&H0FF000000) Else c.setPlotArea(30, 10, hs.GetINISetting(graphique, "LargeurPx", "", "GRAPH.ini")-40, hs.GetINISetting(graphique, "HauteurPx", "", "GRAPH.ini")-40,&H0FF000000,-1,-1,&H0FF000000) End If Dim layer As LineLayer = c.addLineLayer2() if dev1=true then layer.addDataSet(device1,-1, hs.stringitem(hs.GetINISetting("Temperature", "Device1", "", "GRAPH.ini"),3,"|")) if dev2=true then layer.addDataSet(device2, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device2", "", "GRAPH.ini"),3,"|")) if dev3=true then layer.addDataSet(device3, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device3", "", "GRAPH.ini"),3,"|")) if dev4=true then layer.addDataSet(device4, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device4", "", "GRAPH.ini"),3,"|")) if dev5=true then layer.addDataSet(device5, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device5", "", "GRAPH.ini"),3,"|")) if dev6=true then layer.addDataSet(device6, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device6", "", "GRAPH.ini"),3,"|")) if dev7=true then layer.addDataSet(device7, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device7", "", "GRAPH.ini"),3,"|")) if dev8=true then layer.addDataSet(device8, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device8", "", "GRAPH.ini"),3,"|")) if dev9=true then layer.addDataSet(device9, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device9", "", "GRAPH.ini"),3,"|")) if dev10=true then layer.addDataSet(device10, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device10", "", "GRAPH.ini"),3,"|")) if dev11=true then layer.addDataSet(device11, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device11", "", "GRAPH.ini"),3,"|")) if dev12=true then layer.addDataSet(device12, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device12", "", "GRAPH.ini"),3,"|")) if dev13=true then layer.addDataSet(device13, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device13", "", "GRAPH.ini"),3,"|")) if dev14=true then layer.addDataSet(device14, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device14", "", "GRAPH.ini"),3,"|")) if dev15=true then layer.addDataSet(device15, -1, hs.stringitem(hs.GetINISetting("Temperature", "Device15", "", "GRAPH.ini"),3,"|")) layer.setXData(DateTemp) layer.setLineWidth(hs.GetINISetting(graphique, "LargeurLignes", "", "GRAPH.ini")) c.xAxis.setDateScale("{value|hh}") c.xAxis().setLabelStyle(hs.GetINISetting(graphique, "Font", "", "GRAPH.ini"), hs.GetINISetting(graphique, "TexteTaille", "", "GRAPH.ini"), hs.GetINISetting(graphique, "TexteCouleur", "", "GRAPH.ini")) c.yAxis().setLabelStyle(hs.GetINISetting(graphique, "Font", "", "GRAPH.ini"), hs.GetINISetting(graphique, "TexteTaille", "", "GRAPH.ini"), hs.GetINISetting(graphique, "TexteCouleur", "", "GRAPH.ini")) if hs.GetINISetting(graphique, "Titre", "", "GRAPH.ini")<>"" then c.addTitle(hs.GetINISetting(graphique, "Titre", "", "GRAPH.ini"),hs.GetINISetting(graphique, "font", "", "GRAPH.ini"),cint(hs.GetINISetting(graphique, "TitreTaille", "", "GRAPH.ini")),cint(hs.GetINISetting(graphique, "TitreCouleur", "", "GRAPH.ini"))) if hs.GetINISetting(graphique, "Legende", "", "GRAPH.ini")=1 then c.addLegend(30,hs.GetINISetting(graphique, "HauteurPx", "", "GRAPH.ini")-25, False, hs.GetINISetting(graphique, "Font", "", "GRAPH.ini"), 7).setBackground(Chart.Transparent) c.makeChart(hs.GetINISetting(graphique, "CheminFichier", "", "GRAPH.ini")) c=nothing connection.Close() connection.dispose() connection=nothing else hs.writelog("GRAPH","Paramètre manquant. Le script ne s'éxécute pas.") end ifEnd Subsub InsertionDB(parm as object) Dim Device1() As String = hs.GetINISetting("temperature", "Device1", "", "GRAPH.ini").Split("|") Dim Device2() As String = hs.GetINISetting("temperature", "Device2", "", "GRAPH.ini").Split("|") Dim Device3() As String = hs.GetINISetting("temperature", "Device3", "", "GRAPH.ini").Split("|") Dim Device4() As String = hs.GetINISetting("temperature", "Device4", "", "GRAPH.ini").Split("|") Dim Device5() As String = hs.GetINISetting("temperature", "Device5", "", "GRAPH.ini").Split("|") Dim Device6() As String = hs.GetINISetting("temperature", "Device6", "", "GRAPH.ini").Split("|") Dim Device7() As String = hs.GetINISetting("temperature", "Device7", "", "GRAPH.ini").Split("|") Dim Device8() As String = hs.GetINISetting("temperature", "Device8", "", "GRAPH.ini").Split("|") Dim Device9() As String = hs.GetINISetting("temperature", "Device9", "", "GRAPH.ini").Split("|") Dim Device10() As String = hs.GetINISetting("temperature", "Device10", "", "GRAPH.ini").Split("|") Dim Device11() As String = hs.GetINISetting("temperature", "Device11", "", "GRAPH.ini").Split("|") Dim Device12() As String = hs.GetINISetting("temperature", "Device12", "", "GRAPH.ini").Split("|") Dim Device13() As String = hs.GetINISetting("temperature", "Device13", "", "GRAPH.ini").Split("|") Dim Device14() As String = hs.GetINISetting("temperature", "Device14", "", "GRAPH.ini").Split("|") Dim Device15() As String = hs.GetINISetting("temperature", "Device15", "", "GRAPH.ini").Split("|") Dim InsertString As String InsertString = "INSERT INTO Temperaturesheure(datetemperature" If Device1(0) <> "" Then InsertString = InsertString & ",device1" If Device2(0) <> "" Then InsertString = InsertString & ",device2" If Device3(0) <> "" Then InsertString = InsertString & ",device3" If Device4(0) <> "" Then InsertString = InsertString & ",device4" If Device5(0) <> "" Then InsertString = InsertString & ",device5" If Device6(0) <> "" Then InsertString = InsertString & ",device6" If Device7(0) <> "" Then InsertString = InsertString & ",device7" If Device8(0) <> "" Then InsertString = InsertString & ",device8" If Device9(0) <> "" Then InsertString = InsertString & ",device9" If Device10(0) <> "" Then InsertString = InsertString & ",device10" If Device11(0) <> "" Then InsertString = InsertString & ",device11" If Device12(0) <> "" Then InsertString = InsertString & ",device12" If Device13(0) <> "" Then InsertString = InsertString & ",device13" If Device14(0) <> "" Then InsertString = InsertString & ",device14" If Device15(0) <> "" Then InsertString = InsertString & ",device15" InsertString = InsertString & ") VALUES(now()" If Device1(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device1(0)) / Device1(1)), ",", ".") If Device2(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device2(0)) / Device2(1)), ",", ".") If Device3(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device3(0)) / Device3(1)), ",", ".") If Device4(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device4(0)) / Device4(1)), ",", ".") If Device5(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device5(0)) / Device5(1)), ",", ".") If Device6(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device6(0)) / Device6(1)), ",", ".") If Device7(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device7(0)) / Device7(1)), ",", ".") If Device8(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device8(0)) / Device8(1)), ",", ".") If Device9(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device9(0)) / Device9(1)), ",", ".") If Device10(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device10(0)) / Device10(1)), ",", ".") If Device11(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device11(0)) / Device11(1)), ",", ".") If Device12(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device12(0)) / Device12(1)), ",", ".") If Device13(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device13(0)) / Device13(1)), ",", ".") If Device14(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device14(0)) / Device14(1)), ",", ".") If Device15(0) <> "" Then InsertString = InsertString & "," & replace(cdec(hs.DeviceValue(Device15(0)) / Device15(1)), ",", ".") InsertString = InsertString & ");" Dim connection As OdbcConnection Dim aCommand As OdbcCommand Dim ConnectionString As String = hs.GetINISetting("temperature", "ConnectionString", "", "GRAPH.ini") Dim modelog As String = hs.GetINISetting("Temperature", "ModeLog", "", "GRAPH.ini") connection = New OdbcConnection() connection.ConnectionString = ConnectionString connection.Open() If modelog = True Then hs.WriteLog("InsertionDB", "Connexion la base de donne") aCommand = New Odbc.OdbcCommand(InsertString, connection) aCommand.ExecuteNonQuery() If modelog = True Then hs.WriteLog("InsertionDB", "Insertion des valeurs") connection.Close() connection.dispose() connection = Nothing aCommand = Nothing ConnectionString = Nothing If modelog = True Then hs.WriteLog("InsertionDB", "Opration termine")End SubEnd Module
Domotics
PC: I3 3.07 GHz DD232G 2G RAM+1 PC MEDIACENTER E6750 2GO RAM!
Soft: Homeseer pro 2.5.0.44
X10: 1xCM11-RS232, 1MS13E, 1LM15,4LW12,1LM12,1SW12+1FILTRE FM10F
RF: , 1RPT,
Télécommande: 1xSS13, 1KR18,1SH624,1SURF801
Alarme: 1xSC9100, 2xDS18, 1xMS18
1 ROOMBA 560
florent306
Membre Actif
 
Messages: 40
Inscription: 28 DĂ©c 2006, 23:56
Localisation: ain

Re: script GRAPH.vb chartdirector

Messagede florent306 » 30 DĂ©c 2011, 09:53

salut,
bon,je me suis remis sur ce script mais je ni arrive toujours pas!
je comprend pas j’ai tout recommencé mais rien y fait!
j'ai toujours ce message:30/12/2011 09:45:04 - Error - Script compile error: Type 'XYChart' non défini.on line 168
j'utilise pachube pour mes graph mais j'aurais bien aimer utiliser ce script qui ma l'air mieux au niveau des graph!
a plus
florent
Domotics
PC: I3 3.07 GHz DD232G 2G RAM+1 PC MEDIACENTER E6750 2GO RAM!
Soft: Homeseer pro 2.5.0.44
X10: 1xCM11-RS232, 1MS13E, 1LM15,4LW12,1LM12,1SW12+1FILTRE FM10F
RF: , 1RPT,
Télécommande: 1xSS13, 1KR18,1SH624,1SURF801
Alarme: 1xSC9100, 2xDS18, 1xMS18
1 ROOMBA 560
florent306
Membre Actif
 
Messages: 40
Inscription: 28 DĂ©c 2006, 23:56
Localisation: ain

Re: script GRAPH.vb chartdirector

Messagede familleustache » 16 Oct 2012, 20:22

Bonjour steph@ne,

As-tu fait Ă©voluer ton script ?

Bonne soirée.
Je débute, mais j'ai envie !
familleustache
Dieu de domotique
 
Messages: 400
Inscription: 02 Sep 2008, 10:36

Re: script GRAPH.vb chartdirector

Messagede steph@ne » 17 Oct 2012, 09:10

salut familleustache ,

A part l'ajout d'un graph Temperatures/humidité comme ci-dessous je n'ai plus touché ce script depuis.
Image
Il fonctionne parfaitement et je n'ai plus d'autres besoins.

dis-moi, je pensais qu'une épidémie avait décimé les utilisateurs de homeseer... Je suis bien content de voir qu'il reste des survivants :D
Ces derniers temps, il n'y a plus grand chose qui bouge concernant homeseer sur ce forum... DOMMAGE. :(

Les BOXs toutes faites ont pris le dessus sur les solutions Ă  base de DIY. C'est vraiment dommage car il y a encore plein de trucs interressant Ă  faire ...
Le forum n'a plus la même âme depuis leur arrivée et je suis déçu. Je ne le fréquente presque plus à présent.

Désolé de te dire cela. Mais je profite de cette réponse pour faire passer un message...
Bonne continuation.

SD
*******************************************************************************************************************************************
Homeseer Pro 2.5.0.20: Arrêté depuis debut mai 2014.
HSTouch: 1 tablette android murale,1 Wiko, 2 iphones, 1 flytouch
*******************************************************************************************************************************************
Homeseer 3 Pro:
Mes plugins: Carte TERACOM, TELEINFO, THERMOSTAT, CGE USB, CALLERID, IPX800v3, NETATMO
Autres plugins: RFXCOM, X10, SONOS
*******************************************************************************************************************************************
Matériels:
X10: CM11(serie), SW10(7), MS13(3), Micromodules(4), modules lampe/appareil
RFXCOM: interface(receiver/transmitter), sondes oregon(7), DS10 modifiés en 433Mhz
Chauffage: fils pilotes sur carte IPX800v3+ plugin thermostat pour HS3
Avatar de l’utilisateur
steph@ne
Dieu de domotique
 
Messages: 574
Inscription: 11 Mar 2009, 13:10
Localisation: Isère

Re: script GRAPH.vb chartdirector

Messagede ycole » 17 Oct 2012, 09:26

steph@ne a Ă©crit:Il fonctionne parfaitement et je n'ai plus d'autres besoins.

dis-moi, je pensais qu'une épidémie avait décimé les utilisateurs de homeseer... Je suis bien content de voir qu'il reste des survivants :D
Ces derniers temps, il n'y a plus grand chose qui bouge concernant homeseer sur ce forum... DOMMAGE. :(

Les BOXs toutes faites ont pris le dessus sur les solutions Ă  base de DIY. C'est vraiment dommage car il y a encore plein de trucs interressant Ă  faire ...
Le forum n'a plus la même âme depuis leur arrivée et je suis déçu. Je ne le fréquente presque plus à présent.

Désolé de te dire cela. Mais je profite de cette réponse pour faire passer un message...


Je suis tout à fait de ton avis. Heureusement, il y a aussi lechat69 et l'e-emaison qui font encore partager leurs connaissances et leurs scripts. Mais j'ai l'impression que les utilisateurs de box ont noyé dans la masse les utilisateurs de Homeseer.
Pour ma part, je continue à fréquenter ce forum tous les jours en espérant voir des messages relatifs à Homeseer...
Et puis je ne vois toujours pas l'intérêt de passer à une box quand on a une installation Homeseer ou que l'on veut quelque chose de complet.
Merci encore pour ton script qui fonctionne parfaitement chez moi depuis le jour où tu l'as partagé.
ycole
Dieu de domotique
 
Messages: 717
Inscription: 08 AoĂ» 2006, 12:44
Localisation: Pays de Caux (Normandie)

Re: script GRAPH.vb chartdirector

Messagede familleustache » 17 Oct 2012, 16:24

Salut mes deux compères !!
Effectivement, je pense qu'il n'y a plus beaucoup d'activité à propos d'HS...
Et pour cause, comme beaucoup, je me suis aussi très intéressé aux box. Pourquoi ? pour la simplicité de mise en oeuvre... parce que un peu raz le bol d'être toujours obligé de "bidouiller" des scripts pour avoir quelque chose de très performant et surtout à moindre cout (parque évidemment, si j'avais eu le choix et les moyens, je ne me serais pas embêté avec HS, j'aurais avec beaucoup de moyen opté pour quelque chose comme l'Allemand GIRA !!).
Et bien c'est justement ce qui m'avais pousser Ă  Ă©ventuellement quitter HS qui m'a fait revenir...
La flexibilité d'HS et ses scripts. Choses qui ne sont pas applicables avec les box au dépend de la simplicité en revanche...
De plus, avec une multitude de module type PLCBUS (au moins une vingtaine, je ne les ai pas compté de peur du montant de l'investissement :), je n'avais pas d'autre choix que de gardé HS...Parce qu'il faut dire que pour l'instant les box n'accueillent pas beaucoup de protocoles...
En bref, même s'il faut vraiment parfois se creuser la tête pour élaborer des scénarios et les mettre en application avec des scripts, je crois que je préfère encore travailler avec HS qui est il faut le dire, hyper stable (chez moi depuis plus de cinq ans à part des petits bugs de plugin dus à des mises à jour, ça n'a jamais déconné !).
Et oui, c'est vrai que pour avoir une interface digne de ce nom avec HSTouch il faut bosser très dure (j'ai imité l'interface GIRA que je trouve hyper simple et très efficace)... Des WE entier j'ai passé à faire tout les boutons, les fonds d'écran, etc... Mais franchement, j'ai un truc que personne a et qui ravie tout ceux qui le découvre... Et ça, on ne peut faire ça qu'avec HomeSeer...

Alors, il faut lutter les gars ! moi je continuerai à poser des questions et répondre dans les mesure de mes connaissances.
Je débute, mais j'ai envie !
familleustache
Dieu de domotique
 
Messages: 400
Inscription: 02 Sep 2008, 10:36

Re: script GRAPH.vb chartdirector

Messagede familleustache » 17 Oct 2012, 16:35

Et bien justement, j'ai des question sur ton script Steph@ne,
J'ai fini par faire l'installation hier soir. Et ben pas un problème, j'ai suivi tes instructions de la page 1 plus celles de Fab26 page 5, ça a fonctionné du premier coup...
J'ai fait un graph pour les températures et un pour l'hygro de toutes les sondes.
Le petit bémols est que les graphe ne soient que sur 24 heures. Y a-t-il une possibilité avec plusieurs mdb de faire des durée de 1 semaine, 1 mois, 1an ? Ca ça serait top...
Autre chose, j'ai vu que pour les couleurs c'était de l'hexadécimale: tu peux me donner les codes pour le noir et le blanc et le rouge ?
Et pour terminer, dans HSTouch, pour faire apparaitre les graphs, je fais un event qui génère l'image png et ensuite je demande à HST d'afficher l'image en lui donnant le chemin sur le serveur. Imaginons que j'utilise HSTouch à l'extérieur sur l'iPhone ou l'iPad, comment ça se passe pour aller chercher l'image ? (en local je vois bien mais par l'extérieur...)

Voilà, vraiment nickel ce script, du coup j'ai viré RFXCHART !!
Aller, on continue l'aventure...
Je débute, mais j'ai envie !
familleustache
Dieu de domotique
 
Messages: 400
Inscription: 02 Sep 2008, 10:36

Re: script GRAPH.vb chartdirector

Messagede lechat69 » 17 Oct 2012, 20:19

Salut tout le monde !

Alors Steph@ne, avec beaucoup de retard je te remercie moi aussi pour ce script car cela fait déjà au moins un an que je l'ai installé et ca fonctionne nickel !

Image

Sinon concernant le petit Hors Sujet Ă  propos d'HomeSeer, je suis comme ycole, je viens sur le forum tous les jours pour voir si il y a du nouveau Ă  propos d'HS..
A vrai dire, je n'ai pas les connaissances suffisantes pour pouvoir proposer un jour quelque chose à la communauté.
J'ai tout appris ou presque grâce à ce forum et ses utilisateurs. Sans cela mon installation ne serait pas ce qu'elle est aujourd'hui !

Moi j'ai commencé avec HS et je ne suis pas prêt de le quitter. Je suis 100% d'accord avec ton avant dernier message familleustache !

Et pour finir, concernant tes questions :
Y a-t-il une possibilité avec plusieurs mdb de faire des durée de 1 semaine, 1 mois, 1an ? Ca ça serait top...

J'utilise conjointement la contribution de psykokwak ici : Cosm/pachube c'est naze. Faisons mieux :)
J'ai installé XAMPP sur le pc ou tourne HS. Ca fonctionne aussi très bien.
Le script de steph@ne me permet de voir un historique précis des dernières 24h, on voit bien les pics de consommation dans mon cas.
Et la contribution de psykokwak me permet d'avoir un historique illimité mais la courbe donne une moyenne pour être lissée.

Et pour terminer, dans HSTouch, pour faire apparaitre les graphs, je fais un event qui génère l'image png et ensuite je demande à HST d'afficher l'image en lui donnant le chemin sur le serveur. Imaginons que j'utilise HSTouch à l'extérieur sur l'iPhone ou l'iPad, comment ça se passe pour aller chercher l'image ? (en local je vois bien mais par l'extérieur...)

Alors là c'est bizarre.. Dans mon cas ca fonctionne aussi à l'extérieur, et j'ai bien rentrer l'adresse http locale dans le Designer. Pas sur iTruc mais sur Android, ca serait dingue que cela provienne de là.
Si tu ne trouves pas de solution d'ici ce weekend je ferai un essai avec l'iphone d'un pote.

@+
Serveur domotique : Mini PC industriel Intel Atom 230 1.60 GHz 2Go RAM 60Go SSD Corsair Neutron --> W7 32bits - HS3PRO - Plugins : BLLAN, BLTouchString, HSTouch Server, IPX800, NetCAM, RFXCOM, TERACOM-TCW181B, Z-Wave.
IHM : ZOTAC ZBOX Nano AD10 PLUS AMD E350 2Go RAM 60Go SSD Crucial M4 --> HSTOUCH via 2 Ă©crans tactiles iiyama 23.6" LED ProLite T2451MTS + S.A.R.A.H. via Kinect Xbox360
HSTOUCH et/ou Tasker sur smartphones Android
Hardware :gce electronics : 4 IPX800V3 + 7 Extensions X880 - Teracom : 2 TCW181B-CM
Z-Wave : Aeon Labs Z-Stick S2 + 3 Compteurs de consommation Ă©lectrique Z-Wave (avec 2 pinces)
IRTRANS LAN DB - 3 Squeezebox Radio - Karotz (OpenKarotz v2.0) -
Avatar de l’utilisateur
lechat69
Guru de domotique
 
Messages: 135
Inscription: 01 Nov 2011, 19:20
Localisation: RhĂ´ne

Re: script GRAPH.vb chartdirector

Messagede douglas » 17 Oct 2012, 20:28

Salut tout le monde !
Bah moi j'arrive sur homeseer pour l'instant avec la demo et homeseer et couplé avec une zibase et moi personnellement je trouve homeseer super !!
C'est sur que sur une box ce n'est pas très compliquer de dialoguer avec les modules comparé à homeseer !! "le temps c'est de l'argent"
En tout cas quand j'aurai trouvé une ptite licence pro de homeseer cela fera un membre de plus ! ;-)
A+
douglas
Membre Actif
 
Messages: 16
Inscription: 11 AoĂ» 2012, 15:32

Re: script GRAPH.vb chartdirector

Messagede steph@ne » 18 Oct 2012, 08:32

Salut les gars,

@familleustache:
Les codes hexa que tu m'as demandé:
- noir #000000
- blanc #ffffff
- rouge #ff0000
Tu peux t'aider avec ce site: http://www.jokconcept.net/codes-couleurs-hexdecimal.php
Pour HSTOUCH, j'ai pas de pb de ce genre....
Pour faire des graphs sur plusieurs jour/semaine/mois, il faut modifier le script. Sachant que dans un premier temps, à chaque execution, le script fait le ménage dans la DB et vire les données >2jours (enfin je te dis cela de tête car je suis au turbin :) ) .
Après il va falloir modifier les requêtes SQL pour afficher le contenu de ce que tu dérires. Et enfin, il faudra paramétrer le graph pour qu'il afffiche correctement les données (CAD semaines, mois, jour ...)

@tous:
Si vous voulez, je peux mettre mon script qui fait aussi les graph temp/hum. Par contre, j'ai pas trop le temps de faire les commentaires mais c'est pas trop dur. Je laisserai mon graph.ini ça vous aidera à comprendre.
Sinon pour revenir à HS, je serai curieux de connaitre le nb d'utilisateurs sur ce forum par rapport aux débuts (juste HS2 pas le 1.7).
J'utilise en majorité de x10. C'est vrai que c'est vieux et qu'il n'y a pas de retour d'info mais en multipliant les différents capteurs et en scriptant bien, on peut s'en sortir quand même. Je commence tout de même à installer du PLCBUS. Notamment le 4212 qui est une pure merveille....
Pour ma part, je préfère, et de loin, les technos filiaires x10 ou PLCBUS par rapport aux autres (ZWAVE par ex). Les fréquences plein la tête y'en à marre :P

Bon bonne journée à tous!
SD
*******************************************************************************************************************************************
Homeseer Pro 2.5.0.20: Arrêté depuis debut mai 2014.
HSTouch: 1 tablette android murale,1 Wiko, 2 iphones, 1 flytouch
*******************************************************************************************************************************************
Homeseer 3 Pro:
Mes plugins: Carte TERACOM, TELEINFO, THERMOSTAT, CGE USB, CALLERID, IPX800v3, NETATMO
Autres plugins: RFXCOM, X10, SONOS
*******************************************************************************************************************************************
Matériels:
X10: CM11(serie), SW10(7), MS13(3), Micromodules(4), modules lampe/appareil
RFXCOM: interface(receiver/transmitter), sondes oregon(7), DS10 modifiés en 433Mhz
Chauffage: fils pilotes sur carte IPX800v3+ plugin thermostat pour HS3
Avatar de l’utilisateur
steph@ne
Dieu de domotique
 
Messages: 574
Inscription: 11 Mar 2009, 13:10
Localisation: Isère

PrécédenteSuivante

Retourner vers Homeseer

Qui est en ligne

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

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