Fluke PM-3390B, PM-3380B, PM-3370B, PM-3394B, PM-3384B user manual ’Termination Receive on EOI

APPLICATION PROGRAM EXAMPLES	A - 3
StopEOI% = 256	’Termination Receive on EOI
CLS	’Clears Output Screen
CALL SendIFC(0)	’Clears the GPIB interface
CALL IBTMO(0, 13)	’Timeout at 10 seconds
’

’*** Reset the instrument and clear the status data. cmd$ = "*RST;*CLS"

CALL Send(0, 8, cmd$, EndEOI%) CALL errorcheck

’

’*** Configure for measuring the frequency of the Probe signal. cmd$ = "CONFigure:VOLTage:FREQuency (0.6),2000,(@1)"

CALL Send(0, 8, cmd$, EndEOI%)

PRINT "Frequency Amplitude Period Pos.width Neg.width" PRINT " Hertz Volts seconds seconds seconds"

PRINT

’

’*** Read the signal characteristics 10 times.

FOR i = 1 TO 10
cmd$ = "READ:FREQuency?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)	’Enters frequency
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
’
cmd$ = "FETCh:AMPLitude?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)	’Enters amplitude
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
’
cmd$ = "FETCh:PERiod?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)	’Enters period
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
’
cmd$ = "FETCh:PWIDth?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)	’Enters positive pulse width
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
’
cmd$ = "FETCh:NWIDth?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)	’Enters negative pulse width

PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1)

NEXT i

PRINT

CALL errorcheck

END