SR50A Sonic Ranging Sensor
- 51 -
Therm107
(Air_Temp,1,1,Vx1,0,250,1.0,0)
'Use Air_Temp to calculate corrected distance:
Temp_Corr_Distance=Raw_Distance*(SQR((A273.15)/273.15))
'Subtract the corrected distance from the initial distance of the SR50A to the ground:
Snow_Depth=Initial_Distance
-
Temp_Corr_Distance
'Call Data Table and Store Data:
CallTable
(Table1)
NextScan
EndProg
10.6
Programming Example 6
SR50AT RS-232 Mode CR1000
'CR1000 Series Datalogger
'In this example, the SR50AT is mounted 2.5 meters above the ground.
'The SR50AT is used in RS-232 mode (internal jumpers are set).
'The CR1000 sends a serial string to the SR50AT, which is in "Measure on Poll Mode",
'and then receives a serial string in return which is parsed into different values.
'Wiring: Black: Power Ground
' clear:
Power
Ground
' Red:
+12V,
' White:C1
' Green: C2
'Declare Variables
'Declare SR50AData as a dimensioned string of maximum 50 chrs
Dim
SR50AData as STRING * 50
Public
ParseVals(6) as FLOAT
Alias
ParseVals(1)=SerialAddress
Alias
ParseVals(2)=Dist_To_Snow
Alias
ParseVals(3)=SignalQuality
Alias
ParseVals(4)=SR50AT_Temp
Alias
ParseVals(5)=Diagnostics
Alias
ParseVals(6)=Chcksum
Public
Snow_Depth
'Declare the initial distance of the SR50AT from the ground in meters:
Const
Initial_Distance=2.5
'Define Data Tables
DataTable
(Table1,True,-1)
DataInterval
(0,60,Min,10)
Sample
(1,Snow_Depth,FP2)
EndTable
