Agilent Technologies InfiniiVision 3000 X-Series - Page 1172

1172 Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
40 Programming Examples
OpenIo()
' Clear the interface.
m_IoObject.IO.Clear()
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