![Campbell CS125 Скачать руководство пользователя страница 66](http://html1.mh-extra.com/html/campbell/cs125/cs125_instruction-manual_3803392066.webp)
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
Содержание CS125
Страница 2: ......
Страница 6: ......
Страница 10: ...vi...
Страница 60: ......
Страница 62: ...CS125 Present Weather Sensor A 2...
Страница 64: ...CS125 Present Weather Sensor B 2...
Страница 75: ......