Agilent Technologies 2000 X-Series Manual de servicio descargar pdf (Pagina 825)

100

101

Programming Examples 38

Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 825

End Function

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

1 2 ... 820 821 822 823 824 825 826 827 828 829 830 ... 929 930

Comentarios a estos manuales

Sin comentarios

Agilent Technologies 2000 X-Series Manual de servicio Pagina 825

Comentarios a estos manuales

Relacionado con productos y manuales para Multímetros Agilent Technologies 2000 X-Series