Agilent Technologies B1500A Podręcznik Użytkownika Pobierz pdf (Strona 130)

3-36 Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3

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_sweepMiv(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. Also defines array size.

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_sweepMiv 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 ... 125 126 127 128 129 130 131 132 133 134 135 ... 207 208

Brak uwag

Agilent Technologies B1500A Podręcznik Użytkownika Strona 130