Keysight Technologies InfiniiVision 3000T X Series, Programmer'S Manual

Page: 1382 / 1420

1382 Keysight InfiniiVision 3000T X-Series Oscilloscopes Programmer's Guide
42
Programming Examples
Exit Sub
ErrorHandler:
MsgBox "*** Error : " + Error, vbExclamation
End
End Sub
Private Sub DoCommand(command As String)
On Error GoTo ErrorHandler
Call ivprintf(id, c 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, c " ")
' 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
On Error GoTo ErrorHandler