Tror vi må begynne å finne ut hva som skjer på en måte. Det enkleste er å skrive "Power"-verdiene til en fil hver gang de endres, så finner vi fort ut hvor problemet ligger.
Prøv med dette enkle scriptet:
Sub Main(parm As Object)
'Moskus 2017 :)
Dim deviceRef As Integer = parm.ToString()
Dim out As String = Now.ToShortDateString & " " & Now.ToLongTimeString & vbTab & hs.DeviceValueEx(deviceRef).ToString("f1")
Try
My.Computer.FileSystem.WriteAllText(hs.GetAppPath & "\Logs\" & deviceRef & ".txt", out & vbNewLine, True)
Catch ex As Exception
hs.WriteLog("LogValueToFile ERROR", ex.Message)
End Try
End Sub
Lagre det som "LogValueToFile.vb" i mappen \Scripts
Du setter det opp i HomeSeer med trigger "when device has it's value set", og med action "Run a script or a scripting command". Enten velger du den eksisterende LogValueToFile.vb-scriptet, eller så skriver du inn det filnavnet i slutten av "path". Velger du det siste får du opp et blankt vindu med kun et par linjer kode, erstatt de to linjene med scriptet over, og (for alt i verden) trykk "SAVE" under kode-vinduet.
"Sub or Function" skal være "Main", og i "Parameter" setter du inn Device IDen til "Power"-devicen.
Kjør så en tørketrommelsyklus og hvis du har mulighet, noter tidspunkter for forskjellige sykluser. Så kan du kikke i Logs-mappen i HomeSeer. Der skal det nå være en tekstfil med DeviceRef'en som filnavn. Kikk i den og se hva som skjer. Kan forsåvidt legge den her også.