
Section 7. Installation
249
'Declare Public (viewable) Variables
Public Batt_Volt As FLOAT 'Declared as Float
Public PTemp_C 'Float by default
Public AirTemp_C 'Float by default
Public AirTemp_F 'Float by default
Public AirTemp2_F 'Float by default
Public DeltaT_C 'Float by default
Public HowMany 'Float by default
Public Counter As Long 'Declared as Long so counter does not have
'rounding error
Public SiteName As String * 16 'Declared as String with 16 chars for a
'site name (optional)
'Declare program control flags & terms. Set the words “High” and “Low” to equal “TRUE”
'and “FALSE” respectively
Public Flag(1) As Boolean
Const High = True
Const Low = False
'Optional – Declare a Station Name into a location in the Status table.
StationName(CR1000_on_desk)
'Optional -- Declare units. Units are not used in programming, but only appear in the
'data file header.
Units Batt_Volt = Volts
Units PTemp = deg C
Units AirTemp = deg C
Units AirTempF2 = deg F
Units DeltaT_C = deg C
'Declare an interval driven output table
DataTable(OneMin,True,-1) 'Time driven data storage
DataInterval(0,1,Min,0) 'Controls the interval
Average(1,AirTemp_C,IEEE4,0) 'Stores temperature average in high
'resolution format
Maximum(1,AirTemp_C,IEEE4,0,False) 'Stores temperature maximum in high
'resolution format
Minimum(1,AirTemp_C,FP2,0,False) 'Stores temperature minimum in low
'resolution format
Minimum(1,Batt_Volt,FP2,0,False) 'Stores battery voltage minimum in low
'resolution format
Sample(1,Counter,Long) 'Stores counter in integer format
Sample(1,SiteName,String) 'Stores site name as a string
Sample(1,HowMany, FP2) 'Stores how many data events in low
'resolution format
EndTable
'Declare an event driven data output table
DataTable(Event,True,1000) 'Data table – event driven
DataInterval(0,5,Sec,10) '—AND interval driven
DataEvent(0,DeltaT_C >= 3,DeltaT_C < 3,0) '—AND event range driven
Maximum(1,AirTemp_C,FP2,0,False) 'Stores temperature maximum in low
'resolution format
Commentaires sur ces manuels