
Agilent B1500A/B1505A Programming Guide, Edition 11 3-11
Programming Examples
High-Speed Spot Measurements
Measurement
Result Example
Id (uA), Status, Meas Time (msec)
23.69, NEI, 14.05
Data save completed.
Do you want to perform measurement again?
session.WriteString("TSR" & vbLf) ’30
session.WriteString("TTI " & t(0) & "," & mrng & 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) ’43
save_data(fname, title, value, data, nop1, nop2, session, t)
Exit Sub
Check_err: ’47
session.WriteString("EMG? " & err & vbLf) : msg = session.ReadString(256)
MsgBox("Instrument error: " & err & Chr(10) & msg, vbOKOnly, "")
End Sub
Line Description
30 to 41 Resets time stamp and performs the high-speed spot measurement. And stores the
returned data into the mret and tret string variables. Finally, stores the measured data
into the data array.
43 to 45 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.
48 to 49 Displays a message box to show an error message if the error is detected.
Comentarios a estos manuales