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

  • 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 191
3-14 Agilent B1500A/B1505A Programming Guide, Edition 11
Programming Examples
Spot Measurements
Measurement
Result Example
Id (uA), Status, Meas Time (msec)
23.495, NEI, 14.28
Data save completed.
Do you want to perform measurement again?
session.WriteString("TSR" & vbLf) ’33
session.WriteString("XE" & vbLf)
session.WriteString("TSQ" & vbLf)
Dim mret As String = session.ReadString(16 + 17) ’data+comma+data+terminator
Dim tret As String = session.ReadString(17) ’data+terminator
Dim tcal As String = Mid(mret, 4, 12)
tret = Mid(tret, 4, 12)
Dim mtime As Double = Val(tret) - Val(tcal)
Dim status As String = Mid(mret, 17, 3)
Dim meas As Double = Val(Mid(mret, 20, 12))
data(j, i) = Chr(13) & Chr(10) & meas * 1000000 & ", " & status & ", " & mtime
* 1000
session.WriteString("DZ" & vbLf) ’46
save_data(fname, title, value, data, nop1, nop2, session, t)
Exit Sub
Check_err: ’50
session.WriteString("EMG? " & err & vbLf) : msg = session.ReadString(256)
MsgBox("Instrument error: " & err & Chr(10) & msg, vbOKOnly, "")
End Sub
Line Description
33 to 44 Resets time stamp and performs the spot measurement. And stores the returned data
into the mret and tret string variables. Finally, stores the measured data into the data
array.
46 to 48 Applies 0 V from all channels. And transfers the data stored in the data variable to the
save_data subprogram (see Table 3-1). And the subprogram will save the data into a
CSV file specified by the fname variable and displays the data on a message box.
51 to 52 Displays a message box to show an error message if the error is detected.
Zobrazit stránku 191
1 2 ... 187 188 189 190 191 192 193 194 195 196 197 ... 597 598

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

Žádné komentáře