To Next Page

To Previous Page

Section 7. Installation

200

'Program

BeginProg

Scan(1,Sec,0,0)

PanelTemp(PTempC,250)

MaxVar = FirstTable.PTempC_Max

TimeOfMaxVar = FirstTable.PTempC_TMx

CallTable FirstTable

CallTable SecondTable

NextScan

EndProg

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)

CallTable SecondTable

NextScan

EndProg

Campbell CR800 Series User Manual

Questions and Answers: