3-40 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic Users
Multi-Channel Pulsed Sweep Measurements
Sub sweep_meas(vi As Long, ret As Long, m() As Long) ’1
Dim vc As Double ’3
Dim vb As Double
Dim iccomp As Double
Dim ibcomp As Double
Dim nop As Long
vc = 0
vb = 0
iccomp = 0.1
ibcomp = 0.1
nop = 11
Dim mch(3) As Long
Dim mode(2) As Long
Dim range(2) As Double
mch(0) = m(2) ’measurement channel: collector
mch(1) = m(1) ’measurement channel: base
mch(2) = 0
mode(0) = 1 ’current measurement mode
mode(1) = 1 ’current measurement mode
range(0) = 0 ’auto range
range(1) = 0 ’auto range
Dim rep As Long
Dim sc() As Double ’primary sweep output data
Dim md1() As Double ’sweep measurement data
Dim md2() As Double ’sweep measurement data
ReDim Preserve sc(nop) As Double
ReDim Preserve md1(nop) As Double
ReDim Preserve md2(nop) As Double
Dim eod As Long
Dim dtype As Long
Dim mdata As Double
Dim stat As Long
Dim ch As Long ’34
Line Description
1 Beginning of the sweep_meas subprogram.
3 to 34 Declares variables used in this subprogram, and defines the
value.
To Next Page
Loading...
Need help?
General
