Agilent Technologies InfiniiVision 6000 Series Manual de Serviço descarregar pdf (Página 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

Comentários a estes Manuais

Sem comentários

Agilent Technologies InfiniiVision 6000 Series Manual de Serviço Página 855

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies InfiniiVision 6000 Series