Table of Contents
Advertisement
HP IBASIC (SMPLSWP1)
Chapter 4
1
!RE-SAVE"SMPLSWP1"
2
!This program sweeps a sine wave from 0 Hz to 1 MHz by specifying
3
!start and stop frequencies.
4
!
10
!Assign I/O path between IBASIC and the E1340A.
20
ASSIGN @Afg TO 80910
30
COM @Afg
40
!
50
!Set up error checking
60
ON INTR 8 CALL Errmsg
70
ENABLE INTR 8;2
80
OUTPUT @Afg;"*CLS"
90
OUTPUT @Afg;"*SRE 32"
100
OUTPUT @Afg;"*ESE 60"
110
!
120
!Call the subprogram which resets the AFG.
130
CALL Rst
140
!
150
!Set AFG parameters
160
OUTPUT @Afg;"SOUR:ROSC:SOUR INT;";!reference oscillator
170
OUTPUT @Afg;":SOUR:FREQ:MODE SWE;";!frequency mode
180
OUTPUT @Afg;":SOUR:FREQ:STAR 0;";!start frequency
190
OUTPUT @Afg;":SOUR:FREQ:STOP 1E6;";!stop frequency
200
OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;"; !function
210
OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5V" !amplitude
220
OUTPUT @Afg;"INIT:IMM"
230
!
240
!Call subprogram which queries sweep parameters
250
CALL Query
260
!
270
WAIT .1
280
OFF INTR 8
290
END
300
!
310
SUB Query
320 Query: !Subprogram which queries sweep parameters
330
COM @Afg
340
OUTPUT @Afg;"SOUR:FREQ:STAR?"
350
ENTER @Afg;Sweep1$
360
OUTPUT @Afg;"SOUR:FREQ:STOP?"
370
ENTER @Afg;Sweep2$
380
OUTPUT @Afg;"SOUR:FREQ:CENT?"
390
ENTER @Afg;Sweep3$
Continued on next page
HP E1340A Sweeping and Frequency-Shift Keying
!wait-for-arm state
!allow interrupt to be serviced
86
Advertisement
Table of Contents
