Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manual de servicio descargar pdf (Pagina 895)

100

101

Programming Examples 37

Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 895

Public Function DoQueryNumbers(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 inst errors.

CheckInstrumentErrors(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.

System.Threading.Thread.Sleep(2000) ' Delay before reading data.

Dim ResultsArray As Byte()

ResultsArray = _

m_IoObject.ReadIEEEBlock(IEEEBinaryType.BinaryType_UI1, _

False, True)

' Check for inst errors.

CheckInstrumentErrors(strQuery)

' Return results array.

Return ResultsArray

End Function

Private Sub CheckInstrumentErrors(ByVal strCommand As String)

' Check for instrument errors.

Dim strInstrumentError As String

Dim bFirstError As Boolean = True

Do ' While not "0,No error".

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

strInstrumentError = m_IoObject.ReadString()

If Not strInstrumentError.ToString().StartsWith("+0,") Then

If bFirstError Then

Console.WriteLine("ERROR(s) for command '{0}': ", _

strCommand)

bFirstError = False

End If

Console.Write(strInstrumentError)

End If

Loop While Not strInstrumentError.ToString().StartsWith("+0,")

End Sub

Private Sub OpenIo()

m_ResourceManager = New ResourceManagerClass()

1 2 ... 890 891 892 893 894 895 896 897 898 899 900 ... 969 970

Comentarios a estos manuales

Sin comentarios

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manual de servicio Pagina 895

Comentarios a estos manuales

Relacionado con productos y manuales para De medición, control y control Agilent Technologies InfiniiVision 3000 DSO-X 3054A