Campbell-scientific CS125 Present Weather Sensor Manuel d'utilisateur télécharger pdf (Page 56)

CS125 Present Weather Sensor

C-2

SerialInRecord(CS125_Comport,InString,&h02,0,&h03,NBytesReturned,01)

'Check that a message has been recieved first

If NBytesReturned > 0 Then

'Split out the Data into strings

SplitStr (SerialIndest(),InString," ",27,5)

'Check the received checksum is valid

'Calculate the expected checksum

lngCRCCalc = CheckSum(InString,1,NBytesReturned-5)

'Extract the checksum from the message & convert it for comparison

lngCRCMsg = HexToDec(checksumrx)

ChecksumOK = ( lngCRCMsg = lngCRCCalc)

'In critical applications the visibility can be set to NaN if the system status

'is degraded or a critical error flag is set.

If ChecksumOK Then Visibility = Visibilitystr Else Visibility =NaN

EndIf

'Call data storage commands here

NextScan

EndProg

1 2 ... 51 52 53 54 55 56 57 58 59 60 61 ... 65 66

Pas de commentaire

Campbell-scientific CS125 Present Weather Sensor Manuel d'utilisateur Page 56