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

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

Programming Examples for Visual Basic Users

Pulsed Sweep Measurement

For j = 1 To nop2 ’66

dib(j - 1) = ibo

ret = agb1500_force(vi, m(1), agb1500_IF_MODE, 0, ibo, vbcomp, 0)

ret = agb1500_setPiv(vi, m(0), agb1500_SWP_VF_SGLLIN, 0, base, vc1, vc2, nop1,

hold, width, period, iccomp)

check_err vi, ret

ret = agb1500_sweepPiv(vi, m(0), agb1500_IM_MODE, 0, rep, sc(i), md(i), st(i),

tm(i))

check_err vi, ret

ibo = ibo + d_ib

If rep = nop1 Then ’74

i = i + nop1

Else

msg = rep & " measurement steps were returned. It must be " & nop1 & " steps."

MsgBox msg, vbOKOnly, ""

ret = agb1500_zeroOutput(vi, agb1500_CH_ALL)

check_err vi, ret

GoTo Bottom_sub

End If ’82

Next j ’83

ret = agb1500_zeroOutput(vi, agb1500_CH_ALL) ’85

check_err vi, ret

save_data nop1, nop2, md(), st(), sc(), tm(), dib(), vi, ret, m() ’88

Bottom_sub:

End Sub ’91

Line Description

68 to 69 Applies current to device, and sets the pulsed voltage sweep source.

71 Performs the pulsed sweep measurement.

73 to 82 Disables all ports and stops the program execution if the number of returned data is

not equal to the nop1 value.

85 Sets the specified port to the zero output state.

70, 72, 80, and 86 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is

returned for the previous line.

88 Calls the save_data subprogram (next page) to save measurement data.

91 End of the sweep_meas subprogram.

1 2 ... 136 137 138 139 140 141 142 143 144 145 146 ... 207 208

No comments

Agilent Technologies B1500A User's Guide Page 141