HomeSeer trigger werkt niet?

[DJF3]

<b>In HomeSeer heb ik een trigger "indien device-value higher than 40". </b>



<b>De action is: &hs.writelog "test","value:" & hs.devicevalue(<devicename>)</b>



<b>In de log staat deze devicevalue altijd op '0', terwijl dit event triggered bij een devicevalue >40??
</b>
DJ

... my brain hurts ...

[Alexander]

Domme vraag wellicht maar je weet zeker dat het Q9 is? niet case sensitive? (dus q9)

Alexander

[DJF3]

Ja, denk het wel, want soms staat er in de devicevalue bijv. '2' (Watt).

Vreemd, niet?

[johnz]

Je weet er vast meer van dan ik, maar ik probeer toch even mee te denken:

Wat gebeurt er als je dit event handmatig start? Geeft 'ie dan wel de juiste devicevalue weer?

Hoe heb je "can not retrigger" ingesteld?

+hs.devicestring levert bij mij overigens een syntaxisfout op (maar dat zou dus niet de value 0 op moeten leveren). Het lijkt bijna alsof Q9 een ander device is, maar dat zal je wel gecontroleerd hebben.

John

[DJF3]

Handmatig starten: met een ander device (bijv. Q12 - meterkast) dan zie ik direct de value die bij dit device hoort.
Heb een 'cannot retrigger' ingesteld op 14500 seconden (4 uur)

Over die foutmelding: Klopt.. de '+' moet een '&' zijn [:)]
Dit maakt helaas niet uit voor de vreemde trigger

In ieder geval bedankt voor het meedenken!
DJ

[bartg]

Hi DJ,
Ik doe dit zelfde, maar dan vanuit een los script en dat gaat altijd goed?
Enige dat ik bij je zie, is dat je deviceValue gebruikt bij starten en deviceString na 240 min.
Bart

' Standby killer script
' input1: devicecode
' input2: ondergrens
' Geef input in de format: ("Main", "[4;10")
' schakeld device [4 uit als het stroom verbruik lager is dan 10 watt

Sub Main(ByVal sDeviceNiveau As String)
Dim sDevice As String
Dim sNiveau As String
Dim arrParm(1) As String

arrParm = sDeviceNiveau.split(";")

' arrParm = Split(sDeviceNiveau, ";", -1, 1)

sDevice = arrParm(0)
sNiveau = arrParm(1)
' hs.WriteLog("StandbyKiller", "Start standbykiller script voor device: " & sDevice & " Als waarde lager is als: " & sNiveau & "Watt")
If hs.isoff(sDevice) Then
hs.WriteLog("StandbyKiller", "Device is reeds uit")
Else
If hs.DeviceValue(sDevice) < sNiveau Then
hs.WriteLog("StandbyKiller", "Device wordt uitgeschakeld want het huidige verbruik " & hs.DeviceValue(sDevice) & "Watt is kleiner dan " & sNiveau & "Watt")
hs.ExecX10(sDevice , "OFF")
Else
hs.WriteLog("StandbyKiller", "Device wordt niet uitgeschakeld, conditie niet gehaald: "& hs.DeviceValue(sDevice) & "Watt is groter dan " & sNiveau & "Watt")
End If
End If
End Sub