Wednesday, April 18, 2007
Two sensors/two outputs
Here is our circuit and our code for having two sensors - each controlling a different output.
'{$STAMP BS2}'
{$PBASIC 2.5}
PIR PIN 0
PIR2 PIN 15
counter VAR Byte
Main:
DO
IF PIR = 1 THEN
counter = counter + 1
HIGH 2
DEBUG HOME, "TRIPPED...", DEC3 counter
DO : LOOP UNTIL PIR = 0
DEBUG HOME, "CLEARED...", DEC3 counter
LOW 2
ENDIF
IF PIR2 = 1 THEN
counter = counter +1
HIGH 9
DEBUG HOME, "TRIPPED2...", DEC3 counter
DO : LOOP UNTIL PIR2 = 0
DEBUG HOME, "CLEARED2...", DEC3 counter
LOW 9
ENDIF
LOOP