Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1049

Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
m_IoObject.WriteString(strQuery, True)
' Get the result numbers.
Dim fResultsArray As Double()
fResultsArray = _
m_IoObject.ReadList(IEEEASCIIType.ASCIIType_R8, ",;")
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return result numbers.
Return fResultsArray
End Function
Public _
Function _
DoQueryIEEEBlock_UI1(ByVal strQuery As String) As Byte()
' Send the query.
m_IoObject.WriteString(strQuery, True)
' Get the results array.
System.Threading.Thread.Sleep(2000) ' Delay before reading data.
Dim ResultsArray As Byte()
ResultsArray = _
m_IoObject.ReadIEEEBlock(IEEEBinaryType.BinaryType_UI1, _
False, True)
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return results array.
Return ResultsArray
End Function
Public _
Function _
DoQueryIEEEBlock_I2(ByVal strQuery As String) As Short()
' Send the query.
m_IoObject.WriteString(strQuery, True)
' Get the results array.
System.Threading.Thread.Sleep(2000) ' Delay before reading data.
Dim ResultsArray As Short()
ResultsArray = _
m_IoObject.ReadIEEEBlock(IEEEBinaryType.BinaryType_I2, _
False, True)
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return results array.
Return ResultsArray
End Function
Private Sub CheckInstrumentErrors(ByVal strCommand As String)
' Check for instrument errors.
Dim strInstrumentError As String
38
Sample Programs
1049