Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 4-13
Programming Examples for Visual Basic .NET Users
Staircase Sweep Measurements
Ag415x.Force(t(2), Hp4156b.ModeEnum.VoltageOutput, 0, 0, 0.05, 0) ’38
Ag415x.Force(t(3), Hp4156b.ModeEnum.VoltageOutput, 0, 0, 0.05, 0)
For j = 0 To nop2 - 1 ’41
Ag415x.SetIv(t(0), Hp4156b.ModeEnum4.SingleLinearV, 0, vd1, vd2, nop1, hold,
delay, s_delay, idcomp, p_comp)
Ag415x.ErrorQuery(err, msg)
If err <> 0 Then Ag415x.ZeroOutput(0) : GoTo Check_err
Ag415x.Force(t(1), Hp4156b.ModeEnum.VoltageOutput, 0, vg, igcomp, 0) ’46
Ag415x.SweepIv(t(0), Hp4156b.ModeEnum1.CurrentMeasurement, 0, rep, sc, md, st)
If rep <> nop1 Then Ag415x.ZeroOutput(0) : GoTo Check_err
For i = 0 To nop1 - 1 ’50
data(j, i) = Chr(13) & Chr(10) & vg & "," & sc(i) & "," & md(i) * 1000 & "," &
st(i)
Next i
vg = vg + d_vg
Next j
Ag415x.ZeroOutput(0) ’57
save_data(fname, title, val, data, nop1, nop2, Ag415x)
Check_err: ’60
If err <> 0 Then MsgBox("Instrument error: " & err & Chr(10) & msg, vbOKOnly, "")
If rep <> nop1 Then MsgBox("No. of data: " & rep & " (not " & nop1 & ")", vbOKOnly,
"")
End Sub
Line Description
38 to 39 Applies voltage to device.
42 Sets the primary sweep source.
43 to 44 Checks if an error occurred. If an error is detected, forces 0 V and goes to Check_err.
46 to 48 Applies voltage to the device and performs staircase sweep measurement. After that, checks
the number of returned data. If it was not rep= nop1, forces 0 V and goes to Check_err.
50 to 52 Stores the measured data into the data valiable.
57 to 58 Applies 0 V from the all channels. And transfers the data stored in the data variable to the
save_data subprogram (see Table 4-1). And the subprogram will save the data into the
C:\Agilent\data\data3.txt file (CSV) and displays the data on a message box.
60 to 62 Displays a message box to show an error message if the error is detected.
To Next Page
Loading...
Need help?
General
