CS SR50A, Instruction Manual

Page: 37 / 84

Appendix B. Example Programs
B-5
'actual storage time to get 11 measurements completed.
I f TimeIntoInterval (13,15,Min) Then
SR50ACtrl = True
EndIf
'Set this flag to true to get the initial distance from the SR50A
'to the ground.
If SR50A_MID Then SR50ACtrl = True
'Logic to make 11 snow depth measurements, sort them, and store
'the corrected values.
If SR50ACtrl Then
'SR50A Sonic Ranging Sensor (SDI-12 Output) measurements
'DT' & 'Q'
SDI12Recorder (SR50A_Raw(),C1,"0","M1!",1,0)
'Calculate the temperature corrected distance.
SR50A(n,1) = SR50A_Raw(1)*SQR((A273.15)/273.15)
SR50A(n,2) = SR50A_Raw(2)
n += 1
If n > 11 Then
n = 1
SR50ACtrl = False
SortSpa (Result_SR50A(1,1),11,SR50A(1,1),2)
TCDT = Result_SR50A(6,1)
Q = Result_SR50A(6,2)
If SR50A_MID Then
Inital_Dist = TCDT
SR50A_MID = False
EndIf
Snow_Depth = Inital_Dist - TCDT
EndIf
EndIf
'Call Data Tables and Store Data
CallTable Daily
CallTable Hour
NextScan
EndProg