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

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 598
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 300
Agilent B1500A/B1505A Programming Guide, Edition 11 3-123
Programming Examples
Using Trigger Function
Measurement
Result Example
Id (mA), Status
22.475, NAI
Data save completed.
Do you want to perform measurement again?
Check_err: ’83
unit1.WriteString("EMG? " & err & vbLf) : msg = unit1.ReadString(256)
MsgBox("Instrument error: " & err & Chr(10) & msg, vbOKOnly, "")
Exit Sub
End Sub ’88
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 unit1
As IMessage, ByVal unit2 As IMessage, ByVal t() As Integer) ’90
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
’Print(1, Chr(13) & Chr(10) & "Unit" & j + 1) ’96
For i = 0 To nop1 - 1
Print(1, data(j, i))
Next i
Next j
FileClose(1)
Dim rbx As Integer
For j = 0 To nop2 - 1
’value = value & Chr(10) & "Unit" & j + 1 ’105
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(unit1, unit2, t)
End Sub ’114
End Module
Line Description
83 to 86 Displays a message box to show an error message if the error is detected.
90 to 114 Save_data subprogram saves measurement result data into a file specified by the fname
variable and displays the data and a message on a message box. If Yes is clicked on the
message box, calls the perform_meas subprogram again. If No is clicked, returns to the
perform_meas subprogram.
Vista de página 300
1 2 ... 296 297 298 299 300 301 302 303 304 305 306 ... 597 598

Comentários a estes Manuais

Sem comentários