'CR800 Series Datalogger
'TTS Stage testing program
'Druck 1230-1830 pressure transducer, cable lengths up to 40 feet
'Read pressure transducer read 15 sec.
'Connect differential pressure transducer to DIFF 1 and EX1
'Assign the values to "stageMultiplier" and "stageOffset" in Sub Initialize for testing
'	then Save & Compile program before sending to data logger, or
'  leave as defaults for calibration (stageMultiplier = 1 stageOffset = 0)
'Modification to "stageOffset" can be made from the Numeric window on the fly
'Stage is recorded as "stage"
'Paste averageStage (millivolts) into the numberic window for calibration and regress
'  averageStage vs sensor depth (feet or meters)
'Revisions to "stageOffset" should be entered into the TTS program, then Save & Compile
'	TTS program before sending to data logger
'Date: 4/30/2007
'Program author: R. Eads, RiverMetrics LLC

'\\\\\\\\\\\\\\\\\\\\\\\\\ DECLARATIONS /////////////////////////

PreserveVariables
Public averageStage
Public i
Public n
Public rawStage
Public stageMultiplier
Public totalStage
Public stage
Public stageOffset

'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////

DataTable(OutTable,1,-1)
   Sample(1,stage,FP2)
EndTable

'\\\\\\\\\\\\\\\\\\\\\\\\\ SUBROUTINES //////////////////////////

Sub Initialize
   'Initialize stage variables
   stageMultiplier = 1    '<========    Enter multiplier for pressure transducer
   stageOffset = 0     '<========    Enter offset for pressure transducer
EndSub

Sub ReadStage
   'Get stage from Druck 1830 pressure transducer
   'Initialize total stage = 0
   totalStage = 0
   'Initialize stage loop counter
   n = 0
   'Loop to read anelapse_time = 0
   For i = 1 to 150
      n = n + 1
      BRFull(rawStage, 1,Autorange, 1, VX1, 1, 2500, True, True,800, 250, 1, 0)
      totalStage = rawStage + totalStage
   Next i
   averageStage = totalStage / n
   'Convert millivolts to feet or meters of stage,
   stage = stageOffset + averageStage * stageMultiplier
EndSub

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ MAIN PROGRAM ////////////////////////////

BeginProg
   SequentialMode
   Initialize
   Scan(15,Sec, 3, 0)
      readStage
      CallTable OutTable
   NextScan
EndProg

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ END MAIN PROGRAM ////////////////////////////