Agilent Technologies InfiniiVision 3000 X-Series - Page 1246

1246 Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
40 Programming Examples
MsgBox "*** Error :"+Error, vbExclamation
End
End Function
Private Function DoQueryIEEEBlock_Bytes(query As String) As Long
On Error GoTo ErrorHandler
' Send query.
Call ivprintf(id, query + vbLf)
' Read definite-length block bytes.
Sleep 2000 ' Delay before reading data.
Call ifread(id, byteArray(), ByteArraySize, vbNull, retCount)
' Get number of block length digits.
Dim intLengthDigits As Integer
intLengthDigits = CInt(Chr(byteArray(1)))
' Get block length from those digits.
Dim strBlockLength As String
strBlockLength = ""
Dim i As Integer
Fori=2TointLengthDigits + 1
strBlockLength = strBlockLength + Chr(byteArray(i))
Next
' Return number of bytes in block plus header.
DoQueryIEEEBlock_Bytes = CLng(strBlockLength) + intLengthDigits + 2
CheckInstrumentErrors
Exit Function
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Function
Private Sub CheckInstrumentErrors()
On Error GoTo ErrorHandler
Dim strErrVal As String * 200
Dim strOut As String
Call ivprintf(id, ":SYSTem:ERRor?" + vbLf) ' Query any errors data.
Call ivscanf(id, "%200t", strErrVal) ' Read: Errnum,"Error String".
While Val(strErrVal) <> 0 ' End if find: +0,"No Error".
strOut = strOut + "INST Error: " + strErrVal
Call ivprintf(id, ":SYSTem:ERRor?" + vbLf) ' Request error message
.
Call ivscanf(id, "%200t", strErrVal) ' Read error message.
Wend