Inmoov's Sensors

bhouston

Canada
Skip to comments   Jump To End

Thanks Rich, Richard R, and Luis for helping me with the scripting to get these sensors working.

By — Last update

Other robots from Synthiam community

Toymaker's My Little Dewey (Drone 1) New Home

Toymaker's My Little Dewey (Drone 1) New Home

What does an Inventor/Roboticist have in his design studio? - Well for me its my (Alexa controlled) favourite Movie...
Tmesserschmidt's Topsie The Easy To Build Robot Dog

Tmesserschmidt's Topsie The Easy To Build Robot Dog

Topsie is the dog robot (quadruped) that anyone can build. Building it takes no special skills. No 3D printing needed...
Leversofpower's Cutting My Teeth. The Floor Crawler

Leversofpower's Cutting My Teeth. The Floor Crawler

I had been so exclusively focused on the pre-design work for the Wowee Roboquad hack and waiting on parts to arrive from...

ARC Pro

Upgrade to ARC Pro

Become a Synthiam ARC Pro subscriber to unleash the power of easy and powerful robot programming

#1  

Bob, you're inmoov is great! I am so jealous. well a little jealous. I am still in the process of getting everything working on my inmoov. I'm not up to your speed yet but might be one day. I don't think as great as yours though.

thanks for sharing your videos are awesome.

:)

#2  

@Bob, Very nice! I want to get this ability into my full size B9. Can you post the script for this and the link to any threads on how you installed these sensors?

Canada
#3  

Here's the script for the Ultrasonic Sensors. I used two HC-SR04 Ultrasonic Sensors from EZ-Robot. They come with a voltage regulator which make them easy hook up. In the script you specify which ports the Ping and the Echo are attached to. I'm using 2 EZBv4's and have have them connected to Board #1. The servo movements in the script turn the head of the robot.


  
$proxclose = 65 # Change for minimum distance

:start

$proxsenseL = GetPing(1.d0,1.d1)

IF($proxsenseL < $proxclose)
ControlCommand("Personality Generator", PauseOn)

servo(d1,112)
servospeed(d1,2)
sleep(1500)
ControlCommand("Script Manager", ScriptStart, "Look for a human")
servo(d1,160)
sleep(4000)
servo(d1,112)
ControlCommand("Personality Generator", PauseOff)

sleep(9000)
endif

$proxsenseR = GetPing(1.d2,1.d3) 
if($proxsenseR < $proxclose)
ControlCommand("Personality Generator", PauseOn)

servo(d1,112)
servospeed(d1,2)
sleep(100)
ControlCommand("Script Manager", ScriptStart, "Look for a human")

servo(d1,50)
sleep(4000)
servo(d1,112)
sleep(9000)
 ControlCommand("Personality Generator", PauseOff)

endif

Goto(start)

Let me know if you have any questions.

Login to post a comment