Keysight Technologies E5260 Series Programming Manual page 137

Table 3-8
Sub perform_meas(ByVal session As IMessage, ByVal t() As Integer)
Dim i As Integer = 0
Dim j As Integer = 0
Dim nop1 As Integer = 11
Dim nop2 As Integer = 3
Dim data(nop2 - 1, nop1 - 1) As String
Dim value As String = "Ib (mA), Vc (V), Ic (mA), Time (sec), Status"
Dim fname As String = "C:\Keysight\prog_ex\data6.txt"
Dim title As String = "Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim v0 As Double = 0
Dim vc1 As Double = 0
Dim vc2 As Double = 5
Dim iccomp As Double = 0.05
Dim ib1 As Double = 0.003
Dim ib2 As Double = 0.007
Dim vbcomp As Double = 5
Dim ib As Double = ib1
Dim d_ib As Double = 0
If nop2 <> 1 Then d_ib = (ib2 - ib1) / (nop2 - 1)
Dim hold As Double = 0
Dim delay As Double = 0
Dim s_delay As Double = 0
Dim rep As Integer = nop1
Dim mret As String
Dim sc(nop1) As Double
Dim md(nop1) As Double
Dim st(nop1) As String
Dim tm(nop1) As Double
session.WriteString("FMT 1,1" & vbLf)
session.WriteString("TSC 1" & vbLf)
session.WriteString("FL 1" & vbLf)
session.WriteString("AV 10,1" & vbLf)
session.WriteString("CL " & t(3) & vbLf)
Line
2 to 11 Declares variables used through the project. And sets the proper values.
13 to 26 Declares variables used to set the source output, and sets the value.
27 to 31 Declares variables used to read the measurement data.
32 to 35 Sets the data output format, time stamp data output mode, SMU filter, and averaging.
36 Disables SMU assigned to t(3) that is not needed.
A program example of a pulsed sweep measurement is shown below. This example
measures the bipolar transistor Ic-Vc characteristics.
Pulsed Sweep Measurement Example
Keysight E5260/E5270 Programming Guide, Edition 4
Pulsed Sweep Measurements
't(0): Emitter
't(1): Base
't(2): Collector
't(3): not use
'secondary sweep output value
'secondary sweep step value (delta)
'ASCII, <CRLF EOI>, w/sweep source data
'enables time stamp output
'sets filter on
'sets number of samples for 1 data
Description
Programming Examples
'1
'13
'27
'36
3- 29