Keysight Technologies E5260 Series Programming Manual page 125

session.WriteString("TSR" & vbLf)
session.WriteString("XE" & vbLf)
session.WriteString("TSQ" & vbLf)
Dim mret As String = session.ReadString(16 + 17)
Dim tret As String = session.ReadString(17)
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)
save_data(fname, title, value, data, nop1, nop2, session, t)
Exit Sub
Check_err:
session.WriteString("EMG? " & err & vbLf) : msg = session.ReadString(256)
MsgBox("Instrument error: " & err & Chr(10) & msg, vbOKOnly, "")
End Sub
Line
35 to 46 Resets time stamp and performs the pulsed spot measurement. And stores the returned
data into the mret and tret string variables. Finally, stores the measured data into the
data array.
48 to 50 Applies 0 V from the all channels. And transfers the data stored in the data variable to
the save_data subprogram (see
CSV file specified by the fname variable and displays the data on a message box.
53 to 54 Displays a message box to show an error message if the error is detected.
Measurement
Result Example
Id (uA), Status, Meas Time (msec)
25, NEI, 17.58
Data save completed.
Do you want to perform measurement again?
Keysight E5260/E5270 Programming Guide, Edition 4
'data+comma+data+terminator
'data+terminator
Description
Table 3-1). And the subprogram will save the data into a
Programming Examples
Pulsed Spot Measurements
'35
'48
'52
3- 17