Agilent Technologies B1500A Manual de Serviço Página 186

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 598
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 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.
Vista de página 185
1 2 ... 181 182 183 184 185 186 187 188 189 190 191 ... 597 598

Comentários a estes Manuais

Sem comentários