Campbell CR1000

Section 7. Installation
'Program
BeginProg
Scan(1,Sec,0,0)
PanelTemp(PTempC,250)
MaxVar = FirstTable.PTempC_Max
TimeOfMaxVar = FirstTable.PTempC_TMx
CallTable FirstTable
CallTable SecondTable
NextScan
EndProg
CRBasic Example 37. NSEC — Seven and Nine Element Time Arrays
'This program example demonstrates the use of NSEC data type to sample a time stamp into
'final-data memory using an array dimensioned to 7 or 9.
'A time stamp is retrieved into variable rTime(1) through rTime(9) as year, month, day,
'hour, minutes, seconds, and microseconds using the RealTime() instruction. The first
'seven time values are copied to variable rTime2(1) through rTime2(7). Because the
'variables are dimensioned to 7 or greater, NSEC assumes the first seven time factors
'in the arrays are year, month, day, hour, minutes, seconds, and microseconds.
'Declarations
Public rTime(9) As Long '(or Float)
Public rTime2(7) As Long '(or Float)
Dim x
DataTable(SecondTable,True,-1)
DataInterval(0,5,Sec,10)
Sample(1,rTime,NSEC)
Sample(1,rTime2,NSEC)
EndTable
'Program
BeginProg
Scan(1,Sec,0,0)
RealTime(rTime)
For x = 1 To 7
rTime2(x) = rTime(x)
Next
CallTable SecondTable
NextScan
EndProg
204