Campbell Scientific CS125 Present Weather Sensor - Manual (Page 58)

CS125 Present Weather Sensor
C-4
'Const CS125_Poll = CHR(2)&"POLL:8:0:939A:"&CHR(3)&CHR(13) 'address 8
'Const CS125_Poll = CHR(2)&"POLL:9:0:A4AA:"&CHR(3)&CHR(13) 'address 9
'Main Program
BeginProg
'Open the logger serial port to which the CS125 is connected
SerialOpen (CS125_Comport,38400,3,0,1000)
Scan(10,Sec,1,0)
'The sensor is polled every 10 seconds
SerialOut(CS125_Comport,CS125_Poll,"",0,100)
SerialInRecord(CS125_Comport,InString,&h02,0,&h03,NBytesReturned,01)
'Check that a message has been recieved first
If NBytesReturned > 0 Then
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