![Campbell SDMS40 Скачать руководство пользователя страница 31](http://html1.mh-extra.com/html/campbell/sdms40/sdms40_product-manual_3916973031.webp)
CRBasic Example 1: CR1000X SDI-12 program to measure the SDMS40
Units
Snow_Depth_Avg = mm
Dim
SDI_Calibrate_Return
Public
Calibrate_Flag
As Boolean
Public
SDMS40_Snow_Depth_Points(36)
Units
SDMS40_Snow_Depth_Points() = mm
'**************************************************************************
' Diagnostic Data Table
'**************************************************************************
'Daily diagnostic data table for troubleshooting purposes
DataTable
(Diagnostic,True,-1)
DataInterval
(0,1,day,10)
Sample
(1,status.OSversion,
String
)
Sampl
e (1,status.ProgName,
String
)
Sample
(1,status.LithiumBattery,FP2)
Sample
(1,status.PakBusAddress,UINT2)
Sample
(1,status.Low12VCount,UINT2)
Maximum
(1,status.
Battery
,FP2,False,False)
Minimum
(1,status.
Battery
,FP2,False,False)
Sample
(1,status.CompileResults,
String
)
Maximum
(1,status.
PanelTemp
,FP2,False,False)
Minimum
(1,status.
PanelTemp
,FP2,False,False)
Sample
(1,status.ProgSignature,UINT4)
Sample
(1,status.StartTime,
String
)
Sample
(1,status.SkippedScan,UINT2)
Sample
(1,status.SkippedSystemScan,UINT2)
Sample
(1,status.VarOutOfBound,UINT2)
Sample
(1,status.WatchdogErrors,UINT2)
EndTable
'**************************************************************************
' Snow Depth Data Table
'**************************************************************************
DataTable
(SnowDepth,1,-1)
DataInterval
(0,SDMS40_Interval,min,10)
Sample
(1, Snow_Depth_Avg,IEEE4)
Sample
(36,SDMS40_Snow_Depth_Points(),IEEE4)
EndTable
'**************************************************************************
' Subroutine: CalibrateSensors
' Description: Sends an auto-calibration command to the SDMS40.
'**************************************************************************
Sub
CalibrateSensors
SDI12Recorder
(SDI_Calibrate_Return,SDI12_PORT1,0,
"XA!"
,1,0,-1,1)
Delay
(1,10,Sec)
EndSub
SDMS40 Multipoint Scanning Snowfall Sensor
25