Wednesday, October 10, 2007
Photoresister Input, Flexinol Output
http://www.youtube.com/watch?v=uLOEOu_pJiA
Coding
' {$STAMP BS2}
' {$PBASIC 2.5}
TIME VAR Word
DEBUG "And so it begins..", CR,
DO
HIGH 2
PAUSE 100
RCTIME 2, 2, TIME
DEBUG DEC TIME, CR
IF TIME=1THEN
HIGH 4
DEBUG "TRIPPED", CR
PAUSE 4000
ENDIF
PAUSE 1000
LOW 4
LOOP
Coding
' {$STAMP BS2}
' {$PBASIC 2.5}
TIME VAR Word
DEBUG "And so it begins..", CR,
DO
HIGH 2
PAUSE 100
RCTIME 2, 2, TIME
DEBUG DEC TIME, CR
IF TIME=1THEN
HIGH 4
DEBUG "TRIPPED", CR
PAUSE 4000
ENDIF
PAUSE 1000
LOW 4
LOOP
Labels: smartskin
# posted by Swsteven : 9:03 PM
