Filter
Top Products
240 !
250 SUB Diffout
260 Diffout: !Subprogram which sets up the E1445A and E1446A
270 COM @Afg,@Amp
280 OUTPUT @Afg;"SOUR:FREQ1:FIX 1E3;"; !frequency
290 OUTPUT @Afg;":SOUR:FUNC:SHAP SIN;"; !function
300 OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL MIN;"; !amplitude (.161869 Vpk)
310 OUTPUT @Afg;":OUTP:LOAD:AUTO ON;"; !couple load to impedance
320 OUTPUT @Afg;":OUTP:IMP 50" !impedance
330 !
340 !Set up the Agilent E1446A
350 OUTPUT @Amp;"INP1:IMP 50" !input impedance
360 OUTPUT @Amp;"INP1:ATT 30" !input attenuation (dB)
370 OUTPUT @Amp;"OUTP2:IMP 50" !Diff + output impedance
380 OUTPUT @Amp;"OUTP3:IMP 50" !Diff - output impedance
390 !
400 OUTPUT @Afg;"INIT:IMM" !E1445A wait-for-arm state
410 SUBEND
420 !
430 SUB Rst
440 Rst: !Subprogram which resets the E1445A and E1446A
450 COM @Afg,@Amp
460 OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
470 ENTER @Afg;Complete
480 OUTPUT @Amp;"*RST;*OPC?" !reset the amplifier
490 ENTER @Amp;Complete
500 SUBEND
510 !
520 SUB Errmsg
530 Errmsg: !Subprogram which displays E1445/E1446 programming errors
540 COM @Afg,@Amp
550 DIM Message$[256]
560 !Read AFG (at sec addr 10) status byte register, clear service
570 !request bit
580 B=SPOLL(@Afg)
590 IF BIT(B,6) THEN !AFG requested service
600 !End of statement if error occurs among coupled commands
610 OUTPUT @Afg;""
620 OUTPUT @Afg;"ABORT"!abort output waveform
630 PRINT "E1445A errors"
640 PRINT
650 REPEAT
660 OUTPUT @Afg;"SYST:ERR?" !read AFG error queue
670 ENTER @Afg;Code,Message$
680 PRINT Code,Message$
690 UNTIL Code=0
Continued on Next Page
2-30 Programming the Agilent E1446A Using the Differential (small signal) Outputs