Saturday, October 07, 2006

Group 7 _ Prototype 3 _ Stan, Sara, Orama, Lola



Resolved last weeks problems and we were able to wire Flexinol to respond to the Pressure Sensor "Flexiforce"

Code Provided by Group from Last Year , - (Amy Campos, Nazli et al. )

' Flexiforce Simple.bs2
' Displays R/C Discharge Time in BASIC Stamp DEBUG Window
' {$STAMP BS2}
' {$PBASIC 2.5}
' {$PORT COM15}

rawForce VAR Word '(sets up variable FOR when pressure is applied TO sensor)
sensorPin CON 15 '(port that sensor is plugged into)

Measure:
HIGH sensorPin '(activates sensor)
PAUSE 2
RCTIME sensorPin,1,rawForce
DEBUG HOME, "Flexiforce raw output = ", DEC rawForce,CR
IF rawForce > 0 THEN
HIGH 2 '(activates flexinol wire)
ENDIF
PAUSE 1000 '(reaction time FOR flexinol wire)
LOW 2
GOTO Measure



















Comments: Post a Comment



<< Home

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