Agilent Technologies B1500A

3-20 Agilent B1500 VXIplug&play Driver User’s Guide, Edition 3
Programming Examples for Visual Basic Users
Staircase Sweep Measurement
ret = agb1500_resetTimestamp(vi) ’45
check_err vi, ret
ret = agb1500_force(vi, m(3), agb1500_VF_MODE, 0, 0, 0.05, 0)
ret = agb1500_force(vi, m(2), agb1500_VF_MODE, 0, 0, 0.05, 0)
Dim d_vg As Double ’secondary sweep step value (delta) ’51
If nop2 = 1 Then
d_vg = 0
Else
d_vg = (vg2 - vg1) / (nop2 - 1)
End If ’56
Dim vg As Double ’secondary sweep source output ’58
vg = vg1
i = 0 ’array counter for sweepIv returned data ’61
Line Description
45 Resets time stamp.
46 Calls the check_err subprogram (shown in Table 3-1) to check if
an error status is returned for the previous line.
48 to 49 Applies voltage to device.
51 to 56 Declares a variable, and defines the value. This variable is used
for the step value of the secondary sweep source.
58 to 59 Declares a variable, and defines the value. This variable is used
for the output value of the secondary sweep source.
61 Sets the array counter i to 0.