Filter
Top Products
90 OUTPUT @Afg;"*CLS"
100 OUTPUT @Afg;"*SRE 32"
110 OUTPUT @Afg;"*ESE 60"
120 !
130 !Call the subprograms
140 Rst
150 Sine_wave
160 !
170 WAIT .1 !allow interrupt to be serviced
180 OFF INTR 7
190 END
200 !
210 SUB Sine_wave
220 Sine_wave: !Subprogram which sets the E1445A to output a sine wave
230 COM @Afg
240 OUTPUT @Afg;"SOUR:FREQ1:FIX 1E3;"; !frequency
250 OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;"; !function
260 OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 2VPP;"; !amplitude
270 OUTPUT @Afg;":OUTP:LOAD:AUTO ON;"; !couple load to impedance
280 OUTPUT @Afg;":OUTP:IMP 50" !output impedance
290 !
300 !Set up the Agilent E1446A
310 OUTPUT @Afg;"INP1:IMP 50" !input impedance
320 OUTPUT @Afg;"INP1:ATT 3" !input attenuation (dB)
330 OUTPUT @Afg;"OUTP2:IMP 50;"; !main output impedance
340 OUTPUT @Afg;":OUTP2:ATT 0" !main output attenuation
350 !
360 OUTPUT @Afg;"INIT:IMM" !E1445A wait-for-arm state
370 SUBEND
380 !
390 SUB Rst
400 Rst: !Subprogram which resets the E1445A and E1446A
410 COM @Afg
420 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
430 ENTER @Afg;Complete
440 SUBEND
450 !
460 SUB Errmsg
470 Errmsg: !Subprogram which displays E1445/E1446 programming errors
480 COM @Afg
490 DIM Message$[256]
500 !Read AFG status byte register and clear service request bit
510 B=SPOLL(@Afg)
520 !End of statement if error occurs among coupled commands
530 OUTPUT @Afg;""
540 OUTPUT @Afg;"ABORT" !abort output waveform
Continued on Next Page
Generating and Amplifying Sine Waves Programming the Agilent E1446A 2-11