Wednesday, September 26, 2007
Script for photoresister
This is the actual script for one LED light working with Photoresister
' {$STAMP BS2}
' {$PBASIC 2.5}
TIME VAR Word
DEBUG "!AMAX 1250", CR,
"!TMAX 25", CR,
"!TMIN 0", CR,
"!SHIFT ON", CR,
"!RSET", CR
DO
HIGH 2
PAUSE 100
RCTIME 2, 1, TIME
DEBUG DEC TIME, CR
LOOP
' {$STAMP BS2}
' {$PBASIC 2.5}
TIME VAR Word
DEBUG "!AMAX 1250", CR,
"!TMAX 25", CR,
"!TMIN 0", CR,
"!SHIFT ON", CR,
"!RSET", CR
DO
HIGH 2
PAUSE 100
RCTIME 2, 1, TIME
DEBUG DEC TIME, CR
LOOP
Labels: smartskin
# posted by karl : 11:48 PM
