
CS420-L and CS425-L Pressure Transducers
'Switch to next transducer, delay 10000 use before measurement
BrFull6W(WellDepth(LoopCount),1,mv5000,mV50,1,Vx1,
1,5000,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.3 CR5000 Program
'CR5000
'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)
PortSet (2 ,1 ) 'Turn Control Port 2 on
Delay (0,10,mSec)'Wait 10msec
PortSet(2,0) 'Turn Control Port 2 off -- this sequence
'provides a short 5V pulse that advances the
'mux to the next relay
BrFull6W(WellDepth(LoopCount),1,mV5000,mV50,1,Vx1,1,
5000,True,True,0,250,Mult(LoopCount),Offset(LoopCount))
18
Comentarios a estos manuales