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: , ,


Comments: Post a Comment



<< Home

This page is powered by Blogger. Isn't yours?