Campbell-scientific CS125 Present Weather Sensor Manuel d'utilisateur télécharger pdf (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

1 2 ... 53 54 55 56 57 58 59 60 61 62 63 64 65 66

Pas de commentaire

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