Campbell HC2S3 Manuel télécharger pdf (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

1 2 ... 35 36 37 38 39 40 41 42

Pas de commentaire

Campbell HC2S3 Manuel Page 40