Agilent Technologies Infiniium 90000 Q-Series, Programmer'S Manual

Page: 1098 / 1186

1098 Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
38
Sample Programs
As StringBuilder
' Send the query.
VisaSendCommandOrQuery(strQuery)
' Get the result string.
Dim strResults As New StringBuilder(1000)
strResults = VisaGetResultString()
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return string results.
Return strResults
End Function
Public Function DoQueryNumber(ByVal strQuery As String) As Double
' Send the query.
VisaSendCommandOrQuery(strQuery)
' Get the result string.
Dim fResults As Double
fResults = VisaGetResultNumber()
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return string results.
Return fResults
End Function
Public Function DoQueryNumbers(ByVal strQuery As String) _
As Double()
' Send the query.
VisaSendCommandOrQuery(strQuery)
' Get the result string.
Dim fResultsArray As Double()
fResultsArray = VisaGetResultNumbers()
' Check for instrument errors (another command and result).
CheckInstrumentErrors(strQuery)
' Return string results.
Return fResultsArray
End Function
Public Function DoQueryIEEEBlock_Bytes(ByVal strQuery As String, _
ByRef ResultsArray As Byte()) As Integer
' Send the query.
VisaSendCommandOrQuery(strQuery)
' Get the result string.
Dim length As Integer
' Number of bytes returned from instrument.
length = VisaGetResultIEEEBlock_Bytes(ResultsArray)
' Check for inst errors.