Keysight Technologies InfiniiVision MSO-X 4154A

1508 Keysight InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
42 Programming Examples
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.
Dim strWithNewline As String
strWithNewline = [String].Format("{0}" & Chr(10) & "", _
strCommandOrQuery)
Dim nViStatus As Integer