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

100

101

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

37 Programming Examples

' Clear the interface.

m_IoObject.IO.Clear()

End Sub

Public Sub DoCommand(ByVal strCommand As String)

' Send the command.

m_IoObject.WriteString(strCommand, True)

' Check for inst errors.

CheckInstrumentErrors(strCommand)

End Sub

Public Sub DoCommandIEEEBlock(ByVal strCommand As String, _

ByVal DataArray As Byte())

' Send the command to the device.

m_IoObject.WriteIEEEBlock(strCommand, DataArray, True)

' Check for inst errors.

CheckInstrumentErrors(strCommand)

End Sub

Public Function DoQueryString(ByVal strQuery As String) As String

' Send the query.

m_IoObject.WriteString(strQuery, True)

' Get the result string.

Dim strResults As String

strResults = m_IoObject.ReadString()

' Check for inst errors.

CheckInstrumentErrors(strQuery)

' Return results string.

Return strResults

End Function

Public Function DoQueryNumber(ByVal strQuery As String) As Double

' Send the query.

m_IoObject.WriteString(strQuery, True)

' Get the result number.

Dim fResult As Double

fResult = _

CDbl(m_IoObject.ReadNumber(IEEEASCIIType.ASCIIType_R8, True))

' Check for inst errors.

CheckInstrumentErrors(strQuery)

' Return result number.

Return fResult

End Function

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

Comentarios a estos manuales

Sin comentarios

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

Comentarios a estos manuales

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