Keysight Technologies InfiniiVision 4000 X Series

Programming Examples 44
Keysight InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide 1645
Public Function DoQueryNumbers(ByVal strQuery As String) As _
Double()
' Send the query.
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(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
Private Sub CheckInstrumentErrors(ByVal strCommand As String)
' Check for instrument errors.
Dim strInstrumentError As String
Dim bFirstError As Boolean = True
Do ' While not "0,No error".
m_IoObject.WriteString(":SYSTem:ERRor?", True)
strInstrumentError = m_IoObject.ReadString()
If Not strInstrumentError.ToString().StartsWith("+0,") Then
If bFirstError Then
Console.WriteLine("ERROR(s) for command '{0}': ", _
strCommand)
bFirstError = False
End If
Console.Write(strInstrumentError)
End If
Loop While Not strInstrumentError.ToString().StartsWith("+0,")
End Sub
Private Sub OpenIo()
m_ResourceManager = New ResourceManagerClass()