Campbell CS300, Product Manual

Page: 24 / 26

Appendix B. Example Programs
B-2
'Pyranometer measurements 'SlrMJ' and 'SlrW'
VoltSe (SlrW,1,mV1000,1,1,0,60,1.0,0) 'Use mV250 for the CR800 series and CR1000
'Set negative values to zero.
If SlrW<0 Then SlrW=0
'Convert mV to MJ/m²
SlrMJ=SlrW*t*0.000005
'Convert mV to W/m²
SlrW=SlrW*5.0
'Call Data Tables and Store Data
CallTable (Hourly)
CallTable (Daily)
NextScan
EndProg
B.2 CR6 Program
CRBasic Example B-2. CR6 Program Measuring the CS300 or CS301
'CR6 Series
'Declare Constants
't=scan rate in seconds
Const t = 10
'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 (Hourly,True,-1)
DataInterval (0,60,Min,10)
Average (1,SlrW,FP2,False)
EndTable
DataTable (Daily,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 (t,Sec,1,0)
'Default Datalogger Battery Voltage measurement 'BattV'
Battery (BattV)
'Default Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp (PTemp_C,60)
'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²
SlrMJ=SlrW*t*0.000005