Filter
Top Products
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