Dette er en "dirty hack" som tar endringer i setpoint-devicen og sender dem til termostaten som en parameter. Ideelt skulle termostaten selvfølgelig gjort dette selv, men inntil HeatIt får fikset det (for dette er et problem på veldig mange systemer) så får vi gjøre det på denne måten.
Du må lage et event som trigger på alle endringer på termostatens SetPoint device.
Og da kjører du dette scriptet med parameter "NodeNummerTilTermostaten,DeviceRefTilSetPointDevice"
Sub Main(ByVal Parms As Object)
'Moskus 2020
Dim homeID As String = "HOMEID"
Dim nodeNumber As Byte = Parms.ToString.Split(","c)(0)
Dim deviceRef As Integer = Parms.ToString.Split(","c)(1)
Dim parameter As Byte = 9
Dim value As Integer = hs.DeviceValue(deviceRef)
'Options: {homeid, nodeID, Parameter, ParamSize, Convert.ToInt32(value)}
Dim reply As String = hs.PluginFunction("Z-Wave", "", "Configuration_Set", New Object() {homeID, nodeNumber, parameter, Convert.ToByte(2), Convert.ToInt32(value * 10)})
If False Then 'Change "False" to "True" To debug
Select Case reply
Case 0, ""
reply = "UNKNOWN"
Case 1
reply = "Successful"
Case 2
reply = "Queued"
Case 3
reply = "Failed"
End Select
hs.WriteLog("SetParameter", "Set node " & nodeNumber & "s parameter " & parameter & " to " & value & ": " & reply)
End If
End Sub