Campbell CR800 Series, Руководство оператора

Страница: 199 / 598

Section 7. Installation
199
NSEC — One Element Time Array
'This program example demonstrates the use of NSEC data type to determine seconds since
'00:00:00 1 January 1990. A time stamp is retrieved into variable TimeVar(1) as seconds
'since 00:00:00 1 January 1990. Because the variable is dimensioned to 1, NSEC assumes
'the value = seconds since 00:00:00 1 January 1990.
'Declarations
Public PTemp
Public TimeVar(1) As Long
DataTable (FirstTable,True,-1)
DataInterval (0,1,Sec,10)
Sample (1,PTemp,FP2)
EndTable
DataTable (SecondTable,True,-1)
DataInterval (0,5,Sec,10)
Sample (1,TimeVar,Nsec)
EndTable
'Program
BeginProg
Scan(1,Sec,0,0)
TimeVar = FirstTable.TimeStamp
CallTable FirstTable
CallTable SecondTable
NextScan
EndProg
NSEC — Two Element Time Array
'This program example demonstrates how to determine seconds since 00:00:00 1 January 1990,
'and microseconds into the last second. This is done by retrieving variable TimeStamp into
'variables TimeOfMaxVar(1) and TimeOfMaxVar(2). Because the variable TimeOfMaxVar() is
'dimensioned to 2, NSEC assumes the following:
' 1) TimeOfMaxVar(1) = seconds since 00:00:00 1 January 1990, and
' 2) TimeOfMaxVar(2) = microseconds into a second.
'Declarations
Public PTempC
Public MaxVar
Public TimeOfMaxVar(2) As Long
DataTable( FirstTable,True,-1)
DataInterval (0,1,Min,10)
Maximum (1,PTempC,FP2,False,True)
EndTable
DataTable (SecondTable,True,-1)
DataInterval (0,5,Min,10)
Sample (1,MaxVar,FP2)
Sample (1,TimeOfMaxVar,Nsec)
EndTable