User`s manual

BASIC Program Example (SMPLSWP2)
1 !RE-STORE"SMPLSWP2"
2 !This program continuously sweeps from 1 kHz to 21 kHz and specifies
3 !a start frequency and a frequency span.
4 !
10 !Assign I/O path between the computer and E1445A.
20 ASSIGN @Afg TO 70910
30 COM @Afg
40 !
50 !Set up error checking
60 ON INTR 7 CALL Errmsg
70 ENABLE INTR 7;2
80 OUTPUT @Afg;"*CLS"
90 OUTPUT @Afg;"*SRE 32"
100 OUTPUT @Afg;"*ESE 60"
110 !
120 !Call the subprograms
130 CALL Rst
140 CALL Sweep2
150 CALL Query
160 !
170 WAIT .1 !allow interrupt to be serviced
180 OFF INTR 7
190 END
200 !
210 SUB Sweep2
220 Sweep2: !Subprogram which outputs a swept sine wave from 1 kHz to
230 !21 kHz.
240 COM @Afg
250 OUTPUT @Afg;"SOUR:FREQ1:MODE SWE;"; !sweep mode
260 OUTPUT @Afg;" :SOUR:FREQ1:STAR 1E3;"; !start frequency
270 OUTPUT @Afg;" :SOUR:FREQ1:SPAN 20E3;"; !frequency span
280 OUTPUT @Afg;":SOUR:SWE:COUN INF;"; !sweep count
290 OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;"; !function
300 OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5 V" !amplitude
310 OUTPUT @Afg;"INIT:IMM" !wait-for-arm state
320 SUBEND
330 !
340 SUB Rst
350 Rst: !Subprogram which resets the E1445.
360 COM @Afg
370 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
380 ENTER @Afg;Complete
390 SUBEND
400 !
410 SUB Query
420 Query: !Subprogram which queries sweep parameters
430 COM @Afg
440 OUTPUT @Afg;"SOUR:FREQ1:CENT?"
Continued on Next Page
128 Sweeping and Frequency-Shift Keying Chapter 4