Fluke PM6669 Operator's Manual page 35

Page: 34
Example 3
This program prompts the user to input a programming
sequence. The sequence is then sent to the PM 6669
and the corresponding measuring result is read.
Let us as an example select Single Period measure-
ments, without AUTO-triggering (gives faster operation).
100 'DEMO PROGRAM
110 'PM6669 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 PRINT
370 PRINT "RESULT READ AS: ";RES$
380 PRINT
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 *)
PM 6669 - OPERATORS MANUAL
GPIB-INTERFACE OPERATION
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 6669 with address 10. The device parameters are
set with the configuration program 'IBCONF', see the
IBM adapter manual.
Device Name: COUNTER
Send EOI w/last Byte of Write?
Example 1
The following program sets up the counter for 10 Period
A measurements and presents the average result on the
screen.
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
Example of a result:
AVERAGE: 9.980422E-06 S
Ok
DEVICE PARAMETERS
DESCRIPTION NEW VALUE
Access Adapter Name? GPIB0
Primary GPIB Address? 0AH
Secondary GPIB Address? 00H
Timeout setting? T10s
EOS Byte? 0AH
Terminate Read on EOS? Yes
Send EOI with EOS byte? No
Use 8-bit Compare on EOS? No
Yes
'DEMO PROGRAM
'PM6669 AND IBM PC WITH IBM
'GPIB ADAPTOR AS CONTROLLER
CLS 'CLEAR SCREEN
'INIT
ADNAME$ = "COUNTER"
CALL IBFIND(ADNAME$,CNT%)
'SEND SDC
CALL IBCLR(CNT%)
'SELECT PERIOD A, TRIGGED MODE
'AND MEASURING TIME 1 S
WRT$ = "PER A,TRIG ON,MTIME 1"
CALL IBWRT (CNT%,WRT$)
'INPUT 10 SAMPLES
Z=0
FOR I= 1 TO 10
CALL IBTRG(CNT%) 'TRIGGER COUNTER
CALL IBRD(CNT%,RD$) 'READ RESULT STRING
Z = Z + VAL (MID$(RD$,8,13))
NEXT I
PRINT "AVERAGE:";Z/10;"S"
CALL IBLOC(CNT%) 'GO TO LOCAL
END
Number: D 0
VALID NAME
[GPIBx]
±
[0H to 1EH]
[60H to 7EH; 0H disables]
[T10us to T1000s;TNONE disables]
±
[0H to FFH or '<character>]
[Yes or No]
±
[Yes or No]
±
[Yes or No]
±
[Yes or No]
±