![Campbell TempVue 10 Скачать руководство пользователя страница 27](http://html1.mh-extra.com/html/campbell/tempvue-10/tempvue-10_product-manual_3945452027.webp)
CRBasic Example 2: CR1000X program for TempVue 10 with 2-wire configuration
'Define Date 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
'Main Program
BeginProg
'Main Scan
Scan
(1,Sec,1,0)
'Battery Voltage measurement 'BattV'
Battery
(BattV)
'Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp
(PTemp_C,60)
'Measure the Tempvue 10 resistance
BrHalf
(X,1,mV200C,1,Vx1,1,2500,True,50000,60,1,0)
'Calculate the value of Rs
Rs = Rf*X/(1-X)
'Calculate the ratio of Rs/R0
TempVue10RsR0 = Rs/R0
'Convert the resistance ratio to temperature in Deg Celsius
PRTCalc
(TempVue10T_C,1,TempVue10RsR0,1,1,Cal_Offset)
'Call Data Tables and Store Data
CallTable
Hourly
NextScan
EndProg
TempVue 10 PT-100 Class A, Precision Air Temperature Sensor
25