2 cr3000 program – Campbell Scientific CS420 and CS425 PDCR 1830-8388 Pressure Transducer User Manual
Page 21
CS420-L and CS425-L Pressure Transducers
PortSet (1 ,1 )' Activate AM16/32
LoopCount = 1 'Reset loop counter
SubScan
(0,Sec,4)
PulsePort
(2
,10000)
'Switch to next transducer, delay 10000 us before measurement
BrFull6W(WellDepth(LoopCount),1,mV2500,mV25,1,
Vx1,1,
2500,True,True,0,250,Mult(LoopCount),Offset(LoopCount))
LoopCount = LoopCount + 1
NextSubScan
PortSet (1 ,0)' Deactivate AM16/32
CallTable
WellData
NextScan
EndProg
8.1.3.2 CR3000 Program
'CR3000
'For use with an AM16/32 in a 6 wire configuration, with four sensors.
Public WellDepth(4)
Dim LoopCount
Dim Mult(4)
Dim Offset(4)
DataTable (WellData,1,-1)
DataInterval
(0,30,Sec,10)
Sample
(4,WellDepth(),FP2)
Maximum
(4,WellDepth(),FP2,False,True)
Minimum
(4,WellDepth(),FP2,False,True)
EndTable
BeginProg
Scan
(5,Sec,0,0)
'Load multiplier and offset for each individual sensor
Mult(1)
=
2.2975
Mult(2)
=
1.0560
Mult(3)
=
3.0001
Mult(4)
=
1.9821
Offset(1)
=
.36781
Offset(2)
=
.4011
Offset(3)
=
.2103
Offset(4)
=
1.0029
PortSet (1 ,1 )' Activate AM16/32
LoopCount = 1 'Reset loop counter
SubScan
(0,Sec,4)
PulsePort
(2
,10000)
17