Agilent Technologies 2000 X-Series Instrukcja Obsługi Pobierz pdf (Strona 870)

100

101

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

38 Programming Examples

' Return string results.

Return strResults

End Function

Public Function DoQueryNumber(ByVal strQuery As String) As Double

' Send the query.

VisaSendCommandOrQuery(strQuery)

' Get the result string.

Dim fResults As Double

fResults = VisaGetResultNumber()

' Check for inst errors.

CheckInstrumentErrors(strQuery)

' Return string results.

Return fResults

End Function

Public Function DoQueryNumbers(ByVal strQuery As String) _

As Double()

' Send the query.

VisaSendCommandOrQuery(strQuery)

' Get the result string.

Dim fResultsArray As Double()

fResultsArray = VisaGetResultNumbers()

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

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

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

Dim length As Integer

' Number of bytes returned from instrument.

length = VisaGetResultIEEEBlock(ResultsArray)

' Check for inst errors.

CheckInstrumentErrors(strQuery)

' Return string results.

Return length

End Function

Private Sub VisaSendCommandOrQuery(ByVal strCommandOrQuery _

As String)

' Send command or query to the device.

1 2 ... 865 866 867 868 869 870 871 872 873 874 875 ... 929 930

Komentarze do niniejszej Instrukcji

Brak uwag

Agilent Technologies 2000 X-Series Instrukcja Obsługi Strona 870

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Multimetry Agilent Technologies 2000 X-Series