Agilent Technologies B1500A User Manual page 135

Dim sc()
Dim md()
Dim st()
Dim tm()
ReDim Preserve sc(nop) As Double
ReDim Preserve md(n)
ReDim Preserve st(n)
ReDim Preserve tm(n)
ret = agb1500_setAdc(vi, agb1500_HSPEED_ADC, agb1500_INTEG_MANUAL, smpl,
agb1500_FLAG_OFF)
ret = agb1500_setAdcType(vi, agb1500_CH_ALL, agb1500_HSPEED_ADC)
ret = agb1500_resetTimestamp(vi)
check_err vi, ret
ret = agb1500_force(vi, m(2), agb1500_VF_MODE, 0, ve, iecomp, 0)
ret = agb1500_force(vi, m(1), agb1500_VF_MODE, 0, vc, iccomp, 0)
ret = agb1500_setIv(vi, m(0), agb1500_SWP_VF_SGLLIN, 0, vb1, vb2, nop, hold, delay,
s_delay, ibcomp, pcomp)
check_err vi, ret
ret = agb1500_msweepMiv(vi, mch(0), mode(0), range(0), rep, sc(0), md(0), st(0),
tm(0))
check_err vi, ret
ret = agb1500_zeroOutput(vi, agb1500_CH_ALL)
check_err vi, ret
Line
43 to 50 Declares variables used to keep the measurement data, status data, and time stamp
data.
52 to 53 Sets the high speed ADC, and selects it for all measurement channels.
54 Resets time stamp.
57 to 59 Applies voltage to device, and sets the staircase sweep source.
62 Performs multi channel sweep measurement by the agb1500_msweepMiv function.
65 Sets the specified port to the zero output state.
55, 60, 63, and 66 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is
returned for the previous line.
Agilent B1500 VXIplug&play Driver User's Guide, Edition 3
As Double 'primary sweep output data
As Double 'sweep measurement data
As Long 'status data at each step
As Double 'time data at each step
As Double
As Long
As Double
Programming Examples for Visual Basic Users
Multi Channel Sweep Measurement
Description
'43
'50
'52
'57
'62
'65
3-41