Keysight Technologies E5260 Series, Руководство по программированию

Страница: 116 / 350

3- 8 Keysight E5260/E5270 Programming Guide, Edition 4
Programming Examples
Programming Basics for Visual Basic .NET Users
Sub save_data(ByVal fname As String, ByVal title As String, ByVal value As
String, ByVal data(,) As String, ByVal nop1 As Integer, ByVal nop2 As Integer,
ByVal session As IMessage, ByVal t() As Integer) ’48
Dim i As Integer = 0
Dim j As Integer = 0
FileOpen(1, fname, OpenMode.Output, OpenAccess.Write, OpenShare.LockReadWrite)
Print(1, value)
For j = 0 To nop2 - 1
For i = 0 To nop1 - 1
Print(1, data(j, i))
Next i
Next j
FileClose(1)
Dim rbx As Integer ’60
For j = 0 To nop2 - 1
For i = 0 To nop1 - 1
value = value & data(j, i)
Next i
Next j
value = value & Chr(10) & Chr(10) & "Data save completed."
value = value & Chr(10) & Chr(10) & "Do you want to perform measurement again?"
rbx = MsgBox(value, vbYesNo, title)
If rbx = vbYes Then perform_meas(session, t)
End Sub ’70
End Module
Line Description
48 Beginning of the save_data subprogram.
49 to 50 Declares loop counters used to specify the element of the data array.
51 to 58 Saves measurement result data into a file specified by the fname variable.
60 to 68 Displays the data and a message on a message box.
69 If Yes is clicked on the message box, calls the perform_meas subprogram again. If No is
clicked, returns to the perform_meas subprogram.
70 End of the save_data subprogram.