Example 3
This program prompts the user to input a programming se-
quence. The sequence is then sent to the PM 6666 and
the corresponding measuring result is read.
100
‘DEMO PROGRAM
110
‘PM6666 AND IBM PC WITH PM2201
120
‘GPIB INTERFACE AS CONTROLLER
130
CLS ‘CLEAR SCREEN
140
AD=7 ‘ADAPTOR NUMBER
150
ADDR=710 ‘COUNTER ADDRESS
160
SC=1 ‘SYSTEM CONTROLLER
170
CALL IOINIT(AD,SC) ‘INIT INTERFACE
180
TIME=10 ‘TIMEOUT AFTER 10 SECONDS
190
CALL IOTIMEOUT (AD,TIME)
200
CALL IOCLEAR(ADDR) ‘SEND SDC
210
PRINT “INPUT YOUR PROGRAMMING MESSAGE?”
220
PRINT “(TO QUIT THE PROGRAM, ANSWER *)”
230
LINE INPUT S$
240
L=LEN(S$) ‘LENGTH OF STRING TO SEND
250
IF L<>1 GOTO 280
260
IF S$<>"*" GOTO 280
270
END
280
CALL IOOUTPUTS(ADDR,S$,L) ‘OUTPUT STRING
290
‘TO BE SURE, TRIGGER COUNTER!
300
CALL IOTRIGGER(ADDR)
310
‘GET THE MEASURING RESULT
320
MAX=25
330
ACT=0
340
RES$=SPACE$(25)
350
CALL IOENTERS(ADDR,RES$,MAX,ACT)
360
370
PRINT “RESULT READ AS: ”;RES$
380
390
GOTO 210
Example of a result:
INPUT YOUR PROGRAMMING MESSAGE?
(TO QUIT THE PROGRAM, ANSWER *)
PER A,MTIME 0
RESULT READ AS: PER 0000001.00E–5
INPUT YOUR PROGRAMMING MESSAGE?
(TO QUIT THE PROGRAM, ANSWER *)
For IBM PC with IBM GPIB
This example runs on an IBM PC with an ‘IBM General
Purpose Interface Bus Adapter’ instead of the Fluke
PM 2201 interface.
The following set of device parameters is suitable for a
PM 6666 with address 10. The device parameters are set
with the configuration program ‘IBCONF’, see the IBM
adapter manual.
Example 1
The following program sets up the counter for 10 Period A
measurements and presents the average result on the
screen.
100
‘DEMO PROGRAM
110
‘PM6666 AND IBM PC WITH IBM
120
‘GPIB ADAPTOR AS CONTROLLER
130
CLS ‘CLEAR SCREEN
140
‘INIT
150
ADNAME$ = “COUNTER”
160
CALL IBFIND(ADNAME$,CNT%)
170
‘SEND SDC
180
CALL IBCLR(CNT%)
190
‘SELECT PERIOD A, TRIGGED MODE
200
‘AND MEASURING TIME 1 S
210
WRT$ = “PER A,TRIG ON,MTIME 1"
220
CALL IBWRT (CNT%,WRT$)
230
‘INPUT 10 SAMPLES
240
Z=0
250
FOR I= 1 TO 10
260
CALL IBTRG(CNT%) ‘TRIGGER COUNTER
270
CALL IBRD(CNT%,RD$) ‘READ RESULT STRING
280
Z = Z + VAL (MID$(RD$,8,13))
290
NEXT I
300
PRINT “AVERAGE:”;Z/10;"S"
310
CALL IBLOC(CNT%) ‘GO TO LOCAL
320
END
.Example of a result:
AVERAGE: 9.980422E–06 S
Ok
D e v i c e
N a m e :
C O U N T E R
D E V I C E
P A R A M E T E R S
N u m b e r :
D
0
D E S C R I P T I O N
N E W
V A L U E
V A L I D
N A M E
A c c e s s
A d a p t e r
N a m e ?
G P I B 0
[ G P I B x ]
P r i m a r y
G P I B
A d d r e s s ?
0 A H
[ 0 H
t o
1 E H ]
S e c o n d a r y
G P I B
A d d r e s s ?
0 0 H
[ 6 0 H
t o
7 E H ;
0 H
d i s a b l e s ]
T i m e o u t
s e t t i n g ?
T 1 0 s
E O S
B y t e ?
0 A H
[ 0 H
t o
F F H
o r
' < c h a r a c t e r > ]
T e r m i n a t e
R e a d
o n
E O S ?
Y e s
[ Y e s
o r
N o ]
S e n d
E O I
w i t h
E O S
b y t e ?
N o
[ Y e s
o r
N o ]
U s e
8 - b i t
C o m p a r e
o n
E O S ?
N o
[ Y e s
o r
N o ]
S e n d
E O I
w / l a s t
B y t e
o f
W r i t e ?
Y e s
[ Y e s
o r
N o ]
[T10us to T1000s;TNONE disables]
±
±
±
±
±
±
Page: 36
GPIB-INTERFACE OPERATION
PM 6666 - OPERATORS MANUAL
