Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manual de servicio Pagina 954

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 970
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 953
954 Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
37 Programming Examples
MsgBox "Waveform format BYTE data written to"+_
"c:\scope\data\waveform_data.csv."
Exit Sub
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Sub
Private Sub DoCommand(command As String)
On Error GoTo ErrorHandler
Call ivprintf(id, command + vbLf)
CheckInstrumentErrors
Exit Sub
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Sub
Private Function DoCommandIEEEBlock(command As String, _
lngBlockSize As Long)
On Error GoTo ErrorHandler
' Send command part.
Call ivprintf(id, command + " ")
' Write definite-length block bytes.
Call ifwrite(id, byteArray(), lngBlockSize, vbNull, retCount)
' retCount is now actual number of bytes written.
DoCommandIEEEBlock = retCount
CheckInstrumentErrors
Exit Function
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Function
Private Function DoQueryString(query As String) As String
Dim actual As Long
Vista de pagina 953
1 2 ... 949 950 951 952 953 954 955 956 957 958 959 ... 969 970

Comentarios a estos manuales

Sin comentarios