User`s guide

3-40 Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3
Programming Examples for Visual Basic Users
Multi Channel Sweep Measurement
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
Dim smpl 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
smpl = 5
n = nop *2 ’30
Dim msg As String
Dim mch(3) As Long ’32
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 ’41
Line Description
1 Beginning of the sweep_meas subprogram.
3 to 30 Declares variables used to set the source channels, and defines
the value.
32 to 41 Declares variables used to set the measurement channels, and
defines the value.