Fluke PM-3380B Sander User Manual


 
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