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

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

Programming Examples for Visual Basic Users

Staircase Sweep Measurement

ret = agb1500_resetTimestamp(vi) ’40

ret = agb1500_force(vi, m(3), agb1500_VF_MODE, 0, vcon1, 0.05, 0)

ret = agb1500_force(vi, m(2), agb1500_VF_MODE, 0, vcon2, 0.05, 0)

ret = agb1500_setIv(vi, m(1), agb1500_SWP_VF_SGLLIN, 0, vpri1, vpri2, nop, hold,

delay, s_delay, i1comp, p1comp)

check_err vi, ret

ret = agb1500_setNthSweep(vi, 2, m(0), agb1500_VF_MODE, 0, vsyn1, vsyn2, i2comp,

P2comp)

check_err vi, ret ’46

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

tm(0))

check_err vi, ret

ret = agb1500_zeroOutput(vi, agb1500_CH_ALL) ’51

Dim msg As String

If rep = nop Then ’54

save_data nop, md(), st(), sc(), tm(), vi, ret, m()

Else

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

MsgBox msg, vbOKOnly, ""

End If ’59

End Sub ’61

Line Description

40 Resets time stamp.

41 to 42 Applies voltage to device.

43 Sets the primary sweep source.

45 Sets the synchronous sweep source.

48 Performs the staircase sweep measurement.

51 Sets the specified port to the zero output state.

44, 46, and 49 Calls the check_err subprogram (shown in Table 3-1) to check if an error status is

returned for the previous line.

54 to 59 Calls the save_data subprogram to save measurement data. Or, displays a message

box if the number of returned data is not equal to the nop value.

61 End of the sweep_meas subprogram.

1 2 ... 120 121 122 123 124 125 126 127 128 129 130 ... 207 208

Žádné komentáře

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