Agilent Technologies B1500A User Manual page 147

For j = 1 To nop2
dvg(j - 1) = vg
ret = agb1500_setPbias(vi, m(1), agb1500_VF_MODE, 0, 0, vg, width, period,
p_hold, igcomp)
ret = agb1500_setIv(vi, m(0), agb1500_SWP_VF_SGLLIN, 0, vd1, vd2, nop1, hold,
delay, s_delay, idcomp, p_comp)
check_err vi, ret
ret = agb1500_sweepPbias(vi, m(0), agb1500_IM_MODE, 0, rep, sc(i), md(i),
st(i), tm(i))
check_err vi, ret
vg = vg + d_vg
If rep = nop1 Then
i = i + nop1
Else
msg = rep & " measurement steps were returned. It must be " & nop1 & "
steps."
MsgBox msg, vbOKOnly, ""
ret = agb1500_zeroOutput(vi, agb1500_CH_ALL)
check_err vi, ret
GoTo Bottom_sub
End If
Next j
ret = agb1500_zeroOutput(vi, agb1500_CH_ALL)
check_err vi, ret
save_data nop1, nop2, dvg(), md(), st(), sc(), tm(), vi, ret, m()
Bottom_sub:
End Sub
Line
72 to 91 Measures MOSFET Id-Vd characteristics.
74 to 75 Sets the pulsed source and the voltage sweep source.
57 Performs the staircase sweep with pulsed bias measurement.
82 to 88 Disables all ports and stops the program execution if the number of returned data is
not equal to the nop1 value.
90 Sets the specified port to the zero output state.
76, 78, 86, and 91 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is
returned for the previous line.
93 Calls the save_data subprogram (next page) to save measurement data.
96 End of the sweep_meas subprogram.
Agilent B1500 VXIplug&play Driver User's Guide, Edition 3
Programming Examples for Visual Basic Users
Staircase Sweep with Pulsed Bias Measurement
'array counter for secondary sweep output data
Description
'72
'82
'88
'89
'90
'93
3-53