flexiforce simple.bs2

来自「Parallax, Inc-StoreFront Product Detail 」· BS2 代码 · 共 18 行

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

' -----[ Declarations ]----------------------------------------------------

rawForce        VAR     word            ' Stores raw output
sensorPin       CON     15              ' Flexiforce sensor circuit

' -----[ Main Routine ]----------------------------------------------------

Measure:
  HIGH sensorPin                        ' Discharge the capacitor
  PAUSE 2                               
  RCTIME sensorPin,1,rawForce           ' Measure RC charge time 
  DEBUG Home, "Flexiforce raw output = ", dec rawForce,CR      
GOTO Measure