![Campbell CR9000 Instruction Manual Download Page 191](http://html1.mh-extra.com/html/campbell/cr9000/cr9000_instruction-manual_489197191.webp)
Section 9. Program Control Instructions
9-5
'\\\\\\\\\\\\\\\\\\\\\\\ TIMING CONSTANTS ///////////////////////
Const RATE = 100
'Scan interval number
Const RUNITS = 0
'Scan interval units (uSecs)
'\\\\\\\\\\\\\\\\\\\\\\\ BRIDGE CONSTANTS ///////////////////////
'________________________ Bridge Block #1 ________________________
Const BRNG1 = 4
'Block #1 measurement range (200 mV)
Const BREP1 = 2
'Block #1 repetitions
Const BEXCIT1 = 5000
'Block #1 excitation mVolts
Const BDLY1 = 0
'Block #1 Delay time (usecs)
Const BINT1 = 0
'Block #1 integration time (usecs)
Const BMULT1 = 1
'Block #1 default multiplier
Const BOSET1 = 0
'Block #1 default offset
Dim BBlk1(BREP1)
'Block #1 dimensioned source
Units BBlk1ZeroMv = mVperV
'Block #1 default units (mVperV)
Units BBlk1 = G_Force
'Block #1 default units (G_Force)
'\\\\\\\\\\\\\\\\\\ ALIASES & PUBLIC VARIABLES //////////////////
Alias BBlk1(1) = Accel_1
'Assign alias name Accel_1 to BBlk1(1)
Alias BBlk1(2) = Accel_2
'Assign alias name Accel_2 to BBlk1(2)
Public Flag(8)
'General Purpose Flags
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////
'Table #1 - Name,TrigVar,Records
DataTable(ACCEL,True,100000) 'Trigger, 100000 records
DataInterval(0,0,0,1000) 'Synchronous, 1000 lapses
'_______________________ Bridge Blocks _______________________
Sample (BREP1,BBlk1(),FP2)
'2 Reps,Source,Res
EndTable
'End of table ACCEL
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////
BeginProg
'Program begins here
Do
'Loop to allow scan on flag repeat
Do Until Flag(1): Loop
'Loop Until Flag(1) is pressed
Scan(RATE,RUNITS,1,10000)
'Scan 100(uSecs), buffer 10,000 records to CPU S-RAM
'________________________ Bridge Blocks ________________________
BrFull(BBlk1(),BREP1,BRNG1,5,1,6,7,1,BEXCIT1,0,0,BDLY1,BINT1,BMULT1,BOSET1)
‘________________________ Trigger Sequence_____________________
BeginBurstTrigger
'Begin burst scan
BrFull(BBlk1(),1,BRNG1,5,1,6,7,1,BEXCIT1,0,0,BDLY1,BINT1,BMULT1,BOSET1)
‘ Note that BBlk1(1) is measured again here for evaluation as trigger.
EndBurstTrigger(BBlk1(1)>=5,8000) 'Stop scan 8000 scans after trigger
CallTable ACCEL
‘Store every record in the burst buffer.
Next Scan
'Loop up for the next scan
Flag(1) = False 'Set Flag(1) back to false
Loop
'Loop up to allow scan on flag
EndProg
‘Program ends here
Summary of Contents for CR9000
Page 6: ...CR9000 Table of Contents iv This is a blank page ...
Page 22: ...CR9000 Overview OV 16 This is a blank page ...
Page 26: ...Section 1 Installation 1 4 CR9000 FIGURE 1 1 3 CR9000 Battery Pack ...
Page 72: ...Section 3 CR9000 Measurement Details 3 28 This is a blank page ...
Page 88: ...Section 5 Program Declarations 5 6 This is a blank page ...
Page 217: ...This is a blank page ...