APPLICATION PROGRAM EXAMPLES
StopEOI% = 256
CLS
CALL SendIFC(0)
CALL IBTMO(0, 13)
'
'*** 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%)
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
'
cmd$ = "FETCh:AMPLitude?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
'
cmd$ = "FETCh:PERiod?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
'
cmd$ = "FETCh:PWIDth?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1),
'
cmd$ = "FETCh:NWIDth?"
CALL Send(0, 8, cmd$, EndEOI%)
CALL Receive(0, 8, res$, StopEOI%)
PRINT LEFT$(res$, INSTR(res$, CHR$(10)) - 1)
NEXT i
PRINT
CALL errorcheck
END
'Termination Receive on EOI
'Clears Output Screen
'Clears the GPIB interface
'Timeout at 10 seconds
'Enters frequency
'Enters amplitude
'Enters period
'Enters positive pulse width
'Enters negative pulse width
A - 3