CRBasic Example 1: CR1000X program that measures the MS-80
'CR1000X Series
'MS-80-L with PT100
'SENS is sensitivity value from the calibration sheet.
'It is unique for each sensor.
Const
SENS = 10.26
'uV/W/m^2
Public
IRR
Public
Rs
Public
Sensor_Temp
Units
IRR = W/m^2
Units
Sensor_Temp = DegC
DataTable
(MS80,1,-1 )
DataInterval
(0,1,Min,10)
Average
(1,IRR,IEEE4,False)
Average
(1,Sensor_Temp, FP2, False)
EndTable
BeginProg
Scan
(1,Sec,3,0)
'Measure the irradiance
VoltDiff
(IRR,1,mV200,1,True,3000,60,1000/SENS,0)
'Measure the PT100 PRT Temperature Sensor(3WHB10K)
BrHalf3W
(Rs,1,mV200,3,Vx1,1,2500,True,0,60,100,0)
PRT
(Sensor_Temp,1,Rs,1.0,0)
CallTable
MS80
NextScan
EndProg
MS-80 Secondary Standard Pyranometer
14