Instruction manual

Appendix B. Example Programs
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=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 Battery + 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
B-3