Forandre viftehastighet (Sensibo) i script

[Frankh]

Hei, 

 

Jeg har laget meg ett script i .vb for å få varmepumpen til å oppføre seg slik jeg vil.

Det meste virker nå men jeg klarer ikke å få scriptet til å forandre viftehastigheten.

 

Her er ett utdrag:

 

Sub Main(ByVal Parm As Object)
    Dim ChangeFanSpeed As Integer = 2326
    Dim ChangeMode As Integer = 2327
    Dim ChangeTemperature As Integer = 2329
    Dim CurrentTemperature As Integer = 2043
    Dim temperatureTolerance As Integer = 1 'justerer temperaturen hvis vi er utenfor dette intervallet
    Dim mediumFanSpeed As String = "Medium_High"
    Dim highFanSpeed As String = "High"
    Dim lowFanSpeed As String = "Medium"
    Dim Success As Boolean = False

    ' Hent gjeldende temperatur fra sensoren
    Dim currentTemp As Double = hs.DeviceValueEx(CurrentTemperature)

    ' Hent ønsket temperatur fra Change Temperature enheten
    Dim desiredTemperature As Double = hs.DeviceValueEx(2409)

    ' Sjekk om det er nødvendig å justere temperaturen
    If currentTemp < desiredTemperature - temperatureTolerance - 2 Then ' endret her
        ' Sett viftehastighet til High
        hs.SetDeviceString(ChangeFanSpeed, highFanSpeed, True)
        ' Sett varmepumpen i varme-modus
        hs.SetDeviceString(ChangeMode, "Heat", True)
        ' Sett temperaturen til 30 grader
        Success = hs4.SendControlForFeatureByValue(ChangeTemperature, 30)
    ElseIf currentTemp < desiredTemperature - temperatureTolerance Then
        ' Sett viftehastighet til medium
        hs.SetDeviceString(ChangeFanSpeed, mediumFanSpeed, True)
        ' Sett varmepumpen i varme-modus
        hs.SetDeviceString(ChangeMode, "Heat", True)
        ' Øk temperaturen
        Success = hs4.SendControlForFeatureByValue(ChangeTemperature, desiredTemperature + temperatureTolerance)
        'hs.SetDeviceValueByRef(ChangeTemperature, desiredTemperature + temperatureTolerance, True)
    ElseIf currentTemp > desiredTemperature + temperatureTolerance Then
        ' Sett viftehastighet til low
        hs.SetDeviceString(ChangeFanSpeed, lowFanSpeed, True)
        ' Sett varmepumpen i varme-modus
        hs.SetDeviceString(ChangeMode, "Heat", True)
        ' Senk temperaturen
        Success = hs4.SendControlForFeatureByValue(ChangeTemperature, desiredTemperature - temperatureTolerance)
        'hs.SetDeviceValueByRef(ChangeTemperature, desiredTemperature - temperatureTolerance, True)
    Else
        ' Sett viftehastighet til low
        hs.SetDeviceString(ChangeFanSpeed, lowFanSpeed, True)
        ' Sett varmepumpen i varme-modus
        hs.SetDeviceString(ChangeMode, "Heat", True)
        ' Sett temperaturen til ønsket temperatur
        Success = hs4.SendControlForFeatureByValue(ChangeTemperature, desiredTemperature)
        'hs.SetDeviceValueByRef(ChangeTemperature, desiredTemperature, True)
    End If
End Sub

 

Når jeg sjekker device så forandrer klokkeslettet seg, men ikke verdien.

Noen som ser hva jeg har gjort galt?