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

Section 9. Program Control Instructions
RealTime Example
This example uses RealTime to place all time segments in the Destination array. If the
remark (‘) is removed from the first 8 Sample statements and the last Sample statement is
remarked, the results will be exactly the same.
Public rTime(9) 'declare as public and dimension rTime to 9
Alias rTime(1) = Year 'assign the alias Year to rTime(1)
Alias rTime(2) = Month 'assign the alias Month to rTime(2)
Alias rTime(3) = Day 'assign the alias Day to rTime(3)
Alias rTime(4) = Hour 'assign the alias Hour to rTime(4)
Alias rTime(5) = Minute 'assign the alias Minute to rTime(5)
Alias rTime(6) = Second 'assign the alias Second to rTime(6)
Alias rTime(8) = WeekDay 'assign the alias WeekDay to rTime(8)
Alias rTime(9) = Day_of_Year 'assign the alias Day_of_Year to rTime(9)
DataTable (VALUES, 1, 100) 'set up data table
' Sample(1, Year, IEEE4) 'place Year in VALUES table
' Sample(1, Month, IEEE4) 'place Month in VALUES table
' Sample(1, Day, IEEE4) 'place Day in VALUES table
' Sample(1, Hour, IEEE4) 'place Hour in VALUES table
' Sample(1, Minute, IEEE4) 'place Minute in VALUES table
' Sample(1, Second, IEEE4) 'place Second in VALUES table
' Sample(1, WeekDay, IEEE4) 'place WeekDay in VALUES table
' Sample(1, Day_of_Year, IEEE4) 'place Day_of_Year in VALUES table
Sample(9, rTime(), IEEE4) 'place all 9 segments in VALUES table
EndTable
BeginProg
Scan (1, mSec, 0, 0)
REALTIME (rTime())
CallTable VALUES
Next Scan
EndProg
Reset Table
Used to reset a data table under program control.
Syntax
ResetTable( TableName )
Remarks
ResetTable is a function that allows a running program to reset a data table.
TableName is the name of the table to reset. This instruction should be used
with caution, as all data in the table will be lost.
ResetTable Example
The example program line resets table MAIN when Flag(2) is high.
If Flag(2) then ResetTable( MAIN )
'resets table MAIN
SecsSince1990
The SecsSince1990 function returns the number of seconds since January 1,
1990 from a date string.
Syntax
Variable = SecsSince1990( DateString, DateOption )
Remarks
One of the uses for this function is to retrieve a record from a data table using
the GetRecord instruction based on the time the record was stored rather than
9-50