Hoi,
Ik ben geen scripting expert en heb al wat rondgezocht, maar kom er toch niet uit.
Omdat HStouch niet goed kan omgaan met thermostaten die op graden Celcius ingesteld staan, ben ik aangewezen op scripting. (Weet niet zeker of dit aan de Proliphix plug-in ligt, want die ondersteund wel celcius, of aan HStouch)
Heeft iemand een voorbeeld script, of kan me helpen met het scripten van de Proliphix thermostaat in Homeseer.
Alvast bedankt,
Rien
Scripting Proliphix thermostaat
Re: Scripting Proliphix thermostaat
Ik heb het inmiddels zelf voor elkaar, als iemand er ook iets aan heeft dan hoor ik het wel.
Rien
Re: Scripting Proliphix thermostaat
Hi Rien,
ik zou graag wat meer info hebben over deze scripts. Heb sinds kort een proliphix en wil deze graag gebruiken icm hstouch.
dank alvast!
ik zou graag wat meer info hebben over deze scripts. Heb sinds kort een proliphix en wil deze graag gebruiken icm hstouch.
dank alvast!
groeten,
Harry
Harry
Re: Scripting Proliphix thermostaat
Hi,Phaeton wrote:Hi Rien,
ik zou graag wat meer info hebben over deze scripts. Heb sinds kort een proliphix en wil deze graag gebruiken icm hstouch.
dank alvast!
Het al een jaar geleden en ik weet niet meer precies wat er aan de hand was.....
Wat is precies je probleem/wat wil je graag doen ?
Gr,
Rien
Rien
Re: Scripting Proliphix thermostaat
Ah nu weet ik het weer....
Ik gebruik HStouch op de manier als in de screenshot hieronder (Dus op de knoppen drukken om 1 graad omhoog of omlaag te zetten)
Dat werkt goed......
Om de meteen naar een bepaalde temperatuur te zetten zal je een script moeten maken en die aanroepen vanuit HStouch
Zoals dieze:
Sub Main(ByVal Parms As Object)
Dim pi
Dim mode
Dim cmode
Dim fan
Dim CSP
Dim HSP
Dim Temp
Dim newheat
pi = hs.Plugin("Proliphix Thermostats")
mode = pi.GetModeSet(1)
cmode = pi.GetCurrentMode(1)
fan = pi.GetFanMode(1)
CSP = pi.GetCoolSet(1)
HSP = pi.GetHeatSet(1)
Temp = pi.GetTemp(1)
hs.WriteLog("Proliphix Plug-In", HSP & " - " & Temp)
newheat = HSP+1
hs.Plugin("Proliphix Thermostats").CmdSetHeat(1, newheat)
hs.WriteLog("Proliphix Plug-In", HSP & " - " & Temp)
End Sub
Ik gebruik HStouch op de manier als in de screenshot hieronder (Dus op de knoppen drukken om 1 graad omhoog of omlaag te zetten)
Dat werkt goed......
Om de meteen naar een bepaalde temperatuur te zetten zal je een script moeten maken en die aanroepen vanuit HStouch
Zoals dieze:
Sub Main(ByVal Parms As Object)
Dim pi
Dim mode
Dim cmode
Dim fan
Dim CSP
Dim HSP
Dim Temp
Dim newheat
pi = hs.Plugin("Proliphix Thermostats")
mode = pi.GetModeSet(1)
cmode = pi.GetCurrentMode(1)
fan = pi.GetFanMode(1)
CSP = pi.GetCoolSet(1)
HSP = pi.GetHeatSet(1)
Temp = pi.GetTemp(1)
hs.WriteLog("Proliphix Plug-In", HSP & " - " & Temp)
newheat = HSP+1
hs.Plugin("Proliphix Thermostats").CmdSetHeat(1, newheat)
hs.WriteLog("Proliphix Plug-In", HSP & " - " & Temp)
End Sub
- Attachments
-
- 2012-11-04_0952.png (291.34 KiB) Viewed 5528 times
Rien
Re: Scripting Proliphix thermostaat
Thank you. I'll look into it this week. I think I should be able manage. Thanks for the kickstart!
groeten,
Harry
Harry