Specifications

130 Chapter 6
Read and Write Measurement Data
Example Programs for Reading Internal Data Arrays
220 !
230 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc1)&":Y:AUTO"
240 !
250 OUTPUT @Agte4991a;"FORM:DATA ASC"
260 !
270 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":DATA? FDATA"
280 ENTER @Agte4991a;Meas_data(*)
290 OUTPUT @Agte4991a;"SWE:STIM1?"
300 ENTER @Agte4991a;Swp_prm(*)
310 !
320 END
330 !
340 SUB Sweep(@Agte4991a)
350 DIM Buff$[9]
360 INTEGER Swp_bool
370 !
380 OUTPUT @Agte4991a;"CALC:AVER?"
390 ENTER @Agte4991a;Swp_bool
400 IF Swp_bool=1 THEN OUTPUT @Agte4991a;"CALC:AVER:CLE"
410 !
420 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
430 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
440 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
450 OUTPUT @Agte4991a;"*SRE 128"
460 OUTPUT @Agte4991a;"*CLS"
470 OUTPUT @Agte4991a;"*OPC?"
480 ENTER @Agte4991a;Buff$
490 !
500 ON INTR 7 GOTO Swp_end
510 ENABLE INTR 7;2
520 OUTPUT @Agte4991a;"INIT"
530 DISP "Now Measuring..."
540 Swp_wait: GOTO Swp_wait
550 Swp_end: DISP "Sweep Complete"
560 OFF INTR 7
570 SUBEND