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

Oakmot's Chloe Project

Oakmot's Chloe Project

Hello everyone. Ill keep my introduction short: My forum name is OakMot. Its the name of a book. Im 24. Ive loved robots...
Jphillipsnj's Inmoov Project

Jphillipsnj's Inmoov Project

Using EZ Robot for controller.
Ezang's New Hand Progress, 3D Printing, Glyphs , Ultrasonic, Sharp IR Radar, Follow Autonomous, Wii, QR, Augmented Realty- EZB4, L298N And Other Things :-)

Ezang's New Hand Progress, 3D Printing, Glyphs , Ultrasonic,...

I am using ARC software with 2 iotinys controller, 2 EzB4 controllers - 3 EZ-ROBOT 1300 lithium batteries for the four...

ARC Pro

Upgrade to ARC Pro

ARC Pro is your passport to a world of endless possibilities in robot programming, waiting for you to explore.

#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