Canada
Asked — Edited

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

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

PRO
USA
#1  

@bhouston,

Try this:


$close = 40

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

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

if ($Center &lt; $close)
  print(1)
ELSE
  Print(2)
endif

Sleep(2000)

Goto(start)
#--- loop block ----

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(&quot;Distance: &quot; + $distance)

Sleep(1000)
Goto(loop)

#3  

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