Section 7. Installation
186
7.7.1.4 Miscellaneous Features
CRBasic example Miscellaneous Program Features
(p. 186)
shows how to use
several CRBasic features: data type, units, names, event counters, flags, data-
output intervals, and control statements.
Miscellaneous Program Features
'This program example demonstrates the use of a single measurement instruction. In this
'case, the program measures the temperature of the CR3000 wiring panel.
Public
RefTemp
'Declare variable to receive instruction
BeginProg
Scan
(1,Sec,3,0)
PanelTemp
(RefTemp,250)
'Instruction to make measurement
NextScan
EndProg
'A program can be (and should be!) extensively documented. Any text preceded by an
'apostrophe is ignored by the CRBasic compiler.
'One thermocouple is measured twice using the wiring panel temperature as the reference
'temperature. The first measurement is reported in Degrees C, the second in Degrees F.
'The first measurement is then converted from Degree C to Degrees F on the subsequent
'line, the result being placed in another variable. The difference between the panel
'reference temperature and the first measurement is calculated, the difference is then
'used to control the status of a program control flag. Program control then
'transitions into device control as the status of the flag is used to determine the
'state of a control port that controls an LED (light emitting diode).
'Battery voltage is measured and stored just because good programming practice dictates
'it be so.
'Two data storage tables are created. Table “OneMin” is an interval driven table that
'stores data every minute as determined by the CR1000 clock. Table “Event” is an event
'driven table that only stores data when certain conditions are met.
'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
Summary of Contents for CR3000 Micrologger
Page 2: ......
Page 3: ......
Page 4: ......
Page 6: ......
Page 30: ......
Page 34: ......
Page 36: ......
Page 96: ......
Page 485: ...Section 8 Operation 485 8 11 2 Data Display FIGURE 110 Keyboard and Display Displaying Data ...
Page 487: ...Section 8 Operation 487 FIGURE 112 CR1000KD Real Time Custom ...
Page 491: ...Section 8 Operation 491 FIGURE 116 Keyboard and Display File Edit ...
Page 496: ......
Page 502: ......
Page 564: ...Section 11 Glossary 564 FIGURE 126 Relationships of Accuracy Precision and Resolution ...
Page 566: ......
Page 594: ......
Page 598: ......
Page 600: ......
Page 602: ......
Page 624: ......
Page 642: ......
Page 643: ......