Campbell CR1000 Manual do Utilizador descarregar pdf (Página 12)

Paroscientific, Inc. Technical Note

Precision Pressure Instrumentation Doc. No. G8044 25 March 2005

'Send Temperature string over one communication port C1 (COM1 TX).

OutString = "*0100Q3"+CHR(13)+CHR(10)

SerialOut (Com1,OutString,"",0,500)

'Receive String on port C2 (COM1 RX).

SerialIn (Instring, Com1,500,10,100) 'Receive timeout is 5 secs. Change if needed.

SplitStr (Temp,InString,"*0001",1,4)

'Send Tper string over one communication port C1 (COM1 TX).

OutString = "*0100Q1"+CHR(13)+CHR(10)

SerialOut (Com1,OutString,"",0,500)

'Receive String on port C2 (COM1 RX).

SerialIn (Instring, Com1,500,10,100) 'Receive timeout is 5 secs. Change if needed.

SplitStr (Tper,InString,"*0001",1,4)

'Send ambient temperature string over one communication port C1 (COM1 TX).

OutString = "*0100TT"+CHR(13)+CHR(10)

SerialOut (Com1,OutString,"",0,500)

'Receive String on port C2 (COM1 RX).

SerialIn (Instring, Com1,500,10,100) 'Receive timeout is 5 secs. Change if needed.

SplitStr (AmbT,InString,"*0001",1,4)

'Send humidity string over one communication port C1 (COM1 TX).

OutString = "*0100RH"+CHR(13)+CHR(10)

SerialOut (Com1,OutString,"",0,500)

'Receive String on port C2 (COM1 RX).

SerialIn (Instring, Com1,500,10,100) 'Receive timeout is 5 secs. Change if needed.

SplitStr (AmbRH,InString,"*0001",1,4)

'Call Output Tables to store values

CallTable Digiqrtz

NextScan

EndProg

Note: This source code is available at Paroscientific web site. (File Name:AllParams.cr1)

1 2 ... 7 8 9 10 11 12

Sem comentários

Campbell CR1000 Manual do Utilizador Página 12