Page 1 of 1
Toggle scriptje met RFXCOM icoontjes
Posted: Tue Mar 17, 2009 6:41 pm
by 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?
Toggle scriptje met RFXCOM icoontjes
Posted: Tue Mar 17, 2009 7:45 pm
by b_weijenberg
probeer eens met:
SetDeviceValue(parm,3) voor open
SetDeviceValue(parm,2) voor dicht
Toggle scriptje met RFXCOM icoontjes
Posted: Tue Mar 17, 2009 9:28 pm
by Bastiaan
Ha Bert, bingo die doet het beter. Dank!
Toggle scriptje met RFXCOM icoontjes
Posted: Sat Mar 21, 2009 10:42 pm
by 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
Toggle scriptje met RFXCOM icoontjes
Posted: Sun Mar 22, 2009 8:19 am
by 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)
Toggle scriptje met RFXCOM icoontjes
Posted: Sun Mar 22, 2009 11:37 am
by 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
Toggle scriptje met RFXCOM icoontjes
Posted: Sun Mar 22, 2009 12:29 pm
by 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
Toggle scriptje met RFXCOM icoontjes
Posted: Sun Mar 22, 2009 12:57 pm
by TANE
Bert,
Wordt hiermee ook de lastchange gelijk bijgewerkt?
Toggle scriptje met RFXCOM icoontjes
Posted: Sun Mar 22, 2009 1:41 pm
by b_weijenberg
yep
Toggle scriptje met RFXCOM icoontjes
Posted: Mon Mar 23, 2009 11:40 pm
by 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
Toggle scriptje met RFXCOM icoontjes
Posted: Wed Mar 25, 2009 9:31 pm
by Bastiaan
Ik zie even niet zo gauw waar de verschillen zitten met mijn oorspronkelijke maar dit werkt inderdaad prima met 13.0.0.5