Campbell CR800 Series - Page 172

Section 7. Installation
172
BeginProg / Scan / NextScan / EndProg Syntax
'This program example demonstrates detection and recording of an event. An event has a
'beginning and an end. This program records an event as occurring at the end of the event.
'The event recorded is the transition of a delta temperature above 3 degrees. The event is
'recorded when the delta temperature drops back below 3 degrees.
'The DataEvent instruction forces a record in data table Event each time an
'event ends. Number of events is written to the reserved variable
'EventCount(1,1). In this program, EventCount(1,1) is recorded in the
'OneMinute Table.
'Note : the DataEvent instruction must be used within a data table with a
'more frequent record interval than the expected frequency of the event.
'Declare Variables
Public PTemp_C, AirTemp_C, DeltaT_C
Public EventCounter
'Declare Event Driven Data Table
DataTable(Event,True,1000)
DataEvent(0,DeltaT_C>=3,DeltaT_C<3,0)
Sample(1,PTemp_C, FP2)
Sample(1,AirTemp_C, FP2)
Sample(1,DeltaT_C, FP2)
EndTable
'Declare Time Driven Data Table
DataTable(OneMin,True,-1)
DataInterval(0,1,Min,10)
Sample(1,EventCounter, FP2)
EndTable
BeginProg
Scan(1,Sec,1,0)
'Wiring Panel Temperature
PanelTemp(PTemp_C,_60Hz)
'Type T Thermocouple measurements:
TCDiff(AirTemp_C,1,mV2_5C,1,TypeT,PTemp_C,True,0,_60Hz,1,0)
'Calculate the difference between air and panel temps
DeltaT_C = AirTemp_C - PTemp_C
'Update Event Counter (uses special syntax Event.EventCount(1,1))
EventCounter = Event.EventCount(1,1)
'Call data table(s)
CallTable(Event)
CallTable(OneMin)
NextScan
EndProg