The following program was done by me, kindly check the program code and tell the mistake if any
'CR1000
'Created by Short Cut (3.2)
'Declare Variables and Units
Public BattV
Public PTemp_C
Public CS65X(3)
Public CS65X_2(3)
Public CS65X_3(3)
Public CS65X_4(3)
Alias CS65X(1)=VWC
Alias CS65X(2)=EC
Alias CS65X(3)=T
Alias CS65X_2(1)=VWC_2
Alias CS65X_2(2)=EC_2
Alias CS65X_2(3)=T_2
Alias CS65X_3(1)=VWC_3
Alias CS65X_3(2)=EC_3
Alias CS65X_3(3)=T_3
Alias CS65X_4(1)=VWC_4
Alias CS65X_4(2)=EC_4
Alias CS65X_4(3)=T_4
Units BattV=Volts
Units PTemp_C=Deg C
Units VWC=m^3/m^3
Units EC=dS/m
Units T=Deg C
Units VWC_2=m^3/m^3
Units EC_2=dS/m
Units T_2=Deg C
Units VWC_3=m^3/m^3
Units EC_3=dS/m
Units T_3=Deg C
Units VWC_4=m^3/m^3
Units EC_4=dS/m
Units T_4=Deg C
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,10,Min,10)
Average(1,VWC,FP2,False)
Average(1,EC,FP2,False)
Average(1,T,FP2,False)
Average(1,VWC_2,FP2,False)
Average(1,EC_2,FP2,False)
Average(1,T_2,FP2,False)
Average(1,VWC_3,FP2,False)
Average(1,EC_3,FP2,False)
Average(1,T_3,FP2,False)
Average(1,VWC_4,FP2,False)
Average(1,EC_4,FP2,False)
Average(1,T_4,FP2,False)
EndTable
DataTable(Table2,True,-1)
DataInterval(0,60,Min,10)
Minimum(1,BattV,FP2,False,False)
Average(1,VWC,FP2,False)
Average(1,EC,FP2,False)
Average(1,T,FP2,False)
Average(1,VWC_2,FP2,False)
Average(1,EC_2,FP2,False)
Average(1,T_2,FP2,False)
Average(1,VWC_3,FP2,False)
Average(1,EC_3,FP2,False)
Average(1,T_3,FP2,False)
Average(1,VWC_4,FP2,False)
Average(1,EC_4,FP2,False)
Average(1,T_4,FP2,False)
EndTable
'Main Program
BeginProg
'Main Scan
Scan(10,Sec,1,0)
'Default CR1000 Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default CR1000 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'CS650/655 Water Content Reflectometer measurements 'VWC', 'EC', and 'T'
SDI12Recorder(CS65X(),7,"0","M!",1,0)
'CS650/655 Water Content Reflectometer measurements 'VWC_2', 'EC_2', and 'T_2'
If TimeIntoInterval(0,1,Min) Then
SDI12Recorder(CS65X_2(),7,"1","M!",1,0)
EndIf
'CS650/655 Water Content Reflectometer measurements
'VWC_3', 'EC_3', and 'T_3'
If TimeIntoInterval(0,2,Min) Then
SDI12Recorder(CS65X_3(),7,"2","M!",1,0)
EndIf
'CS650/655 Water Content Reflectometer measurements
'VWC_4', 'EC_4', and 'T_4'
If TimeIntoInterval(0,3,Min) Then
SDI12Recorder(CS65X_4(),7,"3","M!",1,0)
EndIf
'Call Data Tables and Store Data
CallTable Table1
CallTable Table2
NextScan
EndProg