Living Architecture Fall 2007 Pratt

Labels: smartskin

Labels: smartskin

Each input has its individual output. The green LED is for the photoresister and the Blue for the infrared. The relationship created between the two is something like a "system override". This is created purely by the prolonging of the pause in the coding. When the infrared sensor is tripped the photoresistor stops for 6 sec as seen in the coding below. After the "UPDATE_DISPLAY_INFARED_A:" has finished sensing whatever tripped it then the photoresister has the availability to sense shading or light again.

The pause which is longer in the infrared coding "UPDATE_DISPLAY_INFARED_A:" can be cut shorter and the coding in the "UPDATE_DISPLAY_A:" could be prolonged to create the reverse effect. The utilization of the pause creates an intended dominance of one sensor over the other.


Coding:

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



PIR PIN 0
PHOTO VAR Word
INFARED VAR Word

DEBUG "!BOOOM", CR

MAIN:
DO
GOSUB GET_RC_TIME_PHOTORESISTOR
GOSUB GET_FREQOUT_INFARED
GOSUB DELAY_PHOTORESISTOR
GOSUB DELAY_INFARED
GOSUB UPDATE_DISPLAY_A
GOSUB UPDATE_DISPLAY_INFARED_A
LOOP







GET_RC_TIME_PHOTORESISTOR:
HIGH 2
PAUSE 100
RCTIME 2, 2, PHOTO
DEBUG DEC PHOTO, CR
RETURN

GET_FREQOUT_INFARED:
HIGH 3
FREQOUT 3,2,38500
INFARED=IN0
DEBUG DEC INFARED, CR
RETURN

DELAY_PHOTORESISTOR:
PAUSE PHOTO
RETURN

DELAY_INFARED:
PAUSE INFARED
RETURN

UPDATE_DISPLAY_A:
IF PHOTO=1THEN
HIGH 14
DEBUG "TRIPZORD photo", CR
ENDIF
PAUSE 100
LOW 14
RETURN


UPDATE_DISPLAY_INFARED_A:
IF INFARED=1 THEN
HIGH 13
DEBUG "TRIPPED infrared", CR
PAUSE 6000
LOW 13
PAUSE 100
ENDIF
RETURN

Labels: smartskin

Labels: smartskin

http://www.youtube.com/watch?v=uLOEOu_pJiA


Coding


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

TIME VAR Word

DEBUG "And so it begins..", CR,

DO

HIGH 2
PAUSE 100
RCTIME 2, 2, TIME
DEBUG DEC TIME, CR
IF TIME=1THEN
HIGH 4
DEBUG "TRIPPED", CR
PAUSE 4000
ENDIF
PAUSE 1000
LOW 4

LOOP

Labels: smartskin

http://www.parallax.com/html_pages/downloads/software/software_basic_stamp.asp

It's toward the end of the page.

"StampPlot Lite Version: 1.7 graphing utility is a digital strip-chart recorder that lets you visual and log to file data from a BASIC Stamp module."

You could try the Pro also.

Labels: smartskin

This week our group focused mainly on altering our output along with experimenting with the coding. First off we tried out our new flexinol which had a .01" diameter. We spent a while double checking our wire configuration along with the simple coding and yet no motion. We tested the .006" flexinol prior so I'm not quite sure what the problem could be. Next we did some testing on the "2 input/4 output" coding to see if we could simultaneously work the input of the infrared sensor and the photoresistor. Again, no luck. Either the photoresister or the infrared would essentially override the other. After this we exchanged the LED output for the flexinol and it worked! Pretty easy really. If you want, you can use the same configuration on the bread board from the first assignment that introduces flexinol. Plug in the photoresistor and alter the coding a little bit and you're done. Here's the Coding we used:

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



PIR PIN 2
TIME VAR Word

DEBUG "STARTIN!"

MAIN:
DO
GOSUB GET_RC_TIME_PHOTORESISTOR
GOSUB DELAY_PHOTORESISTOR
GOSUB UPDATE_DISPLAY_A
LOOP


GET_RC_TIME_PHOTORESISTOR:
HIGH 2
PAUSE 100
RCTIME 2, 1, TIME
DEBUG DEC TIME, CR
RETURN

UPDATE_DISPLAY_A:
IF TIME=7THEN
DEBUG "TRIPZORD 2", CR
HIGH 4
PAUSE 4000
ENDIF
LOW 4

RETURN

DELAY_PHOTORESISTOR:
PAUSE TIME
RETURN

_______________________________________________________

I personally like the GoSub's for organization... Makes mistakes much easier to catch. Especially if you use Debugs within them. If the .01" Diameter flexinol wire had worked our next step would have been to exchange all the LED's from out video 1 input 3 output to Flexinol wire. This would have been a great test this to see if the transistor or the voltage output would have been sufficient for such a procedure. I believe the coding and wiring on the breadboard would most definitely not be a problem.

Labels: smartskin

Labels: smartskin

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

TIME VAR Word

DEBUG "!AMAX 1250", CR,
"!TMAX 25", CR,
"!TMIN 0", CR,
"!SHIFT ON", CR,
"!RSET", CR

MAIN:

DO
GOSUB GET_RC_TIME
GOSUB DELAY
GOSUB UPDATE_DISPLAY_A
GOSUB UPDATE_DISPLAY_B
GOSUB UPDATE_DISPLAY_C
LOOP







GET_RC_TIME:
HIGH 2
PAUSE 2
RCTIME 2, 1, TIME
DEBUG DEC TIME, CR
RETURN

DELAY:
PAUSE TIME
RETURN

UPDATE_DISPLAY_A:
IF TIME=2THEN
HIGH 14
DEBUG "TRIPZORD 2", CR
ENDIF
PAUSE 100
LOW 14
RETURN

UPDATE_DISPLAY_B:
IF TIME=6THEN
HIGH 13
DEBUG "TRIPZORD 6", CR
ENDIF
PAUSE 100
LOW 13
RETURN

UPDATE_DISPLAY_C:
IF TIME=10THEN
HIGH 13
HIGH 14
DEBUG "TRIPZORD BOTHZORS", CR
ENDIF
PAUSE 100
LOW 13
LOW 14
RETURN

Labels: smartskin

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

Labels: smartskin

Labels: smartskin

Labels: smartskin

Labels: smartskin

Labels: smartskin

The first photo of the sensor is a light sensor and the second a temperature prob. We beleive that these two sensors used together could form a system that could effeciently regulate sun exposure and temperature limits, pottentially creating a smart skin. The photos are a before and after the sensor trip.

Labels: smartskin