Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 4-17
Programming Examples for Visual Basic .NET Users
Multi-Channel Sweep Measurements
Multi-Channel Sweep Measurements
This section explains an example subprogram that performs multi channel sweep
measurement. This example measures bipolar transistor Ic-Vb and Ib-Vb
characteristics.
Table 4-6 Multi-Channel Sweep Measurement Example
Sub perform_meas(ByVal Ag415x As Hp4156b) ’1
Dim i As Integer = 0
Dim j As Integer = 0
Dim nop1 As Integer = 11
Dim nop2 As Integer = 1
Dim data(nop2, nop1) As String
Dim val As String = "Vb (V), Ib (mA), Status_b, Ic (mA), Status_c, hfe"
Dim fname As String = "C:\Agilent\data\data5.txt"
Dim title As String = "Sweep Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim t() As Integer = {2, 3, 1} ’13
Ag415x.SetSwitch(t(2), 1) ’SMU1: emitter
Ag415x.SetSwitch(t(1), 1) ’SMU3: collector
Ag415x.SetSwitch(t(0), 1) ’SMU2: base
Dim vc As Double = 3
Dim ve As Double = 0
Dim vb1 As Double = 0.3
Dim vb2 As Double = 0.8
Dim iccomp As Double = 0.1
Dim ibcomp As Double = 0.001
Dim iecomp As Double = 0.1
Dim hold As Double = 0
Dim delay As Double = 0
Dim s_delay As Double = 0
Dim pcomp As Double = 0
Dim mch() As Integer = {t(0), t(1), 0} ’base, collector
Dim mode() As Integer = {1, 1} ’current measurement
Dim range() As Double = {0.0001, 0.001} ’limited auto ranging (0.1 mA, 1 mA)
Dim rep As Integer = nop1
Dim sc(nop1) As Double ’primary sweep output data
Dim md(nop1 * 2) As Double ’sweep measurement data
Dim st(nop1 * 2) As Integer ’status data at each step ’35
Ag415x.SetInteg(Hp4156b.TableEnum.IntegTimeShort, 0.0001, 2)
Ag415x.SetIv(t(0), Hp4156b.ModeEnum4.SingleLinearV, 0, vb1, vb2, nop1, hold, delay,
s_delay, ibcomp, pcomp)
Line Description
2 to 11 Declares variables used in the program template. And sets the proper values.
13 to 35 Enables measurement channels. And declares variables and sets the value.
37 to 38 Sets the A/D converter integration time, and sets the primary sweep source.
To Next Page
Loading...
Need help?
General
