Campbell-scientific CS125 Present Weather Sensor Manual de usuario descargar pdf (Pagina 63)

Appendix C. Example CRBasic programs

C-9

'CS215 Temperature & Relative Humidity Sensor measurements AirTC and RH

SDI12Recorder(TRHData(),5,"0","M!",1,0)

'Calculate DewPoint

DewPoint(TempDewPoint,AirTC,RH)

' Gather the current settings from the CS125

SerialFlush (Com1)

TempString = "GET:0:0"

CheckVal = CheckSum (TempString,1,0) ' Use the CCITT CRC16 checksum

OutString = CHR(2) + TempString + ":" + FormatLong (CheckVal,"%04X") + ":" +

CHR(3) + CHR(13) + CHR(10)

SerialOut (Com1,OutString,"",0,100) ' Send GET command to the CS125

Delay (1,1,Sec)

SerialIn (InStringGET,Com1,100,0,200) ' Save the data returned from the GET

command

If Len(InStringGET) > 1 Then ' Check data was returned

SplitStr (CS125CArray(1),InStringGET, " ",21,5) ' Strip the settings from the

returned data string

CS125CArray(1) = Right (CS125CArray(1),1)' Trim the SOT from the first data

point

EndIf

'Enable Dew Heaters if AirTC < DewPoint

If AirTC <= TempDewPoint AND StatusDewHeater=False Then

CS125CArray(17)=0

SerialFlush (Com1)

TempString = CS125_SETNCCommand()

SerialOut (Com1,TempString,"",0,100)

Delay (1,1,Sec)

SerialIn (InStringSETNC,Com1,100,0,1000)

StatusDewHeater=True

EndIf

'Disable Dew Heaters if AirTC > DewPoint+3

If AirTC > TempDewPoint+3 AND StatusDewHeater=True Then

CS125CArray(17)=1

SerialFlush (Com1)

TempString = CS125_SETNCCommand()

SerialOut (Com1,TempString,"",0,100)

Delay (1,1,Sec)

SerialIn (InStringSETNC,Com1,100,0,1000)

StatusDewHeater=False

EndIf

NextScan

EndProg

1 2 ... 58 59 60 61 62 63 64 65 66

Comentarios a estos manuales

Sin comentarios

Campbell-scientific CS125 Present Weather Sensor Manual de usuario Pagina 63

Comentarios a estos manuales

Relacionado con productos y manuales para Sensores Campbell-scientific CS125 Present Weather Sensor