Test 2-2: DC Accuracy (cont’d)Example Program (cont’d)
270 !---------- Set u p A F G ----------
280 OUTPUT @Afg;"*RST" !Reset AFG
290 WAIT .5
300 OUTPUT @Afg;"FUNC DC;"; !DC functio n
310 OUTPUT @Afg;":OUTP:LOAD INF;"; !Infinite load
320 OUTPUT @Afg;":VOLT MAX" !MAX output
330 !
340 !---------- Perf orm test ----------
350 PRINT "FILTER","AMPLITUDE"
360 PRINT
370 !
380 FOR I=1 TO 9
390 SELECT Filter(I)
400 CASE 0
410 OUTPUT @Afg;"OUTP:FILT OFF" !No filter
420 Filter$="NONE"
430 CASE 1
440 OUTPUT @Afg;"OUTP:FILT:FREQ 250KHZ" !250kHz filter
450 OUTPUT @Afg;"OUTP:FILT ON"
460 Filter$="250 kHz"
470 CASE 2
480 OUTPUT @Afg;"OUTP:FILT:FREQ 10MHZ" !10MHz filter
490 OUTPUT @Afg;"OUTP:FILT ON"
500 Filter$="10 MHz"
510 END SELECT
520 !
530 OUTPUT @Afg;"VOLT "&VAL$(Vout(I)) !Set amplitude
540 PRINT Filter$,Vout(I)
550 !
560 DISP "Record DMM reading, then press ’Continue’"
570 PAUSE
580 DISP
590 NEXT I
600 !
610 OUTPUT @Afg;"*RST;*CLS" !Reset AFG
620 END