
Appendix B. Example Programs
B-2
B.2 CR6 Program
'CR6 Series
'Declare Variables and Units
Public
BattV
Public
PTemp_C
Public
SlrW
Public
SlrMJ
Units
BattV=Volts
Units
PTemp_C=Deg C
Units
SlrW=W/m^2
Units
SlrMJ=MJ/m^2
'Define Data Tables
DataTable
(Table1,True,-1)
DataInterval
(0,60,Min,10)
Average
(1,SlrW,FP2,False)
EndTable
DataTable
(Table2,True,-1)
DataInterval
(0,1440,Min,10)
Minimum
(1,BattV,FP2,False,False)
Totalize
(1,SlrMJ,IEEE4,False)
EndTable
'Main Program
BeginProg
'Main Scan
Scan
(10,Sec,1,0)
'Default Datalogger Battery Voltage measurement 'BattV'
Battery
(BattV)
'Default Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp
(PTemp_C,60)
'CS300 Pyranometer measurements 'SlrMJ' and 'SlrW'
VoltSe
(SlrW,1,mV1000,U1,1,0,60,1,0)
'Set negative values to zero.
If
SlrW<0
Then
SlrW=0
'Convert mV to MJ/m² for a 10 second scan rate
SlrMJ=SlrW*5E-05
'Convert mV to W/m²
SlrW=SlrW*5.0
'Call Data Tables and Store Data
CallTable
Table1
CallTable
Table2
NextScan
EndProg