Query time from last motion/no motion?

[tonlof]

Can I make an inquiry about how long it was not been any movement from a given sensor? I want the room lights to be switched off after eg 10 minutes after no motion activated

[rmasonjr]

If you use doomotion's Custom Action Code (CAC), you can do this like so.

In the ON code:

PHP Code:

if(hs.isOffByName("Master Bedroom Robs Closet Light")) then
    hs.execX10ByName("Master Bedroom Robs Closet Light","on")
end if
dm.newNoMotionDelayedEvent("Delayed Event Master Bedroom Robs Closet Light", "Master Bedroom Robs Closet Light:off",2) 


This will turn off my closet light after 2 mins

In the OFF code - just to ensure the light gets turned off:

PHP Code:

If Sensor.FailSafeInvoked Then
   hs.execX10ByName("Master Bedroom Robs Closet Light","off")
end If 


Hope this helps...

[tonlof]

Thank you, I have tried to paste the code but get error.

PHP Code:

2009-08-23 23:06:23  - Error - Script compile error: '#End Region' must be preceded by a matching '#Region'.on line 20
2009-08-23 23:06:25  - SCR - Option Strict Offimports Schedulerimports SystemPublic Module scriptcode20#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin    <System.ContextStaticAttribute()> Public WithEvents hs As Scheduler.hsapplication    <System.ContextStaticAttribute()> Public WithEvents hsp As scheduler.hsp    <System.ContextStaticAttribute()> Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionDim dm As Object = hs.Plugin("DooMotion")Dim Sensor As Object = dm.GetSensorByRef(4998)#End Region' NOTE: Do NOT change the names of the Sensor procedures. #Region " Custom Action Code for Motion Entre "Sub Sensor7867_On(ByVal Ref As Integer)'Script_Initialize(Ref)'add code here'Script_Terminate()End SubSub Sensor7867_Off(ByVal Ref As Integer)'Script_Initialize(Ref)'add code here'Script_Terminate()End SubSub Test(ByVal parms As Object)If DateDiff("n", Sensor.LastOn, Now) > Sensor.NormalElapsedTime Then hs.speak "Someone is at the front door, Motion at the front door" End SubEnd Module 


I have also tried by housecode

PHP Code:

if(hs.isOff("A8")) then 
    hs.execX10("A8","on") 
end if 
dm.newNoMotionDelayedEvent("Delayed Event Master Bedroom Robs Closet Light", "A8:off",2) 


[rmasonjr]

Sorry - forgot to mention that I use VB.NET Scripting. In the Options pane, select "Use VB.NET Scripting"

[tonlof]

I have tried it with and without...

[tonlof]

With vb.net I get this error.

PHP Code:

2009-08-24 00:13:49  - SCR - Option Strict Offimports Schedulerimports SystemPublic Module scriptcode10#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin     Public WithEvents hs As Scheduler.hsapplication     Public WithEvents hsp As scheduler.hsp     Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionDim dm As Object = hs.Plugin("DooMotion")Dim Sensor As Object = dm.GetSensorByRef(4998)'#End Region' NOTE: Do NOT change the names of the Sensor procedures. '#Region " Custom Action Code for Motion test_ljus "Sub Sensor9616_On(Ref)'End SubSub Sensor9616_Off(Ref)'End SubSub Test(ByVal parms As Object)if(hs.isOffByName("Master Bedroom Robs Closet Light")) then    hs.execX10ByName("Master Bedroom Robs Closet Light","on")end ifdm.newNoMotionDelayedEvent("Delayed Event Master Bedroom Robs Closet Light", "Master Bedroom Robs Closet Light:off",2)  End SubEnd Module
2009-08-24 00:13:49  - Error - Script compile error: Statement cannot appear within a method body. End of method assumed.on line 29 


Do I need any referense in settings.ini?