Dear All
Could you please share youe opnion that how to record the serial output of Li-Cor LI-850 using CR1000(X)?
I used the following program. However, CR1000(X) could not recieve the LI-850 output when the power input to LI-850 higher than 13.0 DCV.
Best regards
Naishen
--------------------------------------------------------------------------------------------------------
'CR1000X Series Datalogger
'=========== Declaration the variables ==================
StationName (Liangber_LI850)
Const Scantime = 1 'unit in sec
Const sec_interval = 5
Public LI850_Data(4)
Public Panel_Temp, batt_volt
'--- For LI850-COM4(C7-C8) -------------
Dim LI850(18) Alias LI850_Data(1) = LI850_CO2
Alias LI850_Data(2) = LI850_H2O
Alias LI850_Data(3) = LI850_Temp
Alias LI850_Data(4) = LI850_Pres
Public LI850_ser As String * 2000,b
' ----------- The most important data --------------
-DataTable (Liangber_Flux,true,-1)
CardOut (0 ,-1)
DataInterval (0,sec_interval,Sec,10)
Average (1,LI850_CO2(),FP2,False)
Average (1,LI850_H2O(),FP2,False)
Average (1,LI850_Temp(),FP2,False)
Average (1,LI850_Pres(),FP2,False)
Average (1, Panel_Temp(),FP2,False)
Average (1, batt_volt(),FP2,False)
EndTable
' ========== Main Program =================
BeginProg
SerialOpen (ComC7,9600,0,0,10000)
SerialFlush (ComC7)
Scan (Scantime,Sec,3,0)
' ******* Measurement ******************
PanelTemp (Panel_Temp,250)
Battery (batt_volt)
' --- Serial LI850 ---------
SerialInRecord (ComC7,LI850_ser,0,377,&h0A,b,00)
SplitStr (LI850(),LI850_ser,"",18,0)
LI850_Data(1) = LI850(6)
LI850_Data(2) = LI850(12)
LI850_Data(3) = LI850(3)
LI850_Data(4) = LI850(4)
' ------------ Save data -------------------
CallTable Liangber_Flux
Next Scan
EndProg
-----------------------------------------------------------------------------------