Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3 3-41
Programming Examples for Visual Basic Users
Multi Channel Sweep Measurement
Dim sc() As Double ’primary sweep output data ’43
Dim md() As Double ’sweep measurement data
Dim st() As Long ’status data at each step
Dim tm() As Double ’time data at each step
ReDim Preserve sc(nop) As Double
ReDim Preserve md(n) As Double
ReDim Preserve st(n) As Long
ReDim Preserve tm(n) As Double ’50
ret = agb1500_setAdc(vi, agb1500_HSPEED_ADC, agb1500_INTEG_MANUAL, smpl,
agb1500_FLAG_OFF) ’52
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) ’57
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)) ’62
check_err vi, ret
ret = agb1500_zeroOutput(vi, agb1500_CH_ALL) ’65
check_err vi, ret
Line Description
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.
To Next Page
Loading...
Need help?
General
