Agilent Technologies B1500A Instrukcja Obsługi Strona 186

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 598
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 185
3-8 Agilent B1500A/B1505A Programming Guide, Edition 11
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.
Przeglądanie stron 185
1 2 ... 181 182 183 184 185 186 187 188 189 190 191 ... 597 598

Komentarze do niniejszej Instrukcji

Brak uwag