Campbell Scientific CS125 Present Weather Sensor - Manual (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