Download Agilent Technologies 2000 X-Series Technical data

Transcript
38 Programming Examples
' 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(ByVal strQuery As String, _
ByRef ResultsArray As Byte()) As Integer
' Send the query.
VisaSendCommandOrQuery(strQuery)
' Get the result string.
System.Threading.Thread.Sleep(2000) ' Delay before reading data.
Dim length As Integer
' Number of bytes returned from instrument.
length = VisaGetResultIEEEBlock(ResultsArray)
' Check for inst errors.
CheckInstrumentErrors(strQuery)
' Return string results.
Return length
End Function
Private Sub VisaSendCommandOrQuery(ByVal strCommandOrQuery _
As String)
' Send command or query to the device.
870
Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide