7-18 Chapter7
Programming Examples
Measurement Setup Examples
Call checkErr(vi, err_status)
‘ Channel 2
err_status = hp875x_channelSelect(vi, hp875x_CH2)
Call checkErr(vi, err_status)
‘ Turn auxiliary channel off.
err_status = hp875x_auxChannel(vi, hp875x_CH2, hp875x_OFF)
Call checkErr(vi, err_status)
‘ Return Loss measurement, no parameter conversion
err_status = hp875x_measType(vi, hp875x_S_PAR11, hp875x_CONV_OFF)
Call checkErr(vi, err_status)
‘ Phase display
err_status = hp875x_displaySelect(vi, hp875x_CH2, hp875x_DISP_DATA, hp875x_DISP_PHAS)
Call checkErr(vi, err_status)
‘ Dual channel display (single graticule)
err_status = hp875x_dualSplit(vi, hp875x_DUAL_CHAN_ON, hp875x_SPLIT_CHAN_OFF)
Call checkErr(vi, err_status)
‘ Request start and stop frequency
retString = InputBox$(“Enter Start Frequency (MHz)”, frmExample1a.Caption)
If retString = ““ Then Exit Sub
f_start = Val(retString) * 1000000# ‘ Convert to real value in Hz
retString = InputBox$(“Enter Stop Frequency (MHz)”, frmExample1a.Caption)
If retString = ““ Then Exit Sub
f_stop = Val(retString) * 1000000# ‘ Convert to real value in Hz
‘ Program the frequency settings
err_status = hp875x_frequency(vi, hp875x_FREQ_STRT_STOP, f_start, f_stop)
Call checkErr(vi, err_status)
‘ Autoscale the displays
err_status = hp875x_channelSelect(vi, hp875x_CH1)
Call checkErr(vi, err_status)
err_status = hp875x_autoscale(vi)
Call checkErr(vi, err_status)
err_status = hp875x_channelSelect(vi, hp875x_CH2)
Call checkErr(vi, err_status)
err_status = hp875x_autoscale(vi)
Call checkErr(vi, err_status)
msg = “The display should now be autoscaled.” & Chr$(13) & Chr$(10)
msg = msg & “Click OK to view four types of measurements “
msg = msg & “simultaneously on the network analyzer display.”
iRetVal = MsgBox(msg, vbOKCancel, frmExample1a.Caption)
If iRetVal = vbCancel Then Exit Sub
‘ Channel 1
err_status = hp875x_channelSelect(vi, hp875x_CH1)
Call checkErr(vi, err_status)
‘ Turn auxiliary channel on.
err_status = hp875x_auxChannel(vi, hp875x_CH1, hp875x_ON)
Call checkErr(vi, err_status)
‘ Channel 2
err_status = hp875x_channelSelect(vi, hp875x_CH2)
Call checkErr(vi, err_status)
‘ Turn auxiliary channel on.
err_status = hp875x_auxChannel(vi, hp875x_CH2, hp875x_ON)
Call checkErr(vi, err_status)
‘ Channel 2 Insertion Loss measurement, no parameter conversion
‘ For 8719ET/8720ET/8722ET/8753ET, hp875x_S_PAR21 is interpreted as hp875x_TRANS
err_status = hp875x_measType(vi, hp875x_S_PAR21, hp875x_CONV_OFF)
Call checkErr(vi, err_status)
‘ Log magnitude and autoscale
err_status = hp875x_displaySelect(vi, hp875x_CH2, hp875x_DISP_DATA, hp875x_DISP_LOGM)
To Next Page
Loading...
Need help?
General
