INFICON XTC/3 Thin Film Deposition Controller Operating Manual - Handbuch (Seite 159)

5 - 47
IP
N 07
4-
44
6-
P5
A
XTC/3 Gebrauchsanleitung
220 IF I$ = NAK$ THEN RETURN :’ CHARACTER IS RECEIVED
GOTO PRINT RESPONSE.
230 RESPONSE$ = RESPONSE$ + I$ :’--BUILD RESPONSE STRING
240 GOTO 200 :’ CHARACTER BY CHARACTER.
250 ’
260 ’----READ SERIALLY EACH CHARACTER FROM THE INSTRUMENT INTO VARIABLE
I$----
270 ON TIMER (TOUT) GOSUB 300: TIMER ON
280 IF LOC(1) < 1 THEN 280 ELSE TIMER OFF: I$ = INPUT$(1,#1)
290 RETURN
300 TIMER OFF :’--INDICATE IF A CHARACTER
310 RESPONSE$ = "RECEIVE TIMEOUT" :’ IS NOT RECEIVED WITHIN
320 I$ = NAK$: RETURN 290 :’ 3 SECS.
5.3.5.6.2 "XTC2" Programm mit CHECKSUM
10 ’--XTC/3 RS232 COMMUNICATIONS PROGRAM WITH CHECKSUM USING THE INFICON
FORMAT--
20 ’
30 ’------THIS PROGRAM IS DESIGNED TO TRANSMIT INDIVIDUAL COMMANDS TO THE
XTC/3
AND ACCEPT THE APPROPRIATE RESPONSE FROM THE XTC/3, WRITTEN IN GWBASIC 2.32.
40 ’
50 OPEN "COM1:9600,N,8,1,cs,ds" AS #1 :’--OPEN COMM PORT 1
60 STX$ = CHR$(2) : NAK$ = CHR$(21) : ACK$ = CHR$(6) :’--DEFINE ASCII CODES
70 ’
80 INPUT "ENTER COMMAND"; CMD$ :’--ENTER COMMAND TO XTC/3
90 GOSUB 170 :’--GOTO TRANSMIT COMMAND SUBROUTINE
100 IF RESPONSE$ = "RECEIVE TIMEOUT" THEN 140
110 L = LEN(RESPONSE$): L = L-1 :’--STRIP OFF THE ACK
120 RESPONSE$ = RIGHT$(RESPONSE$,L) :’ NAK CHARACTER FROM THE
130 ’ :’ RESPONSE STRING
140 PRINT RESPONSE$ :’--PRINT XTC/3 RESPONSE
150 GOTO 80 :’--LOOP BACK FOR ANOTHER COMMAND.
160 ’
170 ’----TRANSMIT COMMAND AND RECEIVE RESPONSE SUBROUTINE----
180 ’
190 ’--BUILD COMMAND MESSAGE STREAM AND SEND TO THE XTC/3--
200 SIZEM$ = CHR$(LEN(CMD$) / 256) :’--CALCULATE THE 2 Byte
210 SIZEL$ = CHR$(LEN(CMD$) MOD 256) :’ SIZE OF THE COMMAND.
220 ’
230 CHECKSUM = 0 :’--INITIALIZE CHECKSUM TO