Agilent Technologies B1500A User's Guide download pdf (Page 135)

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.

1 2 ... 130 131 132 133 134 135 136 137 138 139 140 ... 207 208

No comments

Agilent Technologies B1500A User's Guide Page 135