Section 7. Installation
7.9.1.4 Miscellaneous Features
CRBasic example
Miscellaneous Features
(p. 174)
demonstrates use of several
CRBasic features: data type, units, names, event counters, flags, data-output
intervals, and control.
CRBasic Example 25.
Miscellaneous Program Features
'This program example demonstrates the use of a single measurement instruction. In this
'case, the program measures the temperature of the CR1000 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
174
Summary of Contents for CR1000
Page 2: ......
Page 4: ......
Page 6: ......
Page 32: ......
Page 36: ......
Page 38: ......
Page 40: ......
Page 60: ...Section 4 System Quickstart Figure 16 PC200W View Line Graph 60 ...
Page 96: ......
Page 98: ...98 ...
Page 302: ......
Page 453: ...Section 8 Operation Figure 115 Using the Keyboard Display 453 ...
Page 456: ...Section 8 Operation Figure 118 Real Time Custom 456 ...
Page 457: ...Section 8 Operation 8 8 1 3 Final Memory Tables Figure 119 Final Memory Tables 457 ...
Page 458: ...Section 8 Operation 8 8 2 Run Stop Program Figure 120 Run Stop Program 458 ...
Page 460: ...Section 8 Operation Figure 122 File Edit 460 ...
Page 461: ...Section 8 Operation 8 8 4 PCCard Memory Card Display Figure 123 PCCard CF Card Display 461 ...
Page 478: ......
Page 506: ......
Page 536: ......
Page 636: ......
Page 642: ......
Page 644: ......
Page 676: ......
Page 677: ......