Table des Matières
Publicité
NextScan
EndProg
7.3.3 T-200B – Programme exemplaire pour la mesure de compte
d'impulsion
'Programme exemplaire pour le Geonor T-200B - version de 1 capteur
'Mesure de compte d'impulsion (pulse count)
'Ce programme mesure un pluviometre a pese Geonor T-200B pour les derniers cinq
'minutes de chaque heure.
'Le moyen et l'ecart-type des valeur de profondeurs sont calcules et enregistres
'aux tableaux de sorties horaire et quotidien.
'ENTREZ LE NUMERO DE SERIE DU CAPTEUR
'T-200B - SN XXXXX
'ENTREZ LES CONSTANTES DE CALIBRATIONS SPECIFIQUES AU CAPTEUR
Const Geonor_f0 = 1050
Const Geonor_A = 1.7E-2
Const Geonor_B = 9.2E-6
'Declarez les variables publiques et leurs unites
'Temperature du panneau du datalogger
Public PTemp
Units PTemp = degC
'Voltage du systeme d'alimentation
Public Batt_Volt
Units Batt_Volt = V
'Frequence brute du capteur
Public Geonor_Freq
Units Geonor_Freq = Hz
'Profondeur brute du capteur
Public Geonor_Profondeur_Brute
Units Geonor_Profondeur_Brute = mm
'Valeurs de la profondeur traitee pour le pluviometre Geonor
Public Geonor_Traitement_5min(2)
Alias Geonor_Traitement_5min(1) = Geonor_Profondeur_Moyen
Alias Geonor_Traitement_5min(2) = Geonor_Profondeur_EcartType
Units Geonor_Traitement_5min(1) = mm
'Cette variable booleene controle quand le Geonor est alimente et mesure.
'Allume automatiquement pour les derniers 5 minutes de chaque heure, et
'peut etre allume manuellement hors de ca si necessaire
Public Mesure_Geonor As Boolean
'Cette variable est pour le temps d'echauffement du capteur
Dim Geonor_echauffement
'La premiere sortie de PulseCount de chaque heure n'est pas valide.
'empeche la premiere sortie d'etre utilise pour les calculs de precipitation.
Dim PremierePulseCount As Boolean
'Definissez le tableau de traitement Geonor
'Ce tableau calcule le moyen et l'ecart-type des valeurs de profondeur
DataTable (Geonor_traitement,1,1)
DataInterval (0,5,Min,10)
Average (1,Geonor_Profondeur_Brute,IEEE4,PremierePulseCount)
StdDev (1,Geonor_Profondeur_Brute,FP2,PremierePulseCount)
EndTable
Pluviomètre à balance de série T-200B
Cette drapeau
25
Publicité
Table des Matières
