Campbell ST350, Instruction Manual

Page: 30 / 50

Section 8. Datalogger Programming
CallTable (MFGTRUSS)
NextScan
EndProg
'***** Program End *****
8.2 CR5000 Example
'CR5000 Example using Strain Transducer from BDI ST350
'CR5000 Program created using PC9000 (5.3)
SequentialMode
'Forces program to as program is written
Public TEMP
Public BattVolt
'Battery voltage
Units BattVolt = Volts 'Battery voltage units
Dim I 'Declare I as a variable
Dim Count 'Declare Count as a variable
Dim TRef 'Declare Reference Temp variable
Public BLK(2), MBLK(2), OffsetVar(2), Flag(8), ZeroMode
Alias BLK(1) = ST350_1 'Assign alias name "B1231" to BLK(1)
Alias BLK(2) = ST350_2 'Assign alias name "B1232" to BLK(2)
Public loaded as Boolean
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////
DataTable
(MFGTRUSS,True,-1)
DataInterval (0,1,4,100) 'DataInterval( TintoInt, Interval, Units, Lapses)
Sample (1,TEMP,FP2) 'Sample( Reps, Source, DataType )
'Sampling Temperature by the gages
Sample (2,BLK(),IEEE4) 'Sample Transducers
Sample (1,BattVolt,FP2)
EndTable 'End of table MFGTRUSS
'--------------- Store zero values from Sub Zero8 ---------------
DataTable
(CalTable,NewFieldCal,50)
SampleFieldCal 'Stores the zeroing values
EndTable
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////
BeginProg
'Program begins here MainSequence
MBLK(1) = 503.1 'Multiplier for Transducer Calibration and Calculations "ST350_1"
MBLK(2) = 508.1 'Multiplier for Transducer Calibration and Calculations "ST350_2"
Loaded = LoadFieldCal(0) 'Needed for FieldCal Instruction
Scan(100,mSec,10,0) 'Scan( Interval, Units, BufferOption, Count )
'Scan once every 100 milli-seconds
If Flag(8) = True Then
zeromode = 1
Flag(8) = False
EndIf
Battery (BattVolt 'Battery voltage measurement
PanelTemp (TRef,200) 'RefTemp,Integrate
'TCDiff( Dest, Reps, Range, DiffChan, TCType, TRef, RevDiff, SettlingTime, Integ, Mult, Offset )
TCDiff (TEMP,1,30,1,0,TRef,1,4000,250,1,0)
8-2