Keysight Technologies E5260 Series Programming Manual page 130

Table 3-6
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 = "Vg (V), Vd (V), Id (mA), Time (sec), Status"
Dim fname As String = "C:\Keysight\prog_ex\data4r.txt"
Dim title As String = "Measurement Result"
Dim msg As String = "No error."
Dim err As Integer = 0
Dim vd1 As Double = 0
Dim vd2 As Double = 3
Dim idcomp As Double = 0.05
Dim vg1 As Double = 1
Dim vg2 As Double = 3
Dim igcomp As Double = 0.01
Dim vg As Double = vg1
Dim d_vg As Double = 0
If nop2 <> 1 Then d_vg = (vg2 - vg1) / (nop2 - 1)
Dim hold As Double = 0
Dim delay As Double = 0
Dim s_delay As Double = 0
Dim p_comp As Double = 0.3
session.WriteString("FMT 5,1" & vbLf)
session.WriteString("TSC 1" & vbLf)
session.WriteString("FL 0" & vbLf)
session.WriteString("AV 10,1" & vbLf)
session.WriteString("DV " & t(3) & ",0,0,0.1" & vbLf)
session.WriteString("DV " & t(2) & ",0,0,0.1" & vbLf)
session.WriteString("MM 2," & t(0) & vbLf)
session.WriteString("CMM " & t(0) & ",1" & vbLf) '1: current measurement
session.WriteString("RI " & t(0) & ",0" & vbLf)
session.WriteString("WT " & hold & "," & delay & "," & s_delay & vbLf)
session.WriteString("WM 2,1" & vbLf)
session.WriteString("ERR? 1" & vbLf) : err = session.ReadString(4 + 2)
If err <> 0 Then session.WriteString("DZ" & vbLf) : GoTo Check_err
Line
1 to 25 Declares variables and set the value. Almost same as the previous program. Only the
fname value is different.
27 Sets the data output format. A comma will be sent as the data terminator.
28 to 39 Sets the measurement condition. Same as the lines 33 to 44 of the previous program.
Programming Examples
Staircase Sweep Measurements
The following program performs the same measurement as the previous program
(Table 3-5). This program starts to read measurement data before the sweep
measurement is completed.
Staircase Sweep Measurement Example 2
3- 22 Keysight E5260/E5270 Programming Guide, Edition 4
't(0): Drain
't(1): Gate
't(2): Source
't(3): Substrate
'secondary sweep output value
'secondary sweep step value (delta)
'ASCII,<comma>,w/sweep source data
'enables time stamp output
'sets filter off
'sets number of samples for 1 data
'2: staircase sweep measurement
'0: auto ranging
'stops any abnormal
Description
'out= 0 V, comp= 0.1 A
'out= 0 V, comp= 0.1 A
'1
'13
'27
'39