Agilent Technologies B1500A Manuel de service télécharger pdf (Page 200)

100

101

3-22 Agilent B1500A/B1505A Programming Guide, Edition 11

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:\Agilent\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.

1 2 ... 195 196 197 198 199 200 201 202 203 204 205 ... 597 598

Commentaires sur ces manuels

Pas de commentaire

Agilent Technologies B1500A Manuel de service Page 200

Commentaires sur ces manuels

Produits connexes et manuels pour Mesure, test et contrôle Agilent Technologies B1500A