Campbell CR800 Series - Measurement: RTD, PRT, PT100, PT1000

Section 7. Installation
258
#ElseIf ProgramSpeed = 3
Const ScanRate = 30 '30 seconds
Const Speed = "30 Second"
#Else
Const ScanRate = 5 '5 seconds
Const Speed = "5 Second"
#EndIf
'Public Variables
Public ValueRead, SelectedSpeed As String * 50
'Main Program
BeginProg
'Return the selected speed and logger type for display.
#If LoggerType = 3000
SelectedSpeed = "CR3000 running at " & Speed & " intervals."
#ElseIf LoggerType = 1000
SelectedSpeed = "CR1000 running at " & Speed & " intervals."
#ElseIf LoggerType = 800
SelectedSpeed = "CR800 running at " & Speed & " intervals."
#ElseIf LoggerType = 6
SelectedSpeed = "CR6 running at " & Speed & " intervals."
#Else
SelectedSpeed = "Unknown Logger " & Speed & " intervals."
#EndIf
'Open the serial port
SerialOpen(ComC1,9600,10,0,10000)
'Main Scan
Scan(ScanRate,Sec,0,0)
'Measure using different parameters and a different SE channel depending
'on the datalogger type the program is running in.
#If LoggerType = 3000
'This instruction is used if the datalogger is a CR3000
VoltSe(ValueRead,1,mV1000,22,0,0,_50Hz,0.1,-30)
#ElseIf LoggerType = 1000
'This instruction is used if the datalogger is a CR1000
VoltSe(ValueRead,1,mV2500,12,0,0,_50Hz,0.1,-30)
#ElseIf LoggerType = 800
'This instruction is used if the datalogger is a CR800 Series
VoltSe(ValueRead,1,mV2500,3,0,0,_50Hz,0.1,-30)
#ElseIf LoggerType = 6
'This instruction is used if the datalogger is a CR6 Series
VoltSe(ValueRead,1,mV1000,U3,0,0,50,0.1,-30)
#Else
ValueRead = NAN
#EndIf
NextScan
EndProg
7.7.16 Measurement: RTD, PRT, PT100, PT1000
Related Topics:
• CRBasic Editor Help for PRTCalc()
• Resistance Measurements — Details
(p. 332)