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
Содержание SR50A
Страница 2: ......
Страница 6: ......
Страница 30: ...SR50A Series Sonic Ranging Sensors 20...
Страница 32: ......
Страница 53: ...Appendix B Example Programs B 21 CallTable Daily CallTable Hour NextScan EndProg...
Страница 54: ...Appendix B Example Programs B 22...
Страница 56: ......
Страница 78: ...Appendix E Tera Term QuickStart E 10...
Страница 83: ......