海洋仪器网

CR1000 manual suggest DSP4, and GOESData functions as alternatives to store data besides a card. In loggernet there is not further reference for DSP4; I followed the instructions for the use of GOESData (see code below) but I wasn't successful. Can somebody please post an example of the use of those instructions and what are the devices needed to use the GOES functionality?

Thank you very much!

'CR1000

' The following sample program makes a few simple measurements of leaf wetness sensor and store them in the table named LWS.

'Declare Variables and Units
Public BattV
Public LWmV
Public LWMDry
Public LWMCon
Public LWMWet
Dim SATData
Dim SATStatus(13)

Units BattV=Volts
Units LWmV=mV
Units LWMDry=Minutes
Units LWMCon=Minutes
Units LWMWet=Minutes

'Define Data Tables

DataTable(lws,True,-1)
DataInterval(0,1,Min,10)
Minimum(1,BattV,FP2,False,False)
Sample(1,LWmV,FP2)
Maximum(1,LWmV,FP2,False,True)
Totalize(1,LWMDry,FP2,False)
Totalize(1,LWMCon,FP2,False)
Totalize(1,LWMWet,FP2,False)
EndTable

'Main Program
BeginProg
Scan(5,Sec,1,0)
'Default Datalogger Battery Voltage measurement BattV
Battery(BattV)
'LWS Dielectric Leaf Wetness Sensor measurement LWmV
BrHalf(LWmV,1,mV2500,1,1,1,2500,False,10000,_60Hz,2500,0)
'Determine Minutes Dry (LWMDry), Minutes Wet or Contaminated (LWMCon), and Minutes Wet (LWMWet) for this Scan
LWMDry=0
LWMCon=0
LWMWet=0
If LWmV<274 Then
LWMDry=0.08333333
Else
If LWmV>=284 Then
LWMWet=0.08333333
Else
LWMCon=0.08333333
EndIf
EndIf
'Call Data Tables and Store Data
CallTable(lws)
'==== All new data from this table is transmitted hourly.
If TimeIntoInterval (0,1,Hr)
GOESData (SATData,lws,0,0,1)
EndIf
If TimeIntoInterval (0,1,Day)
GOESStatus (SATStatus,1)
EndIf