Agilent Technologies InfiniiVision 6000 Series Wartungshandbuch PDF herunterladen (Seite 855)

100

101

Programming Examples 12

Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 855

Return fResult

End Function

Public Function DoQueryValues(ByVal strQuery As String) As Double()

' Send the query.

m_IoObject.WriteString(strQuery, True)

' Get the result numbers.

Dim fResultsArray As Double()

fResultsArray = _

m_IoObject.ReadList(IEEEASCIIType.ASCIIType_R8, ",;")

' Check for instrument errors.

CheckForInstrumentErrors(strQuery)

' Return result numbers.

Return fResultsArray

End Function

Public _

Function DoQueryIEEEBlock(ByVal strQuery As String) As Byte()

' Send the query.

m_IoObject.WriteString(strQuery, True)

' Get the results array.

Dim ResultsArray As Byte()

ResultsArray = _

m_IoObject.ReadIEEEBlock(IEEEBinaryType.BinaryType_UI1, _

False, True)

' Check for instrument errors.

CheckForInstrumentErrors(strQuery)

' Return results array.

Return ResultsArray

End Function

Public _

Sub DoCommandIEEEBlock(ByVal strCommand As String, _

ByVal DataArray As Byte())

' Send the command.

m_IoObject.WriteIEEEBlock(strCommand, DataArray, True)

' Check for instrument errors.

CheckForInstrumentErrors(strCommand)

End Sub

Private Sub CheckForInstrumentErrors(ByVal strCommand As String)

Dim strInstrumentError As String

Dim bFirstError As Boolean = True

' Repeat until all errors are displayed.

' Send the ":SYSTem:ERRor?" query, and get the result string.

m_IoObject.WriteString(":SYSTem:ERRor?", True)

strInstrumentError = m_IoObject.ReadString()

1 2 ... 850 851 852 853 854 855 856 857 858 859 860 ... 933 934

Kommentare zu diesen Handbüchern

Keine Kommentare

Agilent Technologies InfiniiVision 6000 Series Wartungshandbuch Seite 855

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Multimeter Agilent Technologies InfiniiVision 6000 Series