Agilent Technologies B1500A Servisní příručka Strana 266

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 598
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 265
3-88 Agilent B1500A/B1505A Programming Guide, Edition 11
Programming Examples
Pulsed Sweep CV Measurements
Dim g_pt As String = "0.5, 0.1, 0.2" ’hold, width, period in sec ’61
Dim v0 As Double = 0 0 V: pulse base voltage
session.WriteString("WMDCV 2, 1" & vbLf)
session.WriteString("PTDCV " & g_pt & vbLf)
session.WriteString("PWDCV " & t(1) & ",1," & v0 & "," & vg1 & "," & vg2 & "," &
nop1 & vbLf)
session.WriteString("MM 20," & t(1) & vbLf)
session.WriteString("IMP 100" & vbLf)
session.WriteString("LMN 1" & vbLf)
session.WriteString("RC " & t(1) & "," & range & vbLf)
session.WriteString("ERR? 1" & vbLf) : err = session.ReadString(4 + 2)
If err <> 0 Then session.WriteString("DZ" & vbLf) : GoTo Check_err
session.WriteString("TSR" & vbLf)
session.WriteString("XE" & vbLf)
session.WriteString("*OPC?" & vbLf) : rep = session.ReadString(1 + 2) ’74
session.WriteString("ERR? 1" & vbLf) : err = session.ReadString(4 + 2)
If err <> 0 Then session.WriteString("DZ" & vbLf) : GoTo Check_err
session.WriteString("NUB?" & vbLf) : rep = session.ReadString(3 + 2)
If rep <> nop1 * 4 Then session.WriteString("DZ" & vbLf) : GoTo Check_nop ’78
Dim mret As String = session.ReadString(16 * 4 * nop1 + 2) ’4*nop1 + terminator
For i = 0 To nop1 - 1
st(i * 2) = Mid(mret, i * 16 * 4 + 16 * 1 + 1, 3)
st(i * 2 + 1) = Mid(mret, i * 16 * 4 + 16 * 2 + 1, 3)
tm(i) = Val(Mid(mret, i * 16 * 4 + 4, 12))
md(i * 2) = Val(Mid(mret, i * 16 * 4 + 16 * 1 + 4, 12))
md(i * 2 + 1) = Val(Mid(mret, i * 16 * 4 + 16 * 2 + 4, 12))
sc(i) = Val(Mid(mret, i * 16 * 4 + 16 * 3 + 4, 12))
data(j, i) = Chr(13) & Chr(10) & sc(i) & "," & md(i * 2) * 1000000000000.0 & ","
& st(i * 2)
data(j, i) = data(j, i) & "," & md(i * 2 + 1) * 1000000.0 & "," & st(i * 2 + 1)
& "," & tm(i)
Next i ’90
Line Description
61 to 73 Sets the measurement condition, resets the time stamp, and performs the measurement.
63 Sets the automatic abort function to ON, and sets the post measurement output value to vg1.
64 Sets the pulsed sweep timing parameters of MFCMU.
65 Sets the pulsed sweep voltage output of MFCMU.
74 to 78 Waits until the measurement is completed. After that, if an error is detected, forces 0 V and
goes to Check_err. Also if the number of returned data is not correct, forces 0 V and goes to
Check_nop.
80 to 90 Stores the returned data into the mret string variable. Finally, stores the measured data into
the data array.
Zobrazit stránku 265
1 2 ... 261 262 263 264 265 266 267 268 269 270 271 ... 597 598

Komentáře k této Příručce

Žádné komentáře