E-1
Appendix E. Default Programs
CRBasic Example E-1. Program for ET107 with WindSonic
StationName
(ET107_WindSonic)
'Datalogger status information
Public BattVolt
Public
LogrTmpC
Public
Encl_RH
Public
WatchDog
Public
Overruns
Public
LowVolts
Public
LiBattV
'WindSonic RS232 variables
Public
WindSpd_ms
Public
WindSpd_mph
Public
WindDir
Dim
WC_WSmph
Dim
WC_AirtempF
Dim
in_bytes_str
As
String
* 21
Dim
nmbr_bytes_rtrnd
Dim
disable_flag
As
Boolean
Dim
checksum_flg
As
Boolean
Dim
one
Units
one = samples
Public
diag
Units
diag = unitless
'CONNECTOR: RAIN (PRECIP)
'TE525-ET
Public
Rain_mm
Public
Rain(24)
Public
Rain24Ttl
Alias
Rain(1)=RainHrTtl
'CONNECTOR: TEMP/RH
'HMP60-ET
Public
AirTempC
Public
AirTempF
Public
RelHum
'CONNECTOR: Solar Radiation
Public
SlrRad_W
'Miscellaneous variables and calculations
Public
DewPntC
Public HeatIndxC
Public
WindChilC
Dim
n
DataTable
(VW_Hourly,true,-1)
DataInterval
(0,60,Min,10)
Maximum
(1, BattVolt, FP2, 0, False)
Minimum
(1, BattVolt, FP2, 0, False)
Maximum
(1, Encl_RH, FP2, 0, False)
Minimum
(1, Encl_RH, FP2, 0, False)
Maximum
(1, LogrTmpC, FP2, 0, False)
Minimum
(1, LogrTmpC, FP2, 0, False)
Maximum
(1, WindSpd_ms,IEEE4,disable_flag, False)
WindVector
(1,WindSpd_ms,WindDir,IEEE4,disable_flag,0,0,1)
FieldNames
("WindSpd_ms_Avg,WindDir_Avg")
Totalize
(1, Rain_mm, FP2, 0)
Average
(1, AirTempC, FP2, 0)
Maximum
(1, AirTempC, FP2, 0, False)
Minimum(1, AirTempC, FP2, 0, False)
Average
(1, RelHum, FP2, 0)
Maximum
(1, RelHum, FP2, 0, False)