Table des Matières
Publicité
'This interval can be changed to different application requirements.
If TimeIntoInterval(59,60,Min) Then SR50AMeasureFlag = TRUE
If SR50AMeasureFlag = TRUE Then
'Perform 11 Snow Depth Measurements back to back, using scan interval
'Read the snow depth from the SR50A "M!" command depths
SDI12Recorder(RawDist(SR50ACount),1,0,"M!",1.0,0)
'Correct Distance for Temperature
CorDist(SR50ACount)=RawDist(SR50ACount)*(SQR((AirTC+273.15)/273.15))
'Increment counter to ensure proper allocation to array of measurements
SR50ACount = SR50ACount +1
If SR50ACount = 12 Then
'Sort the values
SortSpa(SR50ASort(),11,CorDist())
'Take the Median value as distance to snow
Distance=SR50ASort(6)
'Calculate snow depth
SnowDepth=Dist2Gnd-Distance
'Measurements complete and median chosen, reset values in anticipation of next scan.
SR50AMeasureFlag=false
SR50ACount = 1
EndIf
EndIf
'Call Data Tables and Store Data
CallTable(Hourly)
CallTable (Daily)
NextScan
EndProg
10 Exemples du programme pour l'enregistreur de données
10.1 Exemple de programmation 1 :
SR50A SDI-12 « M1! » Enregistreur de données CR10X
;{CR10X}
;
;In this example, the SR50A is mounted 2.5 meters above the ground.
;The CR10X sends an SDI-12 command to the SR50A, which outputs a
;non-temperature compensated distance value (Raw_Dist) and signal quality value.
;Two input locations are used to store incoming data.
*Table 1 Program
Dans les exemples suivants du programme pour l'enregistreur de données,
seuls les enregistreurs de données CR1000 et CR10X sont utilisés. La
programmation des enregistreurs de données CR800, CR850 et CR3000 est en
fait la même que pour le CR1000. De plus, pour un enregistreur de données
CR23X, se reporter aux exemples de programmation pour le CR10X.
Capteur de télémétrie sonique SR50A
- 43 -
Publicité
Table des Matières
