Campbell CR850 - Page 250

Section 7. Installation
250


'1 Minute Data Interval
Scan(1,Min,0,70)
Counter(4) = Counter(4) + 1
Battery(Batt_volt)
PanelTemp(PTemp,250)
TCDiff(Level,1,mV2_5,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval(0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan
'2 Minute Data Interval
Scan(2,Min,0,200)
Counter(5) = Counter(5) + 1
Battery(Batt_volt)
PanelTemp(PTemp,250)
TCDiff(Level,1,mV2_5,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval(0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan
'5 Minute Data Interval
Scan(5,Min,0,700)
Counter(6) = Counter(6) + 1
Battery(Batt_volt)
PanelTemp(PTemp,250)
TCDiff(Level,1,mV2_5,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval(0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan