SERIES
9900
9000
SERIES
GAUSSMETERS
RS-232 Demo Program continued
355 C O M P O RT 1 = &H3F8
'
C
O
M
1
I/O ADDRESS
360 COMPORT1.LSR = CO 5
'
8
2
5
0
LINE STATUS REG
365 O P E N "COM1:9600,0,7,1,CS,DS,CD" AS #1 ' 9 6 0 0 BAUD,ODD PARITY, 7 BITS
370
375
S e n d LOCKOUT-ON command until MASTER mode is terminated.
380
385 P R I N T "Terminating MASTER mode and locking front panel"
390 R S 2 3 2 . O U T $ = LOKON$: GOSUB 9000: GOSUB 8000
395
400 ' = = = = Setup Gaussmeter for MODE, RANGE, PEAK HOLD and DISPLAY FORMAT ====
405
410 P R I N T "Programming the MODE (GAUSS-DC)"
415 R S 2 3 2 . O U T $ = MODE$: GOSUB 9000: GOSUB 8000
420 P R I N T "Programming the RANGE (3 KG)"
425 R S 2 3 2 . O U T $ = RANGE$: GOSUB 9000: GOSUB 8000
430 P R I N T "Programming PEAK HOLD (OFF)"
435 R S 2 3 2 . 0 U T $ = PEAK$: GOSUB 9000: GOSUB 8000
440 P R I N T "Programming DISPLAY FORMAT"
445 R S 2 3 2 . O U T $ = DISP$: GOSUB 9000: GOSUB 8000
450
455 ' - - - - Take field measurements - - - -
460
462 M A T C H % = 0
465 P R I N T: PRINT"ACQUIRING FIELD MESUREMENTS...PRESS ANY KEY TO QUIT."
470
475 R S 2 3 2 . O U T $ = MEAS$
480 G O S U B 9000: GOSUB 8030
485 I F INKEY$ = "" THEN 480
490
495
S e n d LOCKOUT-OFF command to resume MASTER mode.
500
502 M A T C H % = 1
505 P R I N T: PRINT "Enabling MASTER mode and unlocking front panel"
510 R S 2 3 2 . O U T $ = LOKOFF$: GOSUB 9000: GOSUB 8000
515 C L O S E #1: END
8000 '
8 0 0 5
t
l
e
. 1 r y r . * * * . . . . * * * * * * * * * * * * * . * * * . . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * . . * * * * * * * * * * * * * * * * * . . . * * • * * * * •
8010 ' Print on screen the command string sent and the response received.
8 0 1 5 I * * * * * * * . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * . . * * . * * * * * * * * * * * * * * * * * * * . * * * * * * * * * * . * * * * 1 * . * * * * * * * * * * * * * * * * * * * * * * * * * * * *
8020 PRINT"GAUSSMETER COMMAND WAS [";
8025 P R I N T RIGHT$(RS232.OUT$,OUTLEN);:PRINT"]";: PRINT " ";
8030 PRINT"GAUSSMETER RESPONSE WAS [";
8035 P R I N T LEFT$(RS232.1N$,INLEN);:PRINTT
8040 R E T U R N
9000 '
9005
9010 ' T H I S SUBROUTINE IS USED TO COMMUNICATE TO AND FROM
THE
GAUSSMETER.
9015 '
9020 ' U P O N ENTRY THE COMMAND STRING TO BE ISSUED TO THE GAUSSMETER MUST BE
9025 ' * IN THE "RS232.OUT$" GLOBAL BUFFER. THE SUBROUTINE WILL TRANSMIT THE
9030 ' * COMMAND AND WAIT FOR THE GAUSSMETER TO TRANSMIT ITS RESPONSE. I F ANY
*
9035 ' * O F THE FOLLOWING CONDITIONS OCCUR THE PROCESS WILL BE REPEATED:
9040 1 ) IF 5 SECONDS HAS ELAPSED WITHOUT A RESPONSE.
9045 ' * 2 ) IF THE RESPONSE DID NOT CONTAIN THE CORRECT NUMBER OF
9050 ' * C H A R A C T E R S .
56
