Campbell Scientific HC2S3 Temperature and Relative Humidity Probe - 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