Pfeiffer Vacuum TPG 300 User Manual

BG 805 970 BE (0306) TPG 300.oi 75
To assist program development, two examples of BASIC
program examples are listed below. The will run on a
IBM compatible PC under BASICA:
20 OPEN "COM1:9600,N,8,,CS,DS,CD" AS #1
21 REM Eroeffnet COM1: mit 9600 bps,keine Paritaet und acht Daten-Bits.
22 REM CTS,DSR und CD werden nicht geprueft.
23 REM
30 ACK$ = CHR$(6): ENQ$ = CHR$(5): LF$ = CHR$(10)
100 LINE INPUT "Mnemonics? ";m$
101 REM Lesen der Nachrichten von der Tastatur, die Kommas(,)
102 REM oder andere Trennzeichen enthalten koennen.
103 IF m$ = "END" THEN GOTO 300
110 PRINT #1,m$
111 REM Sendet die Nachricht zum TPG300.
120 LINE INPUT #1,a$
121 REM Wartet auf die Quittierung der Nachricht.
130 IF INSTR(a$,ACK$) THEN PRINT " Acknowledge"; ELSE GOTO 200
131 REM Bei positiver Quittung.
140 PRINT #1,ENQ$
141 REM Aufforderung zur Datenuebertragung.
150 LINE INPUT #1,mp$
151 REM Lesen der Messwerte oder Parameter vom TPG300.
160 PRINT " "+RIGHT$(mp$,(LEN(mp$)-INSTR(mp$,LF$)))
161 REM Anzeige der Messwerte oder Parameter.
190 GOTO 100
200 PRINT " Negative Acknowledge";
201 REM Bei negativer Quittung.
210 PRINT #1,ENQ$
211 REM Aufforderung zur Uebertragung des Error-Wortes.
220 INPUT #1,e
221 REM Lesen des Error-Wortes vom TPG300.
230 IF e >999 THEN PRINT " FATAL ERROR"; : E = E-1000
240 IF e >99 THEN PRINT " NO HARDWARE"; : E = E-100
250 IF e >9 THEN PRINT " PARAMETER ERROR"; : E = E-10
260 IF e THEN PRINT " SYNTAX ERROR";
270 PRINT
280 GOTO 100
300 END
20 OPEN "COM1:9600,N,8,,CS,DS,CD" FOR RANDOM AS #1
21 REM Eroeffnet COM1: mit 9600 bps,keine Paritaet und acht Daten-Bits.
22 REM CTS,DSR und CD werden nicht geprueft.
23 REM
30 CLS
40 ACK$ = CHR$(6): ENQ$ = CHR$(5): LF$ = CHR$(10)
100 LOCATE 1, 47
101 PRINT " TPG 300 "; TIME$; " soro"
102 LOCATE 10, 1
110 P$ = "PA1"
120 FOR I = 1 TO 4
121 IF I = 2 THEN P$ = "PA2"
122 IF I = 3 THEN P$ = "PB1"
123 IF I = 4 THEN P$ = "PB2"
130 PRINT #1, P$: REM Abfrage der Druck Messstelle.
140 GOSUB 1000: REM Kommunikationsprotokoll
150 PRINT #1, ENQ$; : REM Aufforderung zur Datenuebertragung.
160 INPUT #1, s, m: REM Lesen des Messwertes.
170 IF s THEN PRINT " "; : GOTO 200: REM Status >0
180 PRINT USING " \ \=##.#^^^^"; P$; m; : REM Messdaten o.k.
200 NEXT I
C: Program Examples

Pfeiffer Vacuum TPG 300 Specifications

General

Display	LCD
Communication Interfaces	RS232, RS485, Ethernet
Temperature Range	0 to 50 °C
Accuracy	Dependent on connected gauges
Outputs	Analog, Relay
Operating Temperature	0°C to +50°C
Dimensions	96 mm x 96 mm
Type	Pirani Gauge Controller