Campbell CS650, Руководство пользователя

Страница: 47 / 56

Appendix B. Example Programs
B-3
Dim LCount
Public CS650(12,6)
DataTable (DatoutCS650,1,-1)
DataInterval (0,60,Min,2)
Average (72,CS650(),IEEE4,False)
EndTable
BeginProg
Scan (15,Min,0,0)
PortSet(2,1)
'Turn AM16/32 Multiplexer On
Delay(0,150,mSec)
LCount=1
SubScan(0,uSec,12)
PulsePort(3,10000)
'Switch to next AM16/32 channel
SW12 (1 ) 'Apply power to CS650
Delay (0,3,Sec) 'Wait three seconds for probe to warm up
SDI12Recorder (CS650(LCount,1),1,0,"M!",1.0,0)
LCount=1
SW12 (0)
'Remove power from CS650
NextSubScan
PortSet(2,0)
'Turn AM16/32 Multiplexer Off
Delay(0,150,mSec)
CallTable DatoutCS650
'Call Data Table
NextScan
EndProg
B.2 CR200X with Three CS650 Probes
This CRBasic example program measures three CS650 probe on a CR200X every
15 minutes, storing hourly averages of volumetric water content, electrical
conductivity, soil temperature, permittivity, period average, and voltage ratio. The
CS650s have SDI-12 addresses of 0, 1, and 2, respectively. Sensors are powered
with the SWBatt channel, which requires a 3 second warm-up time. Alternately,
the red wires may be connected to B for continuous power which would
reduce measurement time. Wiring for the example is shown in Table
B-4 .
Assignment of aliases and units is not shown in this example.
Table B-4. CR200(X) Wiring for Example Program
CR200(X)
CS650’s (Wiring same for all)
SW Battery Red
C1/SDI-12 Green
G channels Black, Orange, Clear
Public CS650(18)
DataTable (CS650,1,-1)
DataInterval (0,60,Min)
Average (18,CS650(),False)
EndTable
BeginProg
Scan (15,Min)
SWBatt (1 ) 'Apply power to CS650's
Delay (3,sec) 'Warm-up time of 3 seconds