Campbell Scientific HC2S3 Temperature and Relative Humidity Probe User Manual

Page 40

Appendix C. HC2S3 Digital Communications

C-6

Example CR1000 Program:

'CR1000 Program

'Declare variables
Public SerialIndest As String * 100
Dim String_1 As String

Const CRLF=CHR(13)+CHR(10)
Dim HC2S3_Split(17) As String * 40
Alias HC2S3_Split(2) = RH_Str

'RH string.

Alias HC2S3_Split(6) = TempC_Str

'Temp string.

Alias HC2S3_Split(17) = HC2S3_SN_Str

'HC2S3 serial number string.

Public TempC, RH, NBytesReturned

Const SensorPort=32

'SDM-SIO1 rotary switch set at 0

DataTable (Table1,1,-1)

DataInterval (0,15,Min,10)
Average (1,TempC,FP2,False)

Sample (1,RH,FP2)
EndTable

BeginProg
SerialOpen (SensorPort,19200,51,100,200) '51 is for half duplex
String_1 = "|{F00RDD}"+CRLF

'RS485 command to send data

Scan (5,Sec,0,0)
SerialFlush (SensorPort)

SerialOut (SensorPort,String_1,0,1,100) 'Send command to send data
Delay (0,500,mSec)

'Get data from probe
SerialInRecord (ComSDC7,SerialIndest,&H6464,0,&H3B48,NBytesReturned,01)
'Parse RH and temp from string

SplitStr (HC2S3_Split(),SerialIndest,";",17,7)
RH=RH_Str
TempC=TempC_Str

CallTable Table1
NextScan
EndProg