Agilent Technologies 2000 X-Series Servisní příručka stáhnout pdf (Strana 896)

896 Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide

38 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 2000 X-Series Servisní příručka Strana 896