Tuesday, April 15, 2008
[prototype11_air quality data to flexinol]
PBASIC CODE:
'{$STAMP BS2}
'{$PBASIC 2.5}
check VAR Byte
proIn VAR Byte
Main:
DO
check = IN3
proIn = IN10
SERIN 16, 16780, [proIn]
HIGH 2
PAUSE 2000
LOW 2
PAUSE 2000
IF proIn > 13 THEN
IF proIn <>
' DO WHILE proIn > 13
HIGH 2
PAUSE 9000
LOW 2
'LOOP
'END
ENDIF
ENDIF
LOOP
END
Linked the air quality data to the output, but the Flexinol shipment hasn't come in, so below is a movie of what we think the end product might look like.
Labels: [cm:sd], flexinol, pbasic