CRBasic Example 1: CR1000X program for TempVue 10 with 4-wire configuration
'CR1000X
'
'This program measures the resistance using the BrHalf4W
'instruction and then converts the resistance to temperature
'using the PRTCalc instruction.
'Change DUT offset to the value included on the calibration certificate
Const
DUT = 0.6
'Declare Variables and Units
Public
BattV
'CR1000X battery voltage
Public
PTemp_C
'CR1000X panel temperature
Public
TempVUE10RsR0
'
TempVue 10
resistance measurement
Public
TempVUE10T_C
'temperature measurement
Units
BattV = Volts
Units
PTemp_C = Deg C
Units
TempVUE10T_C = Deg C
'Define Data Tables
DataTable
(Hourly,True,-1 )
DataInterval
(0,60,Min,10)
Sample
(1,TempVUE10T_C,FP2)
Average
(1,TempVUE10T_C,FP2,False)
Maximum
(1,TempVUE10T_C,FP2,False,True)
Minimum
(1,TempVUE10T_C,FP2,False,True)
Sample
(1,TempVUE10RsR0,FP2)
EndTable
DataTable
(Daily,True,-1)
DataInterval
(0,1440,Min,10)
Minimum
(1,BattV,FP2,False,False)
Maximum
(1,BattV,FP2,False,False)
Minimum
(1,PTemp_C,FP2,False,False)
Maximum
(1,PTemp_C,FP2,False,False)
EndTable
'Main Program
BeginProg
'Main Scan
Scan
(10,Sec,1,0)
'Battery Voltage measurement 'BattV'
Battery
(BattV)
'Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp
(PTemp_C,60)
TempVue 10 PT-100 Class A, Precision Air Temperature Sensor
23
