Shop OBEX P1 Docs P2 Docs Learn Events
Help with flexi force kit program — Parallax Forums

Help with flexi force kit program

bb Posts: 1
edited 2004-11-29 20:34 in BASIC Stamp
Hello !
Can anyone help me modify the program for attaching more then one sensors to BS 2 pins ?

' Flexiforce StampDAQ.bs2
' Example with the Flexiforce sensor and StampDAQ
' {$STAMP BS2}
' {$PBASIC 2.5}
'
[noparse][[/noparse] Declarations ]
rawForce VAR word ' Stores raw output
sensorPin CON 15 ' Flexiforce sensor circuit
sPin CON 16 ' Serial transmit pin
Baud CON 84 ' 9600, 8-bit, no polarity, true
'
[noparse][[/noparse] Main Routine ]
Initialize:
PAUSE 1000
SEROUT sPin,Baud,[noparse][[/noparse]CR] 'prep StampDAQ buffer
SEROUT sPin,Baud,[noparse][[/noparse]CR,"LABEL,rawForce",CR]
'Label column with rawForce
SEROUT sPin,Baud,[noparse][[/noparse]"CLEARDATA",CR] 'Clear all data
Display:
HIGH 15 'Discharge capacitor
PAUSE 2
RCTIME sensorPin,1,rawForce 'Measure R/C charge time
SEROUT sPin,Baud,[noparse][[/noparse]"DATA,rawForce,", DEC rawForce,CR]
'Send data to StampDAQ
GOTO Display

Thanks,
Bhargav.
Sign In or Register to comment.