Agilent Technologies 4155C, Руководство пользователя

Страница: 137 / 312

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 3-49
Programming Examples for Visual Basic Users
Sampling Measurements
Sub sampling_meas(vi As Long, ret As Long, m() As Long) ’1
Dim base As Double ’3
Dim bias As Double
Dim icomp As Double
Dim vlout As Double
Dim ilcomp As Double
Dim hold As Double
Dim interval As Double
Dim nop
As Long
base = 0
bias = 0.1
icomp = 0.1
vlout = 0
ilcomp = 0.1
hold = 0.1
interval = 0.05
nop = 30
Dim mch(3) As Long
Dim mode(2) As Long
Dim range(2) As Double
Dim n
As Long
n = nop * 2
mch(0) =
m(0) ’ t1
mch(1) = m(1) ’ t2
mch(2) = 0
mode(0) = 1
mode(1) = 1
range(0) = 0
range(1) = 0
Dim point As Long ’33
Dim index() As Long
Dim value() As Double
Dim status() As Long
ReDim Preserve index(nop) As Long
ReDim Preserve value(n)
As Double
ReDim Preserve status(n) As Long ’39
Line Description
1 Beginning of the sampling_meas subprogram.
3 to 31 Declares variables, and defines the value.
33 to 39 Declares variables used to keep index data, measurement data,
and status data. Also defines array size.