Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-47
Programming Examples for Visual Basic Users
Pulsed Sweep Measurement
For j = 1 To nop2 ’66
dib(j - 1) = ibo
ret = agb1500_force(vi, m(1), agb1500_IF_MODE, 0, ibo, vbcomp, 0)
ret = agb1500_setPiv(vi, m(0), agb1500_SWP_VF_SGLLIN, 0, base, vc1, vc2, nop1,
hold, width, period, iccomp)
check_err vi, ret
ret = agb1500_sweepPiv(vi, m(0), agb1500_IM_MODE, 0, rep, sc(i), md(i), st(i),
tm(i))
check_err vi, ret
ibo = ibo + d_ib
If rep = nop1 Then ’74
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 ’82
Next j ’83
ret = agb1500_zeroOutput(vi, agb1500_CH_ALL) ’85
check_err vi, ret
save_data nop1, nop2, md(), st(), sc(), tm(), dib(), vi, ret, m() ’88
Bottom_sub:
End Sub ’91
Line Description
68 to 69 Applies current to device, and sets the pulsed voltage sweep source.
71 Performs the pulsed sweep measurement.
73 to 82 Disables all ports and stops the program execution if the number of returned data is
not equal to the nop1 value.
85 Sets the specified port to the zero output state.
70, 72, 80, and 86 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is
returned for the previous line.
88 Calls the save_data subprogram (next page) to save measurement data.
91 End of the sweep_meas subprogram.
To Next Page
Loading...
Need help?
General
