Specifications

Chapter 6 135
Read and Write Measurement Data
Example Programs for Reading Internal Data Arrays
6. Read and Write Measurement Data
670 ENTER @Agte4991a USING "#,8A";Header$
680 ENTER @Binary;Swp_prm(*)
690 ENTER @Agte4991a USING "#,1A";Buff$
700 !
710 PRINT "BIAS MONITOR RESULT"
720 PRINT
730 PRINT "DC Bias[V] Z[ohm] Mon Bias[V]"
740 PRINT "---------------------------------------"
750 FOR I=1 TO Nop
760 PRINT Swp_prm(I),Meas_data(I),Mon_bias(I)
770 NEXT I
780 !
790 END
800 !
810 SUB Sweep(@Agte4991a)
820 DIM Buff$[9]
830 INTEGER Swp_bool
840 !
850 OUTPUT @Agte4991a;"CALC:AVER?"
860 ENTER @Agte4991a;Swp_bool
870 IF Swp_bool=1 THEN OUTPUT @Agte4991a;"CALC:AVER:CLE"
880 !
890 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
900 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
910 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
920 OUTPUT @Agte4991a;"*SRE 128"
930 OUTPUT @Agte4991a;"*CLS"
940 OUTPUT @Agte4991a;"*OPC?"
950 ENTER @Agte4991a;Buff$
960 !
970 ON INTR 7 GOTO Swp_end
980 ENABLE INTR 7;2
990 OUTPUT @Agte4991a;"INIT"
1000 DISP "Now Measuring..."
1010 Swp_wait: GOTO Swp_wait
1020 Swp_end: DISP "Sweep Complete"
1030 OFF INTR 7
1040 SUBEND