Agilent Technologies InfiniiVision 3000 DSO-X 3054A Servisní příručka stáhnout pdf (Strana 954)

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."

ErrorHandler:

MsgBox "*** Error :"+Error, vbExclamation

Private Sub DoCommand(command As String)

On Error GoTo ErrorHandler

Call ivprintf(id, command + vbLf)

CheckInstrumentErrors

ErrorHandler:

MsgBox "*** Error :"+Error, vbExclamation

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 Function

Private Function DoQueryString(query As String) As String

Dim actual As Long

Žádné komentáře

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Servisní příručka Strana 954