Specifications
156 Chapter 7
Measurement Result Processing
Using Marker Function
" ON"
470 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr2) &
" ON"
480 SCPI.Output "CALC" & CStr(trc1) & ":MARK:DISC OFF"
490
500 SCPI.Output "CALC" & CStr(trc1) & ":MARK:FUNC:DOM ON"
510 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":ACT"
520 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":X " & CStr(sear_start)
530 SCPI.Output "CALC" & CStr(trc1) & ":MARK:FUNC:DOM:STAR"
540 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr) &
":X " & CStr(sear_stop)
550 SCPI.Output "CALC" & CStr(trc1) & ":MARK:FUNC:DOM:STOP"
560
570 SCPI.Output "CALC" & CStr(trc1) & ":MARK:APE:EXC:X " &
CStr(delta_x)
580 SCPI.Output "CALC" & CStr(trc1) & ":MARK:APE:EXC:Y " &
CStr(delta_y)
590
600 msg = "Search range: " & CStr(sear_start / 1000000#) &
"MHz - " & CStr(sear_stop / 1000000#) & "MHz"
610
620 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr1) &
":X " & CStr(sear_start)
630 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr1) &
":ACT"
640 SCPI.Output "CALC" & CStr(trc1) & ":MARK:FUNC:EXEC PPE"
650 peak_query = peak_not_found(trc1)
660 If peak_query = 1 Then
670 MsgBox ("Positive Peak Not Found")
680 ElseIf peak_query = 0 Then
690 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr1)
& ":X?"
700 SCPI.Enter p_peak_x
710 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr1)
& ":Y?"
720 SCPI.Enter p_peak_y
730 MsgBox (msg & vbCrLf & "Positive Peak: " &
CStr(p_peak_y) & "[ohm] @" & CStr(p_peak_x / 1000000#) & "MHz")
740 End If
750
760 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr2) &
":X " & CStr(sear_start)
770 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr2) &
":ACT"
780 SCPI.Output "CALC" & CStr(trc1) & ":MARK:FUNC:EXEC NPE"
790 peak_query = peak_not_found(trc1)
800 If peak_query = 1 Then
810 MsgBox ("Negative Peak Not Found")
820 ElseIf peak_query = 0 Then
830 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr2)
& ":X?"
840 SCPI.Enter n_peak_x
850 SCPI.Output "CALC" & CStr(trc1) & ":MARK" & CStr(mkr2)
& ":Y?"
860 SCPI.Enter n_peak_y
870 MsgBox (msg & vbCrLf & "Negative Peak: " &