3-20 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic Users
Synchronous Sweep Measurements
ret = hp4156b_force(vi, m(3), hp4156b_VF_MODE, 0, vcon1, 0.05, 0) ’40
ret = hp4156b_force(vi, m(2), hp4156b_VF_MODE, 0, vcon2, 0.05, 0)
ret = hp4156b_setIv(vi, m(1), hp4156b_SWP_VF_SGLLIN, 0, vpri1, vpri2, nop, hold,
delay, s_delay, i1comp, p1comp)
check_err vi, ret
ret = hp4156b_setSweepSync(vi, m(0), hp4156b_VF_MODE, 0, vsyn1, vsyn2, i2comp,
P2comp)
check_err vi, ret
ret = hp4156b_sweepIv(vi, m(0), hp4156b_IM_MODE, 0, rep, sc(0), md(0), st(0)) ’47
check_err vi, ret
ret = hp4156b_zeroOutput(vi, hp4156b_CH_ALL) ’50
Dim msg As String
If rep = nop Then ’53
save_data nop, md(), st(), sc(), vi, ret, m()
Else
msg = rep & " measurement steps were returned. It must be " & nop & " steps. "
MsgBox msg, vbOKOnly, ""
End If ’58
End Sub ’60
Line Description
40 to 41 Applies voltage to device.
42 Sets the primary sweep source.
44 Sets the synchronous sweep source.
47 Performs the staircase sweep measurement.
50 Sets the specified port to the zero output state.
43, 45, and 48 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is
returned for the previous line.
53 to 58 Calls the save_data subprogram to save measurement data. Or, displays a message
box if the number of returned data is not equal to the nop value.
60 End of the sweep_meas subprogram.
To Next Page
Loading...
Need help?
General
