Campbell CS230, Руководство по техническому обслуживанию и инструкция

Страница: 24 / 31

CS230 Temperature Profiler
15
Scan (60,Sec,0,0)
PanelTemp (PTemp,250)
Battery (batt_volt)
'Read the current Temperature Value
For i=1 To NumTempSensors
SDI12Recorder (CS230Temp(i),CS230_SDI12_Port,ConvertNumToSDI12address(i),"R0!",1.0,0)
Next
CallTable Daily
CallTable TempSample
NextScan
EndProg
7.2.4.2 CR1000 Program for Measuring 15 Sensors Every 5 Minutes
In this example a single CS230 is being measured on Control Port 1 of a
CR1000. The CS230 includes 15 sensors with SDI-12 addresses 1 through 15.
Each temperature sensor is polled both on power up and daily with the aR1!
command to determine metadata, which is stored in a daily data table. The
minimum and maximum temperature of each sensor is polled ( aR6! and aR7!
respectively) every 5 minutes and stored to a data table on the same interval.
Other common station data is measured every 60 seconds and stored to a
separate daily data table.
'CR1000 Series Datalogger
'The following Sample program reads a CS230 probe that has 15 temperature Sensors.
'Individual temperatures, user minimum and maximum are recorded every 5 minutes, and
'Meta Data is collected daily.
'Declare Public Variables
Public PTemp, batt_volt
'Enter the number of temperature sensors that are in the probe (will need to be
'adjusted to fit specific application)
Const NumTempSensors=15
'Calculate the number of Meta Data points based on the number of sensors
Const MetaData_pts=NumTempSensors*3
'Uses the control port C1 on the CR1000 (valid port options are 1,3,5,7)
Const CS230_SDI12_Port=1
Public CS230Temp(NumTempSensors) As Float
Public CS230TempUserMax(NumTempSensors) As Float
Public CS230TempUserMin(NumTempSensors) As Float
Public CS230Meta(NumTempSensors,3) As Float
Dim i As Long
'Define Data Tables
DataTable (Daily,1,-1)
DataInterval (0,1,Day,10)
Minimum (1,batt_volt,FP2,0,False)
Maximum (1,batt_volt,FP2,0,False)
Average (1,batt_volt,FP2,0)
Minimum (1,PTemp,FP2,0,False)
Maximum (1,PTemp,FP2,0,False)
Average (1,PTemp,FP2,0)
EndTable
DataTable (MetaData,1,-1)
DataInterval (0,1,Day,10)
Sample (MetaData_pts,CS230Meta(),FP2)
EndTable