Campbell Scientific CR9000X Measurement and Control System - Manual (Page 137)

Section 4. CRBasic – Native Language Programming
EXAMPLE PROGRAM 4.2.3-1 CRBasic Program Structure ‘ Declarations
‘Define Constants
Const RevDiff 1
Const Del 0
Const Integ 0
Const Mult 1
Const Offset 0
‘
Define Public Variables
Public RefTemp
Public TC(6), TAvg
Public Flag(8)
‘Declare Units
Units RefTemp=degC
Units TC=degC
‘
Define Data Tables
DataTable (Temp,1,2000)
DataInterval(0,10,msec,10)
Average(1,RefTemp,fp2,0)
Average(6,TC(),fp2,0)
EndTable
‘Begin Program
Declare constants
Declarations
Declare public variables ,
dimension array, and
declare units.
Define Data Table
for storing data results
BeginProg
Scan(1,MSEC,0,0)
ModuleTemp(RefTemp,1,4,0)
TCDiff(TC(),6,mV50C,4,1,TypeT,RefTemp,RevDiff,Del,Integ,Mult,Offset)
CallTable Temp
NextScan
EndProg
Measure
Scan loop
Call Data Table
4-9