Table des Matières
Publicité
Pluviomètre à balance de série T-200B
'Definissez les tableaux de sorties des donnees
DataTable(Horaire,1,-1)
DataInterval(0,1,hr,10)
Sample(1,Geonor_Profondeur_Moyen,IEEE4)
Sample(1,Geonor_Profondeur_EcartType,FP2)
Sample(1,Geonor_Freq,IEEE4)
EndTable
DataTable(Quotidien,1,-1)
DataInterval(0,1,day,10)
Sample(1,Geonor_Profondeur_Moyen,IEEE4)
Sample(1,Geonor_Profondeur_EcartType,FP2)
Sample(1,Geonor_Freq,IEEE4)
EndTable
'Programme principal
BeginProg
Scan (5,Sec,0,0)
PanelTemp (PTemp,_60Hz)
Battery (Batt_Volt)
'Allume la variable booleene a cinq minutes avant l'heure pour alimenter
'et mesurer le Geonor pour cinq minutes
If TimeIntoInterval(55,60,min) Then
Mesure_Geonor = true
PremierePulseCount = true
EndIf
If Mesure_Geonor = true Then
'Allume le capteur
SW12(1)
'Commence le temps d'echauffement de 15 secondes
Geonor_echauffement = Timer (1,Sec,0)
'Commence les mesures apres le temps d'echauffement
If Geonor_echauffement >= 15 Then
'Mesure le capteur Geonor avec l'instruction Pulse Count (compte d'impulsion)
PulseCount (Geonor_Freq,1,1,0,1,1.0,0)
'Convertissez de frequence a profondeur en utilisant l'equation de calibration [mm]
Geonor_Profondeur_Brute = (Geonor_A * (Geonor_Freq - Geonor_f0) + Geonor_B *
(Geonor_Freq - Geonor_f0) ^2 ) * 10
EndIf
Else
'Eteint le capteur
SW12(0)
'Reset le temps d'echauffement
Geonor_echauffement = Timer(1,Sec,3)
EndIf
'Appel le tableau de traitement Geonor
CallTable Geonor_traitement
If Geonor_echauffement >= 15 Then
PremierePulseCount = false
endif
'A chaque heure, fais le suivant:
'Eteint la variable booleene pour desalimenter et arreter de mesurer le Geonor;
'et extrait les valeurs de moyen et de ecart-type
If TimeIntoInterval(0,60,min) Then
Mesure_Geonor = false
GetRecord (Geonor_Traitement_5min,Geonor_traitement,1)
EndIf
'Appel les tableaux de sorties de donnees
26
Publicité
Table des Matières
