Short Range Proximity Sensor

---

Short Range Proximity Sensor Program

This program disoplays the analog output

from the sensor as a bar gauge.

The sensors analog outpout goes to pin a1.

tmt3Nndt

---

prog_vars =

d/line_length 0

prog_vars.

prog_start =

pclear

print "Program Start"

-- Setup the pin as an analog input.

gvr a1 0 100

ptl 10 10 ^ts=24^ "Distance"

-- Add the quit button

pb 150 20 ^n=Quit^p=exitprog^

prog_start.

prog_loop =

-- main program loop

-- Invert the line so it goes up as the value does.

sub -1 /a1 -> /line_length

-- Plot the sensor value

pvl 50 175 /line_length ^lw=10^

-- Display the value

ptl 45 175 ^id=dis^ts=24^ "/a1"

-- Short delay

d250

prog_loop.

prog_stop =

ptl 10 10 ^ts=24^ "Bye"

prog_stop.