Campbell CR1000 Manuale Utente Scaricare il pdf (Pagina 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

Nessun commento

Campbell CR1000 Manuale Utente Pagina 12