Hei.
Jeg forsøker å styre min rfxcom-termostat via HS touch, men har støtt på noen problemer.
1. jeg ønsker å endre modus på termostaten(man, day, night, off, timer) ved hjelp av knapp i hstouch. Dette har jeg delvis fått til å fungere med følgende kode:
Public Sub Main(ByVal input As Object)
Dim control As String = input
Dim devicevalue As Double = hs.DeviceValueex(control)
If devicevalue = 0 Then
hs.SetDeviceValueByRef(input, 103, True)
else if devicevalue = 103 Then
hs.SetDeviceValueByRef(input, 101, True)
else if devicevalue = 101 Then
hs.SetDeviceValueByRef(input, 102, True)
else if devicevalue = 102 Then
hs.SetDeviceValueByRef(input, 0, True)
End If
End Sub
Dette gjør jobben med å endre modus på termostatus, men setpunkt blir ikke oppdatert når status endres. Jeg mistenker at jeg må bruke noe "CAPI-greier" for å få det til, men jeg syns at de funksjonene er dårlig beskrevet i manualen.
2. Jeg ønsker å kunne endre settpunkt opp og ned i manuell. Dette bør da fungere som i web-interfacet slik at mode endres til manuell hvis settpunkt endres.
Jeg ser for meg at koden skal kunne gjøre noe slik som dette:
sub opp()
dim verdi as ?double?
verdi = 'hente verdi fra device
verdi = verdi + 0.5 'øke verdi med 0,5
'skrive verdi til device' = verdi
end sub
sub ned()
dim verdi as ?double?
verdi = 'hente verdi fra device
verdi = verdi - 0.5 'minke verdi med 0,5
'skrive verdi til device' = verdi
end sub
jeg sliter litt med å finne ut hvilke funksjoner jeg skal bruke.
Det er også vanskelig å debugge når man ikke kan kjøre koden del for del. (noen som har tips for å få hs biblioteket inn i visual studio?)
Alternativt er jeg ute etter tips å gjøre dette på en enklere måte, men jeg tror script er beste måten å gjøre det på (uten å lage massevis av "dummy devices")
Noen tips?
TverFyll