Agilent Technologies B1500A Uživatelská příručka stáhnout pdf (Strana 102)

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

Programming Examples for Visual Basic Users

High Speed Spot Measurement

Sub spot_meas(vi As Long, ret As Long, pins() As Long) ’1

Dim vd As Double ’3

Dim vg As Double

Dim idcomp As Double

Dim igcomp As Double

Dim meas As Double

Dim status As Long

vd = 0.5

idcomp = 0.05

vg = 0.5

igcomp = 0.01 ’12

ret = agb1500_force(vi, pins(3), agb1500_VF_MODE, 0, 0, 0.05, 0) ’14

ret = agb1500_force(vi, pins(2), agb1500_VF_MODE, 0, 0, 0.05, 0)

ret = agb1500_force(vi, pins(1), agb1500_VF_MODE, 2, vg, igcomp, 0)

ret = agb1500_force(vi, pins(0), agb1500_VF_MODE, 2, vd, idcomp, 0) ’17

check_err vi, ret

ret = agb1500_spotMeas(vi, pins(0), agb1500_IM_MODE, 0, meas, status, 0) ’20

check_err vi, ret

ret = agb1500_zeroOutput(vi, agb1500_CH_ALL) ’22

check_err vi, ret

display_data meas, status, vi, ret, pins()

End Sub

Line Description

1 Beginning of the spot_meas subprogram.

3 to 12 Declares variables, and defines the value.

14 to 17 Applies voltage to device.

20 Performs the high speed spot measurement.

22 Sets the specified port to the zero output state.

18, 21, and 23 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is

returned for the previous line.

25 Calls the display_data subprogram (next page) to display measurement data.

26 End of the spot_meas subprogram.

1 2 ... 97 98 99 100 101 102 103 104 105 106 107 ... 207 208

Žádné komentáře

Agilent Technologies B1500A Uživatelská příručka Strana 102