3-24 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic Users
Multi-Channel Sweep Measurements
Sub sweep_meas(vi As Long, ret As Long, m() As Long) ’1
Dim vc As Double ’3
Dim ve As Double
Dim vb1 As Double
Dim vb2 As Double
Dim iccomp As Double
Dim ibcomp As Double
Dim iecomp As Double
Dim hold As Double
Dim delay As Double
Dim s_delay As Double
Dim pcomp As Double
Dim nop As Long
Dim n As Long
vc = 3
iccomp = 0.1
ve = 0
iecomp = 0.1
vb1 = 0.3
vb2 = 0.8
ibcomp = 0.001
hold = 0
delay = 0
s_delay = 0
pcomp = 0
nop = 11
n = nop *2
Dim mch(3) As Long
Dim mode(2) As Long
Dim range(2) As Double
mch(0) = m(0) ’base
mch(1) = m(1) ’collector
mch(2) = 0
mode(0) = 1 ’current measurement
mode(1) = 1 ’current measurement
range(0) = -0.001 ’ 1 mA range fixed
range(1) = -0.1 ’100 mA range fixed
Dim rep As Long
Dim sc() As Double ’primary sweep output data
Dim md() As Double ’sweep measurement data
Dim st() As Long ’status data at each step
ReDim Preserve sc(nop) As Double
ReDim Preserve md(n) As Double
ReDim Preserve st(n) As Long ’46
Line Description
1 Beginning of the sweep_meas subprogram.
3 to 46 Declares variables used in this subprogram, and defines the
value.
To Next Page
Loading...
Need help?
General
