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?

[Jim Doolittle]

There appears to be conditions where the plug-in is not doing an adequate job of converting to/from VBScript to VB.NET. If you post your DooMotion.vb file in the DATA\DooMotion folder, I can take a look and correct it manually and perhaps get a clue as to what went wrong with the conversion process.

[tonlof]

Thanks Jim, I did not found the file under DATA\DooMotion but under scripts.
I have only one sensor setup that trying to run script.

[Jim Doolittle]

Looks like there is an unwanted apostrophe in front of an "End Region" which explains the error. Shutdown HomeSeer (actually you could remove DooMotion as a plug-in and then add it back when done). Open DooMotion.vb with Windows Notepad and hold down the Ctrl key and press G. Enter line 25 and then remove the apostrophe and save. See if that works. If so, I figured that it was a easy fix because they tend to be hard to find.

[tonlof]

Thanks, but that did now help. I tried to copy the small sample file and start over but I still get error.

PHP Code:

2009-08-28 21:28:18  - SCR - Option Strict Offimports Schedulerimports SystemPublic Module scriptcode6#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  test "Sub Sensor4023_On(ByVal Ref As Integer)'Script_Initialize(Ref)'add code here'Script_Terminate()End SubSub Sensor4023_Off(ByVal Ref As Integer)'Script_Initialize(Ref)'add code here'Script_Terminate()End SubSub Test(ByVal parms As Object)if(hs.isOffByName("Kitchen Plan1 Kok_Matbord")) then    hs.execX10ByName("Kitchen Plan1 Kok_Matbord","on")end ifdm.newNoMotionDelayedEvent("Delayed Kitchen Plan1 Kok_Matbord", "Kitchen Plan1 Kok_Matbord:off",2)End SubEnd Module
2009-08-28 21:28:18  - Error - Script compile error: '#End Region' must be preceded by a matching '#Region'.on line 20 


PHP Code:

#Region " DooMotion generated code - Do not modify code within this Region "

Dim dm As Object
Dim Sensor As Object

Sub Script_Initialize(ByVal Ref As Integer)
dm = hs.Plugin("DooMotion")
Sensor = dm.GetSensorByRef(Ref)
End Sub

Sub Script_Terminate()
Sensor = Nothing
dm = Nothing
End Sub

#End Region

' If you wish to call any of the following functions from external scripts,
' make sure that Script_Initialize(Ref) is the first line of the procedure
' and  a Script_Terminate() is the last line of the procedure.
'Note: that the Script_Initialize and Script_Terminate
' functions will be ignored within the Custom Action Code editor.

#Region " Custom Functions Code - Keep custom functions within this Region"
#End Region

' NOTE: Do NOT change the names of the Sensor procedures. 

#Region " Custom Action Code for  test "

Sub Sensor4023_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor4023_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub
#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 Sub

Sub Sensor7867_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Motion Toalett "

Sub Sensor1062_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor1062_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Motion Koket "

Sub Sensor4998_On(ByVal Ref As Integer)
Script_Initialize(Ref)
if(hs.isOffByName("Kitchen Plan1 Kok_Matbord")) then
    hs.execX10ByName("Kitchen Plan1 Kok_Matbord","on")
end if
dm.newNoMotionDelayedEvent("Delayed Kitchen Plan1 Kok_Matbord", "Kitchen Plan1 Kok_Matbord:off",2)
Script_Terminate()
End Sub

Sub Sensor4998_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Motion Vardagsrum "

Sub Sensor6737_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor6737_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Motion Vardagsrum "

Sub Sensor8332_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor8332_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Dusk Entre_ljus "

Sub Sensor9616_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor9616_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Dusk Toalett_Ljus "

Sub Sensor1992_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor1992_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Dusk Koket_Ljus "

Sub Sensor2221_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor2221_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Dusk Vardagsrum_Plan2 "

Sub Sensor9711_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor9711_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Dusk Vardagsrum_Ljus "

Sub Sensor7830_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor7830_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region

#Region " Custom Action Code for Bluetooth BT Device HTC73 "

Sub Sensor5658_On(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

Sub Sensor5658_Off(ByVal Ref As Integer)
'Script_Initialize(Ref)
'add code here
'Script_Terminate()
End Sub

#End Region 


[tonlof]

The web interface damaging the code with invisible characters, now I have been using the editor for the action code from the icon and then it started to work immediately

[czerpi]

can you tell me how did you solve that problem. I have simillar one ;(
Pawel

2009-11-24 19:21:03 ~!~Error~!~Script compile error: Character is not valid.on line -3
2009-11-24 19:21:03 ~!~SCR~!~Option Strict OffImports Systâę.IĎ�‡Im

[Jim Doolittle]

Post your DooMotion.txt or DooMotion.vb file in the DATA\DooMotion folder and I will corrrect it.