Welcome to Synthiam!

The easiest way to program the most powerful robots. Use technologies by leading industry experts. ARC is a free-to-use robot programming software that makes servo automation, computer vision, autonomous navigation, and artificial intelligence easy.

Get Started
Canada
Asked — Edited
Resolved Resolved by Rich!

Trying To Get A Pir Working

I feel like a blind man wandering around in the bush at night hoping to find my way home!

So here's where I'm at with this project, I've put some comments in so you can see what I'm trying to accomplish. Any and all help will be appreciated.

Code:



:loop
#timer to power down
$x = 0
RepeatUntil($x = 30)
$x++
Sleep(1000)

EndRepeatUntil
repeatUntil(1=2)

#what to do when timer gets to 30

set(D2,OFF)
#$x = GetDigital(D2)
ControlCommand("Script Manager", ScriptStart, "power down")#do this once

sleep(5000) 
WaitForChange(GetDigital(D2))
sleep(5000)

#do this when the PIR is triggered after "power down"

$motion=getDigital(D2)
IF($motion=1) #pin went high
ControlCommand("Script Manager", ScriptStart, "Power up")#do this once
endif

#do this if PIR is triggered anytime after it has powered up

$motion=getdigital(D2)
if($motion=1)
#stay powered up - need something here - what?
sleep(10000)
EndIf

# if Pir is not triggered in 30 sec start the timer again

If($x = 30)
GoTo(loop)
endif
EndRepeatUntil





Thanks

PS. I would pay money to go to a course somewhere to learn EZ-Robot scripting!


ARC Pro

Upgrade to ARC Pro

Harnessing the power of ARC Pro, your robot can be more than just a simple automated machine.

Load More ...
United Kingdom
#6  
Power down is easy

Code:

ReleaseAll(0)


Presuming it's on board 0. If on another board change the 0. If multiple boards put each board on a new line i.e.

Code:

ReleaseAll(0)
ReleaseAll(1)
ReleaseAll(2)


If you only want to power down a specific servo use

Code:

Release(D0)


Or multiple servos

Code:

Release(D0)
Release(D1)
Release(D2)


Or multiple servos across multiple boards

Code:

Release(0.D0)
Release(1.D3)
Release(2.D6)
Release(2.D7)
Release(4.D20)
#7  
To further what @Rich said... Once you release your servos you will have to reset servo speed if you are using anything other than full speed....
Canada
#8  
Thanks, makes sense. So now I have been playing around and I switched the PIR input port from "D2" to "ADC7". I have changed the references to the port in the script, now when to script runs, it skips the "LowPowerMonitoring" and goes directly the "Power Up" script.
It worked fine when using "D2", I changed ports because all of my digital ports are in use.
#9  
@bhouston... Digital will return a value of 1 or 0 (true or false)... whereas 8 bit analog will be something like 0 - 255... So when reading analog you should assume the PIR has been activated if the adc7 value is greater than say something like 100... The number may vary so you will need to test this...
Canada
#10  
@Richard R, I have tried several different settings - none make a difference. Any other thoughts?
#11  
Can you try changing part of your code your code to this?

Code:


# Check the status of the analog port
$PIR = GetADC(ADC7)
# Check if it is high or low and take action
IF($PIR >100)
 # Motion detected, return to start
 Goto(start)
EndIf
Canada
#12  
@Richard R, Tried that at different values - no change
United Kingdom
#13  
Can the PIR work on the analogue ports? Check it's datasheet (post it's datasheet if unsure). Bearing in mind that the Analogue ports are 3.3v regulated which may not be enough voltage to power the PIR or may cause problems if there isn't enough current available.

If not, you may need to build a small circuit to make it work for ADC.
#14  
Try this in a separate script and see what values $pir are giving you... wave your hand in front of the pir detector and see what happens to the value of $PIR

Code:


repeatuntil(1=2)
$PIR = GetADC(ADC7)
print($PIR)
sleep(3000) #give time for the PIR to rearm
endrepeatuntil
United Kingdom
#15  
Or add the ADC graph, value or meter control;)
#16  
@Rich... bite me LOL.... Forgot about the analog value control. That's much easier... I have some PIRs from Parallax Inc and I have them working on both analog and digital ports... Saying that however, @bhouston does not have the same PIRs so you may be right, the ones he has may not work via analog...
Canada
#17  
I plugged in a Parallex PIR and watched it on the "Read ADC" and the "ADC Graph".When on low it shows .35V and some chatter on the bottom line of the graph.
When it is triggered it goes to 2.5V and up the the line second from the top on the graph.

I have tried all sorts of different setting and nothing makes a difference. The"Monitoring" script goes to the "LowPowerMonitoring" script and then immediately to the "Power up" script . I have put in a delay in the "LowPowerMonitoring" script, to give the PIR time to reset. That did not make a difference, either.
#18  
Use the ADC value control instead...That will give you the actual value instead of a reference voltage... This way you can see at what point (actual value) where the PIR is triggered... Then use that value in your code.... Also run the monitoring code within the script and look at the script flow... see at what line (and if there is an error) the script decides to jump to power up script. This might help you figure out why it is bypassing some of your code... Another tip is to add print() statements here and there so you can check values as the code runs....
Canada
#19  
@Richard R
When the PIR is low the value is 25 when it is triggered it goes to 195.I set the high to be >190. I put "print()" in both the monitor script and the lowpowermonitoring script and if reads >25 in both.
As usual still not working.

Watching the LowPowermonitor script run, it runs through the script - does not "WaitForChange" Prints >25
United Kingdom
#20  
If the value is fluctuating while low (as I believe you said it is "chattering" on the low end) then WaitForChange() wont be waiting long as the value will be changing and the script will be assuming the chatter is motion being detected.

You could do it slightly differently and add in another script that's always running which checks the ADC value and if it's above a certain value it sets a variable, if below it changes the variable... i.e.

Code:


:loop
#Fetch ADC value
$PIR = GetADC(ADC7)

If($PIR > 200)
  $motion = 1
Else
  $motion = 0
EndIF

Sleep(100)
Goto(loop)


When the PIR is triggered it will set $motion to 1. When it's not then $motion is reset to 0

You can then use $motion in your original script to replace the GetDigital() command
Canada
#21  
Thanks Rich,
I applied your new script and it senses the change as does the "Monitoring script" but nothing happens. I must have something out of place in the "monitoring script" below;

Code:


# Monitor for movement for 30 seconds

# Set a lable for the start
:start

# Reset the counter
$Monitor_Counter = 0

# Repeat
RepeatUntil($Monitor_Counter = 30)

# Increase the counter by 1
$Monitor_Counter++

# Check for detection on PIR - since we need to check 5 times per second use repeat

# checking counter needed
$Monitor_Check_Counter = 0

RepeatUntil($Monitor_Check_Counter = 5)
# Add 1 to the check counter
$Monitor_Check_Counter++

# Check the status of the digital port
# Check the status of the ADC port
#$PIR = GetDigital(D2)
$PIR = GetADC(ADC7)

# Check if it is high or low and take action
IF($PIR > 195)

 $motion = 1
Else
 $motion = 0
#EndIF
 # Motion detected, return to start
 Goto(start)
Endif
# Note - no else or elseif required since nothing happens if motion isnt detected
print($PIR)
# Wait a while to save system resources
Sleep(200)
EndRepeatUntil

# 1 second has passed by this point
# repeat 30 times
EndRepeatUntil



# 30 seconds passed - Enter low power plus monitoring mode
ControlCommand("Script Manager", ScriptStart, "LowPowerMonitoring")

# End the script
HALT()
Canada
#22  
Hi Rich, when you get a chance, could you have a look at this for me.
Thanks
United Kingdom
#23  
Yeah, sorry run out of time yesterday.

Code:


# Monitor for movement for 30 seconds

# Set a lable for the start
:start

# Reset the counter
$Monitor_Counter = 0

# Repeat
RepeatUntil($Monitor_Counter = 30)

# Increase the counter by 1
$Monitor_Counter++

# Check for detection on PIR - since we need to check 5 times per second use repeat

# checking counter needed
$Monitor_Check_Counter = 0

RepeatUntil($Monitor_Check_Counter = 5)
# Add 1 to the check counter
$Monitor_Check_Counter++

# Check the status of the ADC port
$PIR = GetADC(ADC7)

# Check if it is high or low and take action
# Convert ADC to simple high/low
IF($PIR > 195)
$motion = 1
Else
$motion = 0
EndIF

IF($motion = 1)
# Motion detected, return to start
Goto(start)
Endif
# Note - no else or elseif required since nothing happens if motion isnt detected
print($PIR)
# Wait a while to save system resources
Sleep(200)
EndRepeatUntil

# 1 second has passed by this point
# repeat 30 times
EndRepeatUntil



# 30 seconds passed - Enter low power plus monitoring mode
ControlCommand("Script Manager", ScriptStart, "LowPowerMonitoring")

# End the script
HALT()


This is all from memory and without ARC. It looked like you had it detecting motion when there was none and vice versa. This was causing it to reset the timer and start again.

You could remove the whole converting it to 0 or 1 though, it's pretty redundant.

Code:

# Monitor for movement for 30 seconds

# Set a lable for the start
:start

# Reset the counter
$Monitor_Counter = 0

# Repeat
RepeatUntil($Monitor_Counter = 30)

# Increase the counter by 1
$Monitor_Counter++

# Check for detection on PIR - since we need to check 5 times per second use repeat

# checking counter needed
$Monitor_Check_Counter = 0

RepeatUntil($Monitor_Check_Counter = 5)
# Add 1 to the check counter
$Monitor_Check_Counter++

# Check the status of the ADC port
$PIR = GetADC(ADC7)


IF($PIR > 195)
# Motion detected, return to start
Goto(start)
Endif
# Note - no else or elseif required since nothing happens if motion isnt detected
print($PIR)
# Wait a while to save system resources
Sleep(200)
EndRepeatUntil

# 1 second has passed by this point
# repeat 30 times
EndRepeatUntil



# 30 seconds passed - Enter low power plus monitoring mode
ControlCommand("Script Manager", ScriptStart, "LowPowerMonitoring")

# End the script
HALT()
Canada
#24  
Thanks Rich, I made those changes, however, it did not work as expected. I noticed that the "LowPowerMonitor" script ran thru to the end and stopped, so I added in a "GoTo" command and I worked, BUT now everytime the PIR is triggered it runs thru the "PowerUp" command. After Power Up it returns to the "monitor" script though.

Code:


# Enter your low power mode commands here

sayezb("i am powering down")
:start
# Once in low power mode wait for a change on the PIR ADC port
WaitForChange(GetADC(ADC7))
$PIR = GetADC(ADC7)
If($PIR > 180)
$motion = 1
#print($PIR)

# Power up robot
Sleep(2000)
ControlCommand("Script Manager", ScriptStart, "Power Up")
EndIf
Goto(start)
# And end this script
#HALT()

Thanks, we are getting closer. Thanks for the nice comments you said about my project.
Canada
#25  
@ Rich - I got it working! I put in an If and a ElseIf and it's working!
Here's what I ended up with;

Code:


# Enter your low power mode commands here

sayezb("i am powering down")
:start

# Once in low power mode wait for a change on the PIR ADC port
#WaitForChange(GetADC(ADC7))
$PIR = GetADC(ADC7)
If($PIR > 180)
$motion = 1
#print($PIR)

# Power up robot
Sleep(2000)
ControlCommand("Script Manager", ScriptStart, "Power Up")

EndIf
sleep(3000)
If($motion = 1)
ControlCommand("Script Manager", ScriptStart, "Monitor")
elseif($motion = 0)
Goto(start)
Endif


# And end this script
HALT()


Thanks again for everyone's help.
Standby though, I'm working on another script, so you know I'll be calling on the community for help.
Login to post a comment