Touch Path icon Touch Path — Sketch paths with finger or mouse and set turn/move speeds; interactive, educational demo of timing-based, sensorless robot navigation and limits. Try it →
Canada
YouTube
Asked — Edited
1 Participant

Why Doesn't This Script Work Any More?

I have just switched over to the new 3 port Ultrasonic Sensors and this script will no longer work. It's the one I used for the 4 port Ultrasonic Sensor. The script always Prints 2 no matter how close I get an object to the sensor.


$Center = GetPing(D11,D11)

$close = 40

:start
if($Center < $close)
print(1)
else
Print(2)
endif

Sleep(2000)
Goto(start)

I have tried a 4 port sensor and it won't work either. Was there a change that I missed?


ARC Pro

Upgrade to ARC Pro

Stay at the forefront of robot programming innovation with ARC Pro, ensuring your robot is always equipped with the latest advancements.

Author Avatar
PRO
USA
#1  

@bhouston,

Try this:


$close = 40

#--- loop block ----
:start

#inside the loop
$Center = GetPing(D11,D11)

if ($Center < $close)
  print(1)
ELSE
  Print(2)
endif

Sleep(2000)

Goto(start)
#--- loop block ----
Author Avatar
PRO
USA
#2  

I don't have a 3 wire Ping, the 4 wire is working.


:loop

# D21=Trigger=White
# D22=Echo=Green
$distance=GetPing(D21,D22)

print("Distance: " + $distance)

Sleep(1000)
Goto(loop)
#3  

Thanks Pedro, that worked. Copying and pasting got me on that one.