4-26 Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4
Programming Examples for Visual Basic .NET Users
Multi-Channel Pulsed Sweep Measurements
Multi-Channel Pulsed Sweep Measurements
This section explains an example subprogram that performs multi channel pulsed
sweep measurement. This example measures bipolar transistor Ic-Vb and Ib-Vb
characteristics.
Table 4-10 Multi-Channel Pulsed 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 = 3
Dim data(nop2, nop1) as String
Dim val As String = "Ic (mA), Status_c, Ib (mA), Status_b, Ve (V)"
Dim fname As String = "C:\Agilent\data\data9.txt"
Dim title As String = "Sweep Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim t() As Integer = {1, 2, 3} ’13
Ag415x.SetSwitch(t(0), 1) ’SMU1: emitter
Ag415x.SetSwitch(t(1), 1) ’SMU2: base
Ag415x.SetSwitch(t(2), 1) ’SMU3: collector
Dim vc As Double = 0
Dim vb As Double = 0
Dim iccomp As Double = 0.1
Dim ibcomp As Double = 0.1
Dim mch() As Integer = {t(2), t(1), 0} ’measurement channels
Dim mode() As Integer = {1, 1} ’current measurement mode
Dim range() As Double = {0, 0} ’auto ranging
Dim eod As Integer
Dim dtype As Integer
Dim mdata As Double
Dim stat As Integer
Dim ch As Integer
Ag415x.SetFilter(t(0), Hp4156b.StateEnum2.FilterOff) ’31
Ag415x.SetInteg(Hp4156b.TableEnum.IntegTimeShort, 0.0001, 1)
Ag415x.Cmd("PT 0,0.005,0.01,0,1") ’sets pulse timing parameters
Ag415x.Cmd("PWV 1,1,0,0,0,-0.8,11,0.1,0") ’sets pulsed sweep source
Line Description
2 to 11 Declares variables used in the program template. And sets the proper values.
13 to 29 Enables measurement channels. And declares variables and sets the value.
31 to 34 Sets the filter off for the pulse output channel and sets the A/D converter integration time.
Also sets the pulse voltage source.
To Next Page
Loading...
Need help?
General
