Living Architecture Fall 2008 Columbia

jon w. turkula, john m. becker, wayne c.


this is a test to show that the led sytem we developed previously can be used with the flexinol wire...
' PingTest.bs2
' {$STAMP BS2}
' {$PBASIC 2.5}
time VAR Word
DO
PULSOUT 15, 5
PULSIN 15, 1, time
time = time ** 2251 DEBUG CR, "Distance = ", DEC4 time, " cm"
PAUSE 20
IF time < 0015 THEN HIGH 2
PAUSE 10
IF time = 0015 THEN LOW 2
PAUSE 10
IF time > 0015 THEN LOW 2
PAUSE 10
LOOP