Living Architecture-SP06-Pratt

TIP: MULTIPLE SENSOR CODE

Here is code to make 8 sensors and 8 Flexinol wires work simultaneously:

'{$STAMP BS2}
'{$PBASIC 2.5}

DIR0 = 1
S0 VAR Bit
DIR2 = 1
S2 VAR Bit
DIR4 = 1
S4 VAR Bit
DIR6 = 1
S6 VAR Bit
DIR8 = 1
S8 VAR Bit
DIR10 = 1
S10 VAR Bit
DIR12 = 1
S12 VAR Bit
DIR14 = 1
S14 VAR Bit

Start:
FREQOUT 0,1,38500 'sends out signal to IR LED
S0 = IN0 'Stores reply
DEBUG 0,"SENSOR0 = ",DEC S0, CR 'displays the
results
IF S0 = 0 THEN
HIGH 1
ENDIF

FREQOUT 2,1,38500 'sends out signal to IR LED
S2 = IN2 'Stores reply
DEBUG 2,"SENSOR2 = ",DEC S2, CR 'displays the
results
IF S2 = 0 THEN
HIGH 3
ENDIF

FREQOUT 4,1,38500 'sends out signal to IR LED
S4 = IN4 'Stores reply
DEBUG 4,"SENSOR4 = ",DEC S4, CR 'displays the
results
IF S4 = 0 THEN
HIGH 5
ENDIF

FREQOUT 6,1,38500 'sends out signal to IR LED
S6 = IN6 'Stores reply
DEBUG 6,"SENSOR6 = ",DEC S6, CR 'displays the
results
IF S6 = 0 THEN
HIGH 7
ENDIF

FREQOUT 8,1,38500 'sends out signal to IR LED
S8 = IN8 'Stores reply
DEBUG 8,"SENSOR8 = ",DEC S8, CR 'displays the
results
IF S8 = 0 THEN
HIGH 9
ENDIF

FREQOUT 10,1,38500 'sends out signal to IR LED
S10 = IN10 'Stores reply
DEBUG 10,"SENSOR10 = ",DEC S10, CR 'displays
the results
IF S10 = 0 THEN
HIGH 11
ENDIF

FREQOUT 12,1,38500 'sends out signal to IR LED
S12 = IN12 'Stores reply
DEBUG 12,"SENSOR12 = ",DEC S12, CR 'displays
the results
IF S12 = 0 THEN
HIGH 13
ENDIF

FREQOUT 14,1,38500 'sends out signal to IR LED
S14 = IN14 'Stores reply
DEBUG 14,"SENSOR14 = ",DEC S14, CR 'displays
the results
IF S14 = 0 THEN
HIGH 15
ENDIF

PAUSE 1000
LOW 1
LOW 3
LOW 5
LOW 7
LOW 9
LOW 11
LOW 13
LOW 15

GOTO Start