Campbell CR850 - Page 249

Section 7. Installation
249
'Declare Variables
Public PTemp, Batt_Volt, Level, TimeIntoTest
Public Counter(10)
Public Flag(8) As Boolean
'Define Data Tables
DataTable(LogTable,1,-1)
Minimum(1,Batt_Volt,FP2,0,False)
Sample(1,PTemp,FP2)
Sample(1,Level,FP2)
Sample(1,TimeIntoTest, FP2)
EndTable
'Main Program
BeginProg
Scan(1,Sec,0,0)
If TimeIntoInterval(0,1,Min) Then Flag(1) = True
If Flag(1) = True Then ExitScan
NextScan
'10 Second Data Interval
If Flag(1) = True Then
Scan(10,Sec,0,60)
Counter(2) = Counter(2) + 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
'30 Second Data Interval
Scan(30,Sec,0,40)
counter(3) = counter(3) + 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