Inmoov's Sensors

bhouston

Canada
Jump to end

Other robots from Synthiam community

Djandco's Djandco's Wall.E

Djandco's Djandco's Wall.E

Hi, This is my take on the EZ-B Wall.e While I wait for my kit to arrive I thought I would share some ideas. The first...
DJ's Tomy Omnibot

DJ's Tomy Omnibot

This was probably the funnest robot I have created yet. It is a wicked platform with a lot of room to grow. Ive been...
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

Join the ARC Pro community and gain access to a wealth of resources and support, ensuring your robot's success.

#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