Table of Contents
Advertisement
Appendix B: Using the GPIB Interface
'--- Set single sweep mode on to begin measurement process
'--- Put spectrum analyzer in free run with max hold
'--- Make measurement
'--- ReSet Center Frequency for next measurement and turn off maxhold
'--- Set Span
'--- Adjust Preselector to proper band
'--- Set single sweep mode on to begin measurement process
'--- Replace spectrum analyzer into free run with max hold on
'--- Make measurement and finish
B–4
wrt$ = "SIGSWP;SIGSWP;WAIT;fre?;mxhld on"
CALL GPIB.CONTROLLER(3)
CALL GPIB.CONTROLLER(4)
wrt$ = "tri fre"
CALL GPIB.CONTROLLER(3)
GOSUB MAKE.MEASUREMENT
wrt$ = "mxhld off;FRE 175 MHZ"
CALL GPIB.CONTROLLER(3)
DEVICE$ = "TEK_SA"
CALL GPIB.CONTROLLER(1) ' identify the device
CALL GPIB.CONTROLLER(7) ' force timeout to 30 seconds
wrt$ = "SPA 5 MHZ"
CALL GPIB.CONTROLLER(3)
DEVICE$ = "PRE_SEL"
CALL GPIB.CONTROLLER(1)
wrt$ = "B5"
CALL GPIB.CONTROLLER(3)
DEVICE$ = "TEK_SA"
CALL GPIB.CONTROLLER(1)
wrt$ = "SIGSWP;SIGSWP;WAIT;fre?;mxhld on"
CALL GPIB.CONTROLLER(3)
CALL GPIB.CONTROLLER(4)
wrt$ = "tri fre"
CALL GPIB.CONTROLLER(3)
GOSUB MAKE.MEASUREMENT
END
MAKE.MEASUREMENT:
INPUT "Press {Enter} to acquire data ";In$
wrt$ = "wfm wfid:b,encdg:bin;curve?"
CALL GPIB.CONTROLLER(3)
CALL GPIB.CONTROLLER(11)
GOSUB INSERT.LOSS
RETURN
INSERT.LOSS:
'Adjust for insertion loss here
RETURN
'set PRESELECTOR for 125 MHz to 250 MHz
're - address analyzer
2706 RF Preselector
Advertisement
Table of Contents
