Specifications

Chapter 7 165
Measurement Result Processing
Using Marker Function
7. Measurement Result Processing
530 SCPI.Output "CALC" & CStr(trc1) & ":MARK:REF ON"
540 SCPI.Output "CALC" & CStr(trc1) & ":MARK:REF:FUNC:DOM:LIM
ON"
550 SCPI.Output "CALC" & CStr(trc1) & ":MARK:REF:X " &
CStr(ref_stim)
560 SCPI.Output "CALC" & CStr(trc1) &
":MARK:REF:FUNC:DOM:LIM:UP " & CStr(ref_upp)
570 SCPI.Output "CALC" & CStr(trc1) &
":MARK:REF:FUNC:DOM:LIM:LOW " & CStr(ref_low)
580
590 For mkr = 1 To 8
600 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
" ON"
610 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":FUNC:DOM:LIM ON"
620 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":X " & CStr(mkr1_stim(mkr))
630 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":FUNC:DOM:LIM:UP " & CStr(mkr1_upp(mkr))
640 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":FUNC:DOM:LIM:LOW " & CStr(mkr1_low(mkr))
650 Next mkr
660
670 SCPI.Output "CALC" & CStr(trc1) & ":MARK:FUNC:DOM:LIM:ALL
ON"
680
690 SCPI.Output "TRIG:SOUR INT"
700 SCPI.Output "INIT:CONT OFF"
710 SCPI.Output "ABOR"
720
730 swp_bool = SCPI.Query("CALC:AVER?")
740 If swp_bool = 1 Then SCPI.Output "CALC:AVER:CLE"
750
760 bool = SingleMeasure
770 If bool = 0 Then
780 MsgBox ("Sweep Aborted")
790 ElseIf bool = 1 Then
800 SCPI.Output "DISP:TRAC" & CStr(trc1) & ":Y:AUTO"
810
820 SCPI.Output ("CALC" & CStr(trc1) & ":MARK:REF:Y?")
830 SCPI.Enter ref_meas
840 SCPI.Output ("CALC" & CStr(trc1) &
":MARK:REF:FUNC:DOM:LIM:RES?")
850 SCPI.Enter ref_judge
860
870 For mkr = 1 To 8
880 SCPI.Output ("CALC" & CStr(trc1) & ":MARK" & CStr(mkr)
& ":Y?")
890 SCPI.Enter mkr1_meas(mkr)
900 SCPI.Output ("CALC" & CStr(trc1) & ":MARK" & CStr(mkr)
& ":FUNC:DOM:LIM:RES?")
910 SCPI.Enter mkr1_judge(mkr)
920 Next mkr
930
940 all_judge = SCPI.Query("CALC" & CStr(trc1) &
":MARK:FUNC:DOM:LIM:ALL:RES?")
950
960 file = "a:\lim_res.txt"