Agilent Technologies InfiniiVision 6000 Series Manuel de service télécharger pdf (Page 899)

100

101

Programming Examples 12

Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 899

Dim fResults As Double

fResults = VisaGetResultValue()

' Check for instrument errors (another command and result).

CheckForInstrumentErrors(strQuery)

' Return string results.

Return fResults

End Function

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

' Send the query.

VisaSendCommandOrQuery(strQuery)

' Get the result string.

Dim fResultsArray As Double()

fResultsArray = VisaGetResultValues()

' Check for instrument errors (another command and result).

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

Dim length As Integer

' Number of bytes returned from instrument.

length = VisaGetResultIEEEBlock(ResultsArray)

' Check for instrument errors (another command and result).

CheckForInstrumentErrors(strQuery)

' Return string results.

Return length

End Function

Private Sub CheckForInstrumentErrors(ByVal strCommand As String)

' Check for instrument errors.

Dim strInstrumentError As New StringBuilder(1000)

Dim bFirstError As Boolean = True

VisaSendCommandOrQuery(":SYSTem:ERRor?")

strInstrumentError = VisaGetResultString()

If strInstrumentError.ToString() <> _

"+0,""No error""" & Chr(10) & "" Then

If bFirstError Then

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

strCommand)

bFirstError = False

End If

1 2 ... 894 895 896 897 898 899 900 901 902 903 904 ... 933 934

Commentaires sur ces manuels

Pas de commentaire

Agilent Technologies InfiniiVision 6000 Series Manuel de service Page 899

Commentaires sur ces manuels

Produits connexes et manuels pour Multimètres Agilent Technologies InfiniiVision 6000 Series