Keysight Technologies E5260 Series, Руководство по программированию

Страница: 130 / 350

3- 22 Keysight E5260/E5270 Programming Guide, Edition 4
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.
Table 3-6 Staircase Sweep Measurement Example 2
Sub perform_meas(ByVal session As IMessage, ByVal t() As Integer) ’1
Dim i As Integer = 0 ’t(0): Drain
Dim j As Integer = 0 ’t(1): Gate
Dim nop1 As Integer = 11 ’t(2): Source
Dim nop2 As Integer = 3 ’t(3): Substrate
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 ’13
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 ’secondary sweep output value
Dim d_vg As Double = 0 ’secondary sweep step value (delta)
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) ’ASCII,<comma>,w/sweep source data ’27
session.WriteString("TSC 1" & vbLf) ’enables time stamp output
session.WriteString("FL 0" & vbLf) ’sets filter off
session.WriteString("AV 10,1" & vbLf) ’sets number of samples for 1 data
session.WriteString("DV " & t(3) & ",0,0,0.1" & vbLf) ’out= 0 V, comp= 0.1 A
session.WriteString("DV " & t(2) & ",0,0,0.1" & vbLf) ’out= 0 V, comp= 0.1 A
session.WriteString("MM 2," & t(0) & vbLf) ’2: staircase sweep measurement
session.WriteString("CMM " & t(0) & ",1" & vbLf) ’1: current measurement
session.WriteString("RI " & t(0) & ",0" & vbLf) ’0: auto ranging
session.WriteString("WT " & hold & "," & delay & "," & s_delay & vbLf)
session.WriteString("WM 2,1" & vbLf) ’stops any abnormal
session.WriteString("ERR? 1" & vbLf) : err = session.ReadString(4 + 2)
If err <> 0 Then session.WriteString("DZ" & vbLf) : GoTo Check_err ’39
Line Description
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.