Specifications

Chapter 6 93
Retrieving Measurement Results
Retrieving the Measurement Results for Measurement Parameters 1
through 4
6. Retrieving Measurement
Results
600 OUTPUT @Agt4287a;"*CLS"
610 OUTPUT @Agt4287a;"*OPC?"
620 ENTER @Agt4287a;Buff$
630 !
640 ! Triggering and data read
650 !
660 ON INTR Scode GOTO Meas_end
670 ENABLE INTR Scode;2
680 PRINT "Push Trigger Key!"
690 Meas_wait: GOTO Meas_wait
700 Meas_end: OFF INTR Scode
710 OUTPUT @Agt4287a;":FETC?"
720 ENTER @Agt4287a;Res(*)
730 !
740 ! Display results
750 !
760 PRINT "### Result ###"
770 PRINT "No. Stat";
780 FOR J=1 TO 7
790 IF Stat(J)=1 THEN
800 PRINT USING "3X,5A,2X,#";Title$(J)
810 END IF
820 NEXT J
830 PRINT ""
840 !
850 Loc=1
860 FOR I=Star_no TO Stop_no
870 PRINT USING "2D,4X,D,#";I,Res(Loc)
880 Loc=Loc+1
890 FOR J=1 TO 7
900 IF Stat(J)=1 THEN
910 PRINT USING "X,MD.2DE,#";Res(Loc)
920 Loc=Loc+1
930 END IF
940 NEXT J
950 PRINT ""
960 NEXT I
970 IF Bin_stat=1 THEN
980 PRINT "BIN Sort:";Res(Loc)
990 END IF
1000 !
1010 Prog_end:END