Our full technical support staff does not monitor this forum. If you need assistance from a member of our staff, please submit your question from the Ask a Question page.


Log in or register to post/reply in the forum.

TCAV and HFP on CR1000


Jdavid Aug 26, 2015 03:30 PM

Hi

This is my first time setting up a logger and I am having difficulty adding two instruments. I used the CRbasic editor in loggernet to build a program for what I need but there was no option to add 2 TCAV instruments or two HFP instruments. The basic editor worked for the instruments I do have but I am not sure how to add the TCAV or the HFP. Can someone help me and let me know where I add these instrument The program from the editor is below

Thanks


'Declare Variables and Units
Dim WindCorr
Public BattV
Public PTemp_C
Public Rain_mm
Public WS_ms
Public WindDir
Public SlrW
Public SlrMJ
Public AirTC
Public RH
Public BP_kPa
Public NR_Wm2
Public CNR_Wm2
Public CS65X(6)
Public CS65X_2(6)
Public CS65X_3(6)
Public CS65X_4(6)
Public CS65X_5(6)
Public CS65X_6(6)
Public CS65X_7(6)
Public CS65X_8(6)

Alias CS65X(1)=VWC
Alias CS65X(2)=EC
Alias CS65X(3)=T
Alias CS65X(4)=P
Alias CS65X(5)=PA
Alias CS65X(6)=VR
Alias CS65X_2(1)=VWC_2
Alias CS65X_2(2)=EC_2
Alias CS65X_2(3)=T_2
Alias CS65X_2(4)=P_2
Alias CS65X_2(5)=PA_2
Alias CS65X_2(6)=VR_2
Alias CS65X_3(1)=VWC_3
Alias CS65X_3(2)=EC_3
Alias CS65X_3(3)=T_3
Alias CS65X_3(4)=P_3
Alias CS65X_3(5)=PA_3
Alias CS65X_3(6)=VR_3
Alias CS65X_4(1)=VWC_4
Alias CS65X_4(2)=EC_4
Alias CS65X_4(3)=T_4
Alias CS65X_4(4)=P_4
Alias CS65X_4(5)=PA_4
Alias CS65X_4(6)=VR_4
Alias CS65X_5(1)=VWC_5
Alias CS65X_5(2)=EC_5
Alias CS65X_5(3)=T_5
Alias CS65X_5(4)=P_5
Alias CS65X_5(5)=PA_5
Alias CS65X_5(6)=VR_5
Alias CS65X_6(1)=VWC_6
Alias CS65X_6(2)=EC_6
Alias CS65X_6(3)=T_6
Alias CS65X_6(4)=P_6
Alias CS65X_6(5)=PA_6
Alias CS65X_6(6)=VR_6
Alias CS65X_7(1)=VWC_7
Alias CS65X_7(2)=EC_7
Alias CS65X_7(3)=T_7
Alias CS65X_7(4)=P_7
Alias CS65X_7(5)=PA_7
Alias CS65X_7(6)=VR_7
Alias CS65X_8(1)=VWC_8
Alias CS65X_8(2)=EC_8
Alias CS65X_8(3)=T_8
Alias CS65X_8(4)=P_8
Alias CS65X_8(5)=PA_8
Alias CS65X_8(6)=VR_8

Units BattV=Volts
Units PTemp_C=Deg C
Units Rain_mm=mm
Units WS_ms=meters/second
Units WindDir=degrees
Units SlrW=W/m^2
Units SlrMJ=MJ/m^2
Units AirTC=Deg C
Units RH=%
Units BP_kPa=kPa
Units NR_Wm2=W/m^2
Units CNR_Wm2=Watts/meter^2
Units VWC=m^3/m^3
Units EC=dS/m
Units T=Deg C
Units P=unitless
Units PA=nSec
Units VR=unitless
Units VWC_2=m^3/m^3
Units EC_2=dS/m
Units T_2=Deg C
Units P_2=unitless
Units PA_2=nSec
Units VR_2=unitless
Units VWC_3=m^3/m^3
Units EC_3=dS/m
Units T_3=Deg C
Units P_3=unitless
Units PA_3=nSec
Units VR_3=unitless
Units VWC_4=m^3/m^3
Units EC_4=dS/m
Units T_4=Deg C
Units P_4=unitless
Units PA_4=nSec
Units VR_4=unitless
Units VWC_5=m^3/m^3
Units EC_5=dS/m
Units T_5=Deg C
Units P_5=unitless
Units PA_5=nSec
Units VR_5=unitless
Units VWC_6=m^3/m^3
Units EC_6=dS/m
Units T_6=Deg C
Units P_6=unitless
Units PA_6=nSec
Units VR_6=unitless
Units VWC_7=m^3/m^3
Units EC_7=dS/m
Units T_7=Deg C
Units P_7=unitless
Units PA_7=nSec
Units VR_7=unitless
Units VWC_8=m^3/m^3
Units EC_8=dS/m
Units T_8=Deg C
Units P_8=unitless
Units PA_8=nSec
Units VR_8=unitless


'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,30,Min,10)
'The following TableFile instruction causes new
'data to be copied to an optional SC115 Flash
'Memory Drive the moment it is plugged into the CS
'I/O port of the datalogger.
'This mode of operation is referred to as Data
'Collection Mode (see the SC115 manual).
'This TableFile instruction has no effect if an
'SC115 is never plugged into the datalogger.

TableFile("USB:"+Status.SerialNumber+"Table1",8,-1,0,0,Hr,0,0)
Average(1,BattV,FP2,False)
Average(1,WS_ms,FP2,False)
Average(1,SlrW,FP2,False)
Average(1,AirTC,FP2,False)
Average(1,BP_kPa,FP2,False)
Average(1,NR_Wm2,FP2,False)
Average(1,CNR_Wm2,FP2,False)
Average(1,VWC,FP2,False)
Average(1,EC,FP2,False)
Average(1,T,FP2,False)
Average(1,P,FP2,False)
Average(1,PA,FP2,False)
Average(1,VR,FP2,False)
Average(1,VWC_2,FP2,False)
Average(1,EC_2,FP2,False)
Average(1,T_2,FP2,False)
Average(1,P_2,FP2,False)
Average(1,PA_2,FP2,False)
Average(1,VR_2,FP2,False)
Average(1,VWC_3,FP2,False)
Average(1,EC_3,FP2,False)
Average(1,T_3,FP2,False)
Average(1,P_3,FP2,False)
Average(1,PA_3,FP2,False)
Average(1,VR_3,FP2,False)
Average(1,VWC_4,FP2,False)
Average(1,EC_4,FP2,False)
Average(1,T_4,FP2,False)
Average(1,P_4,FP2,False)
Average(1,PA_4,FP2,False)
Average(1,VR_4,FP2,False)
Average(1,VWC_5,FP2,False)
Average(1,EC_5,FP2,False)
Average(1,T_5,FP2,False)
Average(1,P_5,FP2,False)
Average(1,PA_5,FP2,False)
Average(1,VR_5,FP2,False)
Average(1,VWC_6,FP2,False)
Average(1,EC_6,FP2,False)
Average(1,T_6,FP2,False)
Average(1,P_6,FP2,False)
Average(1,PA_6,FP2,False)
Average(1,VR_6,FP2,False)
Average(1,VWC_7,FP2,False)
Average(1,EC_7,FP2,False)
Average(1,T_7,FP2,False)
Average(1,P_7,FP2,False)
Average(1,PA_7,FP2,False)
Average(1,VR_7,FP2,False)
Average(1,VWC_8,FP2,False)
Average(1,EC_8,FP2,False)
Average(1,T_8,FP2,False)
Average(1,P_8,FP2,False)
Average(1,PA_8,FP2,False)
Average(1,VR_8,FP2,False)
Sample(1,RH,FP2)
WindVector(1,WS_ms,WindDir,FP2,False,0,0,0)
FieldNames("WS_ms_S_WVT,WindDir_D1_WVT,WindDir_SD1_WVT")
EndTable

DataTable(Table2,True,-1)
DataInterval(0,1440,Min,10)
Minimum(1,BattV,FP2,False,False)
EndTable

'Main Program
BeginProg
'Main Scan
Scan(30,Min,1,0)
'Default Datalogger Battery Voltage
'measurement 'BattV'
Battery(BattV)
'Default Wiring Panel Temperature
'measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'TE525/TE525WS Rain Gauge
'measurement 'Rain_mm'
PulseCount(Rain_mm,1,1,2,0,0.254,0)
'05103 Wind Speed & Direction Sensor
'measurements 'WS_ms' and 'WindDir'
PulseCount(WS_ms,1,2,1,1,0.098,0)
BrHalf(WindDir,1,mV2500,1,1,1,2500,True,0,_60Hz,355,0)
If WindDir>=360 Or WindDir<0 Then WindDir=0
'LI200X Pyranometer measurements 'SlrMJ' and 'SlrW'
VoltDiff(SlrW,1,mV7_5,2,True,0,_60Hz,1,0)
If SlrW<0 Then SlrW=0
SlrMJ=SlrW*0.36
SlrW=SlrW*200
'HC2S3 (constant power) Temperature & Relative
'Humidity Sensor measurements 'AirTC' and 'RH'
VoltSE(AirTC,1,mV2500,2,0,0,_60Hz,0.1,-40)
VoltSE(RH,1,mV2500,5,0,0,_60Hz,0.1,0)
If RH>100 And RH<103 Then RH=100
'CS106 Barometric Pressure Sensor measurement 'BP_kPa'
PortSet(1,1)
VoltSE(BP_kPa,1,mV2500,6,1,0,_60Hz,0.240,500)
BP_kPa=BP_kPa*0.1
'NR-LITE2 Net Radiometer (dynamic wind speed
'correction) measurement 'NR_Wm2' and 'CNR_Wm2'
VoltDiff(NR_Wm2,1,mv25,4,True,0,_60Hz,100,0)
If WS_ms>=5 Then
CNR_Wm2=NR_Wm2*(1+0.021286*(WS_ms-5))
Else
CNR_Wm2=NR_Wm2
EndIf
'CS650/655 Water Content Reflectometer
'measurements 'VWC', 'EC', and 'T'
SDI12Recorder(CS65X(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_2', 'EC_2', and 'T_2'
SDI12Recorder(CS65X_2(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_3', 'EC_3', and 'T_3'
SDI12Recorder(CS65X_3(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_4', 'EC_4', and 'T_4'
SDI12Recorder(CS65X_4(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_5', 'EC_5', and 'T_5'
SDI12Recorder(CS65X_5(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_6', 'EC_6', and 'T_6'
SDI12Recorder(CS65X_6(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_7', 'EC_7', and 'T_7'
SDI12Recorder(CS65X_7(),7,"0","M3!",1,0)
'CS650/655 Water Content Reflectometer
'measurements 'VWC_8', 'EC_8', and 'T_8'
SDI12Recorder(CS65X_8(),7,"0","M3!",1,0)
'Call Data Tables and Store Data
CallTable Table1
CallTable Table2
NextScan
EndProg

Log in or register to post/reply in the forum.