![F.W. Bell 9900 Series Скачать руководство пользователя страница 62](http://html.mh-extra.com/html/f-w-bell/9900-series/9900-series_operation-and-maintenance-manual_535142062.webp)
SERIES
9900
9000
SERIES
GAUSSMETERS
RS-232 Demo Program continued
9055 ' * 3 ) IF THE GLOBAL VARIABLE "MATCH%" IS SET TO A NON-ZERO VALUE
9060 ' * ( M U S T BE INITIALIZED BEFORE CALLING THIS ROUTINE) AND THE
9065 ' * T H E RESPONSE DID NOT EXACTLY MATCH THE COMMAND STRING.
9070 ' * UPON FOUR UNSUCCESSFUL ATTEMPTS THE PROCESS WILL BE ABORTED AND AN
9075 ' * ERROR MESSAGE WILL BE PRINTED TO THE SCREEN.
9080 ' *
*
9085 ' * UPON SUCCESS THE STRING RETURNED BY THE GAUSSMETER WILL BE IN THE
9090 " R S 2 3 2 . I N $ " GLOBAL BUFFER. THE GLOBAL VARIABLES "OUTLEN" AND INLEN"
9092 ' * WILL INDICATE THE NUMBER OF CHARACTERS TRANSMITTED/RECEIVED, NOT
9100 ' * INCLUDING THE INITIATOR (ESC) OR TERMINATOR (CR) CHARACTERS. I F ALL
9102 ' * WENT WELL THE TWO WILL BE EQUAL.
9105 I*--******.*******,,,,-*** ..... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...... *******,,-;•-
9110
9115 O N ERROR GOTO 9290
9120 R E T R Y = 4
9125
9130 ' = = = = Send initiator <ESC>, then send command. = -
9135
9140 O U T L E N = LEN(RS232.OUT$)
9145 START.TIME = TIMER
'
I
F
SYSTEM TIME IS APPROACHING ROLLOVER
9150 I F START.TIME > 86394! THEN 9145
'
THEN WAIT FOR IT TO ROLLOVER
9155 RS232.IN$ = ""
'
C
L
E
A
R
INPUT BUFFER
9160 P R I N T #1,CHR$(27):: PRINT #1,RS232.0UT$
9165
9170 ' = = = = WAIT 5 SECONDS FOR ECHO FROM GAUSSMETER ====
9175 '
9180 I F EOF(1) <> -1 THEN 9235
'
A
N
Y
CHARACTER PENDING?
9190 I F (TIMER - START.TIME) < 5 THEN 9180
9195 R E T R Y = RETRY -1: IF RETRY > 0 THEN 9130
9200 '
9205 B E E P : PRINT "***** GAUSSMETER RS-232 INTERFACE FAILURE *****": PRINT
9206 P R I N T "Using the COMMUNICATIONS FORMAT menu verify that"
9207 P R I N T " t h e baud rate and other characteristics have been"
9208 P R I N T " c o r r e c t l y programmed. Check your interface cable."
9210 C L O S E #1: END
9215 '
9220
L o a d response string into input buffer until terminator
9225
c h a r a c t e r <CR> is found.
9230 '
9235 RS232.IN$ = RS232.IN$ + INPUT$(LOC(1),#1)
9240 IF(INSTR(RS232.IN$,CHR$(13))) = 0 THEN 9180
9245 '
9250 I N L E N = LEN(RS232.IN$)-1
9255 I F OUTLEN <> INLEN
THEN
9130
9260 I F MATCH% = 0 THEN 9270
9265 IF(INSTR(RS232.1N$,RS232.0UT$)) = 0 THEN 9130
9270 O N ERROR GOTO 0: RETURN
9275 '
9280 ' = = = = If a receiver error clear the receiver status and continue. = -
9285 '
9290 COMM.ERROR% =INP(COMPORT1.LSR): RESUME NEXT
9295 '
57