Campbell CS225 Bedienerhandbuch PDF herunterladen (Seite 19)

CS225 Temperature String

7.2.4 Example Programs

7.2.4.1 CR1000 Program for Measuring 15 Sensors Every 60 Seconds

In this example a single CS225 is being measured on Control Port 1 of a

CR1000. The CS225 includes 15 sensors with SDI-12 addresses 1 through 15.

Each sensor is polled with the “aR0!” command every 60 seconds, and stored

to a data table on the same interval. Other common station data is measured

every 60 seconds and stored to a daily data table.

'CR1000 Series Datalogger

'The following Sample program reads a CS225 string that has 15 temperature Sensors

'Declare Public Variables

Public PTemp, batt_volt

'Enter the number of temperature sensors that are in the string (will need to be adjusted

to 'fit specific applications)

Const NumTempSensors=15

'Uses the control port C1 on the CR1000 (valid port options are 1,3,5,7)

Const CS225_SDI12_Port=1

Public CS225Temp(NumTempSensors) As Float

Dim i As Long

'Define Data Tables

DataTable (Daily,1,-1)

DataInterval (0,1440,Min,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 (TempSample,1,-1)

DataInterval (0,60,Sec,10)

Sample (NumTempSensors,CS225Temp(),IEEE4)

EndTable

'Define Subroutines

'*****************************************************************************

'* --------------------- ConvertNumToSDI12address() ---------------------- *

'* Convert SDI-12 character address (0->9, A->Z, & a->z) to number value *

'* (0->61). *

'*****************************************************************************

Function ConvertNumToSDI12address(address As Long) As String * 1

Select Case address

Case 0 To 9 'ASCII Code 48->57 = 0->9

Return(CHR(address + 48))

Case 10 To 35'ASCII Code 65->90 = A->Z = 10->35

Return(CHR(address + 55))

Case 36 To 61'ASCII Code 97->122 = a->z = 36->61

Return(CHR(address + 61))

EndSelect

Return("")

EndFunction 'ConvertNumToSDI12address()

'EndSub

1 2 ... 14 15 16 17 18 19 20 21 22 23 24 25

Kommentare zu diesen Handbüchern

Keine Kommentare

Campbell CS225 Bedienerhandbuch Seite 19

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Messen, Testen & Steuern Campbell CS225