-
Notifications
You must be signed in to change notification settings - Fork 0
/
RainShetlerTDR.CR1
78 lines (75 loc) · 5.33 KB
/
RainShetlerTDR.CR1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
'Program to control soil moisture and temperature measurements for the rainshelter
'Version 0.1
Dim LCount
Public CS650(192,6)'192 CS650's each recording 6 variables (using the "M3!" command)
Public BattV
Public PTemp_C
DataTable (DatoutCS650,1,-1) 'DataTable(Name, TrigVar, Size) See page 128 of CR1000 manual for description
DataInterval (0,15,Min,2) 'DataInterval(TintoInt, Interval, Units, Lapses) See page 129 of CR1000 manual for description
Average(1,BattV,FP2,False)
Average(1,PTemp_C,FP2,False)
Sample (1152,CS650(),IEEE4) 'Sample(Reps, Source, DataType)
EndTable
BeginProg
SequentialMode
Scan (15,Min,0,0)
Battery(BattV) 'Default Datalogger Battery Voltage measurement 'BattV'
PanelTemp(PTemp_C,_60Hz) 'Default Wiring Panel Temperature measurement 'PTemp_C'
PortSet(1,1) 'Turn MUX1 and associated CS650's ON!!. Connect multiplexor reset and relay for 650's power to com port 1
Delay(0,3,Sec) 'Allow CS650's to warm up
LCount=1
SubScan(0,mSec,32)' SubScan(SubInterval, Units, Count) Count is the number no. of TDRs Leaving 650 mSec between each scan to allow SDI-12 function to excicute
PulsePort(8,10000) 'Switch to next AM16/32 channel. Connect multiplexor clock to Com port 8
SDI12Recorder (CS650(LCount,1),7,0,"M3!",1.0,0) 'SDI12Recorder(Dest, SDIPort, SDIAddress, SDICommand, Multiplier, Offset) All CS650's have an SDI address of 0 and all the sensor leads from MUXs are bused into C7
LCount=LCount+1
NextSubScan
PortSet(1,0) 'Turn MUX1 and associated CS650's OFF!!
Delay(0,150,mSec) 'Wait a bit between multiplexors
PortSet(2,1) 'Turn MUX2 and associated CS650's ON!!. Connect multiplexor reset and relay for 650's power to com port 2
Delay(0,3,Sec) 'Allow CS650's to warm up
SubScan(0,mSec,32)' SubScan(SubInterval, Units, Count) Count is the number no. of TDRs
PulsePort(8,10000) 'Switch to next AM16/32 channel. Connect multiplexor clock to Com port 8
SDI12Recorder (CS650(LCount,1),7,0,"M3!",1.0,0) 'SDI12Recorder(Dest, SDIPort, SDIAddress, SDICommand, Multiplier, Offset) All CS650's have an SDI address of 0 and all the sensor leads from MUXs are bused into C7
LCount=LCount+1
NextSubScan
PortSet(2,0) 'Turn MUX2 and associated CS650's OFF!!
Delay(0,150,mSec) 'Wait a bit between multiplexors
PortSet(3,1) 'Turn MUX3 and associated CS650's ON!!. Connect multiplexor reset and relay for 650's power to com port 3
Delay(0,3,Sec) 'Allow CS650's to warm up
SubScan(0,mSec,32)' SubScan(SubInterval, Units, Count) Count is the number no. of TDRs
PulsePort(8,10000) 'Switch to next AM16/32 channel. Connect multiplexor clock to Com port 8
SDI12Recorder (CS650(LCount,1),7,0,"M3!",1.0,0) 'SDI12Recorder(Dest, SDIPort, SDIAddress, SDICommand, Multiplier, Offset) All CS650's have an SDI address of 0 and all the sensor leads from MUXs are bused into C7
LCount=LCount+1
NextSubScan
PortSet(3,0) 'Turn MUX3 and associated CS650's OFF!!
Delay(0,150,mSec) 'Wait a bit between multiplexors
PortSet(4,1) 'Turn MUX4 and associated CS650's ON!!. Connect multiplexor reset and relay for 650's power to com port 4
Delay(0,3,Sec) 'Allow CS650's to warm up
SubScan(650,mSec,32)' SubScan(SubInterval, Units, Count) Count is the number no. of TDRs
PulsePort(8,10000) 'Switch to next AM16/32 channel. Connect multiplexor clock to Com port 8
SDI12Recorder (CS650(LCount,1),7,0,"M3!",1.0,0) 'SDI12Recorder(Dest, SDIPort, SDIAddress, SDICommand, Multiplier, Offset) All CS650's have an SDI address of 0 and all the sensor leads from MUXs are bused into C7
LCount=LCount+1
NextSubScan
PortSet(4,0) 'Turn MUX4 and associated CS650's OFF!!
Delay(0,150,mSec) 'Wait a bit between multiplexors
PortSet(5,1) 'Turn MUX5 and associated CS650's ON!!. Connect multiplexor reset and relay for 650's power to com port 5
Delay(0,3,Sec) 'Allow CS650's to warm up
SubScan(650,mSec,32)' SubScan(SubInterval, Units, Count) Count is the number no. of TDRs
PulsePort(8,10000) 'Switch to next AM16/32 channel. Connect multiplexor clock to Com port 8
SDI12Recorder (CS650(LCount,1),7,0,"M3!",1.0,0) 'SDI12Recorder(Dest, SDIPort, SDIAddress, SDICommand, Multiplier, Offset) All CS650's have an SDI address of 0 and all the sensor leads from MUXs are bused into C7
LCount=LCount+1
NextSubScan
PortSet(5,0) 'Turn MUX5 and associated CS650's OFF!!
Delay(0,150,mSec) 'Wait a bit between multiplexors
PortSet(6,1) 'Turn MUX6 and associated CS650's ON!!. Connect multiplexor reset and relay for 650's power to com port 6
Delay(0,3,Sec) 'Allow CS650's to warm up
SubScan(650,mSec,32)' SubScan(SubInterval, Units, Count) Count is the number no. of TDRs
PulsePort(8,10000) 'Switch to next AM16/32 channel. Connect multiplexor clock to Com port 8
SDI12Recorder (CS650(LCount,1),7,0,"M3!",1.0,0) 'SDI12Recorder(Dest, SDIPort, SDIAddress, SDICommand, Multiplier, Offset) All CS650's have an SDI address of 0 and all the sensor leads from MUXs are bused into C7
LCount=LCount+1
NextSubScan
PortSet(6,0) 'Turn MUX6 and associated CS650's OFF!!
Delay(0,150,mSec) 'Wait a bit between multiplexors
CallTable DatoutCS650 'Call Data Table
NextScan
EndProg