Campbell Scientific CR1000KD CR1000 Measurement and Control System - Page 244
Public, As FLOAT, As Long, As String, As Boolean, Const, StationName, Units, DataTable, DataInterval
View all Campbell Scientific CR1000KD manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 244 highlights
Section 7. Installation 'Declare Public (viewable) Variables Public Batt_Volt As FLOAT Public PTemp_C Public AirTemp_C Public AirTemp_F Public AirTemp2_F Public DeltaT_C Public HowMany Public Counter As Long Public SiteName As String * 16 'Declared as Float 'Float by default 'Float by default 'Float by default 'Float by default 'Float by default 'Float by default 'Declared as Long so counter does not have 'rounding error '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. 'data file header. Units Batt_Volt = Volts Units PTemp = deg C Units AirTemp = deg C Units AirTempF2 = deg F Units DeltaT_C = deg C Units are not used in programming, but only appear in the 'Declare an interval driven output table DataTable(OneMin,True,-1) DataInterval(0,1,Min,0) Average(1,AirTemp_C,IEEE4,0) Maximum(1,AirTemp_C,IEEE4,0,False) Minimum(1,AirTemp_C,FP2,0,False) Minimum(1,Batt_Volt,FP2,0,False) Sample(1,Counter,Long) Sample(1,SiteName,String) Sample(1,HowMany, FP2) EndTable 'Time driven data storage 'Controls the interval 'Stores temperature average in high 'resolution format 'Stores temperature maximum in high 'resolution format 'Stores temperature minimum in low 'resolution format 'Stores battery voltage minimum in low 'resolution format 'Stores counter in integer format 'Stores site name as a string 'Stores how many data events in low 'resolution format 'Declare an event driven data output table DataTable(Event,True,1000) DataInterval(0,5,Sec,10) DataEvent(0,DeltaT_C >= 3,DeltaT_C < 3,0) Maximum(1,AirTemp_C,FP2,0,False) 'Data table - event driven '-AND interval driven '-AND event range driven 'Stores temperature maximum in low 'resolution format 244