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
Commentaires sur ces manuels