Agilent Technologies 4155C, Руководство пользователя

Страница: 167 / 312

Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 4-21
Programming Examples for Visual Basic .NET Users
Multi-Channel Pulsed Spot Measurements
Multi-Channel Pulsed Spot Measurements
This section explains an example subprogram that performs multi channel pulsed
spot measurement. This example measures bipolar transistor collector current and
base current.
Table 4-8 Multi-Channel Pulsed Spot Measurement Example
Sub perform_meas(ByVal Ag415x As Hp4156b) ’1
Dim i As Integer = 0
Dim j As Integer = 0
Dim nop1 As Integer = 1
Dim nop2 As Integer = 1
Dim data(nop2, nop1) As String
Dim val As String = "Ic (mA), Status_c, Ib (mA), Status_b, hfe"
Dim fname As String = "C:\Agilent\data\data7.txt"
Dim title As String = "Spot Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim t() As Integer = {1, 2, 3} ’13
Ag415x.SetSwitch(t(2), 1) ’SMU3: collector
Ag415x.SetSwitch(t(1), 1) ’SMU2: base
Ag415x.SetSwitch(t(0), 1) ’SMU1: emitter
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} ’collector, base
Dim mode() As Integer = {1, 1} ’current measurement
Dim range() As Double = {0, 0} ’auto range
Dim eod As Integer
Dim dtype As Integer
Dim mdata As Double
Dim stat As Integer
Dim ch As Integer
Dim md(2) As Double
Ag415x.SetFilter(t(0), Hp4156b.StateEnum2.FilterOff) ’32
Ag415x.Cmd("PT 0,0.005,0.01,0,1") ’sets pulse timing parameters
Ag415x.Cmd("PV 1,0,0,-0.8,0.1") ’sets pulse voltage source
Line Description
2 to 11 Declares variables used in the program template. And sets the proper values.
13 to 30 Enables measurement channels. And declares variables and sets the value.
32 to 34 Sets the filter off for the pulse output channel and sets the pulse voltage source.