Inmoov's Sensors

bhouston

Canada
Jump to end

Other robots from Synthiam community

DJ's Teddy Ruxpin Robot V1

DJ's Teddy Ruxpin Robot V1

DJ Sures built this Teddy Ruxpin Robot from a toy that he purchased off Ebay. The toy was broken, so he didnt feel bad...
Cardboardhacker's Emotions V1

Cardboardhacker's Emotions V1

Hey there! Here is my latest project. This time its an emotion generating project. Through speech recognition...
Jstarne1's Meet Squeegee , The Flooring Mopping Robot , Modified Radioshack Robie Jr

Jstarne1's Meet Squeegee , The Flooring Mopping Robot ,...

This is a simple project that hopefully I wont over complicate. Since he Squeegee needs to get as close to furniture and...

ARC Pro

Upgrade to ARC Pro

Experience early access to the latest features and updates. You'll have everything that is needed to unleash your robot's potential.

#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