Agilent Technologies 4155C, User Manual

Page: 127 / 312

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 3-39
Programming Examples for Visual Basic Users
Multi-Channel Pulsed Sweep Measurements
Multi-Channel Pulsed Sweep Measurements
This section explains example subprograms that enable/disable measurement
channels (perform_meas), perform multi channel pulsed sweep measurement
(sweep_meas), and save measurement result data into a file (save_data). This
example measures bipolar transistor Ic-Vb and Ib-Vb characteristics.
Table 3-10 Multi-Channel Pulsed Sweep Measurement Example
Sub perform_meas(vi As Long, ret As Long) ’1
Dim m(3) As Long ’SMU port numbers ’3
m(0) = 1 ’SMU1: emitter
m(1) = 2 ’SMU2: base
m(2) = 4 ’SMU4: collector
ret = hp4156b_setSwitch(vi, m(0), 1) ’8
ret = hp4156b_setSwitch(vi, m(1), 1)
ret = hp4156b_setSwitch(vi, m(2), 1)
check_err vi, ret
sweep_meas vi, ret, m() ’13
ret = hp4156b_setSwitch(vi, hp4156b_CH_ALL, 0) ’15
check_err vi, ret
End Sub ’18
Line Description
1 Beginning of the perform_meas subprogram.
3 to 6 Declares variables, and defines the value.
8 to 10 Enables measurement channels.
13 Calls the sweep_meas subprogram (next page) to perform multi
channel pulsed sweep measurement.
15 Disables measurement channels.
11 and 16 Calls the check_err subprogram (shown in Table 3-1) to check if
an error status is returned for the previous line.
18 End of the perform_meas subprogram.