Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1048

38
Sample Programs
1048
End Sub
Public Sub DoCommand(ByVal strCommand As String)
' Send the command.
m_IoObject.WriteString(strCommand, True)
' Check for inst errors.
CheckInstrumentErrors(strCommand)
End Sub
Public Sub DoCommandIEEEBlock(ByVal strCommand As String, _
ByVal DataArray As Byte())
' Send the command to the device.
m_IoObject.WriteIEEEBlock(strCommand, DataArray, True)
' Check for inst errors.
CheckInstrumentErrors(strCommand)
End Sub
Public Function DoQueryString(ByVal strQuery As String) As String
' Send the query.
m_IoObject.WriteString(strQuery, True)
' Get the result string.
Dim strResults As String
strResults = m_IoObject.ReadString()
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return results string.
Return strResults
End Function
Public Function DoQueryNumber(ByVal strQuery As String) As Double
' Send the query.
m_IoObject.WriteString(strQuery, True)
' Get the result number.
Dim fResult As Double
fResult = _
CDbl(m_IoObject.ReadNumber(IEEEASCIIType.ASCIIType_R8, True))
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return result number.
Return fResult
End Function
Public Function DoQueryNumbers(ByVal strQuery As String) As _
Double()
' Send the query.
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference