Toggle scriptje met RFXCOM icoontjes

[Bastiaan]

Ik dacht even snel een button te maken in HStouch die mijn gordijnen open en dicht deed.
Om ruimte te sparen maakte ik daarom 1 knop met een toggle scriptje.
Helaas zie ik nu dat mijn icoontjes /status value verdwijnt.
Ik denk dat een andere manier van aanroepen dit voorkomt.
Wie weet de oplossing?

Nu gebruik ik:

Sub Main(ByVal parm As string)

If hs.DeviceStatus(parm)= 2 then
hs.ExecX10 (parm,"Off",0,0)
'opening;
else
hs.ExecX10 (parm,"On",0,0)
'closing;
end if
hs.setdevicelastchange(parm,now)
End Sub

Ik kan het oplossen met een extra; hs.SetDeviceString(parm,"Closed")
maar dat moet toch niet nodig zijn?

[b_weijenberg]

probeer eens met:
SetDeviceValue(parm,3) voor open
SetDeviceValue(parm,2) voor dicht

[Bastiaan]

Ha Bert, bingo die doet het beter. Dank!

[TANE]

Bert, Bastiaan,
Wat mis ik?

Optional parameters:("Main","G10")


Sub Main(ByVal parm As string)

If hs.DeviceStatus(parm)= 2 then
hs.SetDeviceValue(parm,3)
'opening;
else
hs.SetDeviceValue(parm,2)
'closing;
end if
hs.setdevicelastchange(parm,now)
End Sub

[Bastiaan]

Enver, ik ben weer terug naar mijn oude script. HEt bovenstaande werkte niet betrouwbaar en gaf X10 error in de log file (met de laatste beta van HS)

[TANE]

Bastiaan bedankt ik heb het werkend..

voor de juiste status aanpassing in HS zelf een kleine correctie
van toepassing op RFXCOM HS-plugin > 12.35
voor oudere versies script van Bastiaan gebruiken.


Sub Main(ByVal parm As string)
If hs.DeviceStatus(parm)= 2 then
'opening;
hs.ExecX10 (parm,"Off",0,0)
hs.SetDeviceString(parm,"Opened")
else
'closing;
hs.ExecX10 (parm,"On",0,0)
hs.SetDeviceString(parm,"Closed")
end if

hs.setdevicelastchange(parm,now)

End Sub

[b_weijenberg]

download de beta plugin versie 13.0.0.2. Dit script moet dan werken:

Code: Select all

Sub Main(ByVal parm As String)
    If hs.DeviceValue(parm) = 2 Then
        hs.SetDeviceValue(parm, 3) 'open
    Else
        hs.SetDeviceValue(parm, 2) 'closed
    End If
End Sub

[TANE]

Bert,
Wordt hiermee ook de lastchange gelijk bijgewerkt?

[b_weijenberg]

yep

[b_weijenberg]

Er zit een probleem in 13.0.0.2 waardoor commando's verkeerd verwerkt worden in de plug-in. Dit is opgelost in versie 13.0.0.5 die als beta beschikbaar is.

En gebruik dit script voor je gordijnen:

Code: Select all

Sub Main(ByVal parm As String)
    If hs.DeviceValue(parm) = 3 Then 'if closed
        hs.ExecX10(parm, "on", 0, 0) 'opened
        hs.SetDeviceValue(parm, 2)
    Else
        hs.ExecX10(parm, "off", 0, 0) 'closed
        hs.SetDeviceValue(parm, 3)
    End If
End Sub

[Bastiaan]

Ik zie even niet zo gauw waar de verschillen zitten met mijn oorspronkelijke maar dit werkt inderdaad prima met 13.0.0.5