Agilent 4155C/4156C VXIplug&play Driver User’s Guide, Edition 4 4-23
Programming Examples for Visual Basic .NET Users
Pulsed Sweep Measurements
Pulsed Sweep Measurements
This section explains an example subprogram that performs pulsed sweep
measurement. This example measures bipolar transistor Ic-Vc characteristics.
Table 4-9 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 = "Ib (uA), Vc (V), Ic (mA), Status"
Dim fname As String = "C:\Agilent\data\data8.txt"
Dim title As String = "Sweep Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim t() As Integer = {3, 2, 1} ’13
Ag415x.SetSwitch(t(2), 1) ’SMU1: emitter
Ag415x.SetSwitch(t(1), 1) ’SMU2: base
Ag415x.SetSwitch(t(0), 1) ’SMU3: collector
Dim vc1 As Double = 0
Dim vc2 As Double = 3
Dim iccomp As Double = 0.05
Dim ib1 As Double = 0.00005 ’ 50 uA
Dim ib2 As Double = 0.00015 ’150 uA
Dim vbcomp As Double = 5
Dim ibo As Double = ib1 ’secondary sweep output value
Dim d_ib As Double ’secondary sweep step value (delta)
If nop2 <> 1 Then d_ib = (ib2 - ib1) / (nop2 - 1)
Dim hold As Double = 0.1
Dim width As Double = 0.001
Dim period As Double = 0.01
Dim base As Double = 0
Dim rep As Integer
Dim sc(nop1) As Double ’primary sweep output data
Dim md(nop1) As Double ’sweep measurement data
Dim st(nop1) As Integer ’status data at each step
Ag415x.SetFilter(t(0), Hp4156b.StateEnum2.FilterOff) ’36
Ag415x.SetInteg(Hp4156b.TableEnum.IntegTimeShort, 0.0001, 2)
Line Description
2 to 11 Declares variables used in the program template. And sets the proper values.
13 to 34 Enables measurement channels. And declares variables and sets the value.
36 to 37 Sets the filter off for the pulse output channel and sets the A/D converter integration time.
To Next Page
Loading...
Need help?
General
