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

Page: 1099 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1099
CheckInstrumentErrors(strQuery)
' Return string results.
Return length
End Function
Public Function DoQueryIEEEBlock_Words(ByVal strQuery As String, _
ByRef ResultsArray As Short()) As Integer
' Send the query.
VisaSendCommandOrQuery(strQuery)
' Get the result string.
Dim length As Integer
' Number of bytes returned from instrument.
length = VisaGetResultIEEEBlock_Words(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.
Dim strWithNewline As String
strWithNewline = [String].Format("{0}" & Chr(10) & "", _
strCommandOrQuery)
Dim nViStatus As Integer
nViStatus = visa32.viPrintf(m_nSession, strWithNewline)
CheckVisaStatus(nViStatus)
End Sub
Private Function VisaGetResultString() As StringBuilder
Dim strResults As New StringBuilder(1000)
' Read return value string from the device.
Dim nViStatus As Integer
nViStatus = visa32.viScanf(m_nSession, "%1000t", strResults)
CheckVisaStatus(nViStatus)
Return strResults
End Function
Private Function VisaGetResultNumber() As Double
Dim fResults As Double = 0
' Read return value string from the device.
Dim nViStatus As Integer
nViStatus = visa32.viScanf(m_nSession, "%lf", fResults)
CheckVisaStatus(nViStatus)
Return fResults
End Function
Private Function VisaGetResultNumbers() As Double()