Agilent Technologies InfiniiVision 6000 Series Manual de servicio descargar pdf (Pagina 900)

100

101

900 Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide

12 Programming Examples

Console.Write(strInstrumentError)

End If

Loop While strInstrumentError.ToString() <> _

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

End Sub

Private Sub VisaSendCommandOrQuery(ByVal strCommandOrQuery _

As String)

' Send command or query to the device.

Dim strWithNewline As String

strWithNewline = [String].Format("{0}" & Chr(10) & "", _

strCommandOrQuery)

Dim nViStatus As Integer

nViStatus = visa32.viPrintf(m_nSession, strWithNewline)

CheckVisaStatus(nViStatus)

End Sub

Private Function VisaGetResultString() As StringBuilder

Dim strResults As New StringBuilder(1000)

' Read return value string from the device.

Dim nViStatus As Integer

nViStatus = visa32.viScanf(m_nSession, "%1000t", strResults)

CheckVisaStatus(nViStatus)

Return strResults

End Function

Private Function VisaGetResultValue() As Double

Dim fResults As Double = 0

' Read return value string from the device.

Dim nViStatus As Integer

nViStatus = visa32.viScanf(m_nSession, "%lf", fResults)

CheckVisaStatus(nViStatus)

Return fResults

End Function

Private Function VisaGetResultValues() As Double()

Dim fResultsArray As Double()

fResultsArray = New Double(9) {}

' Read return value string from the device.

Dim nViStatus As Integer

nViStatus = visa32.viScanf(m_nSession, _

"%,10lf" & Chr(10) & "", fResultsArray)

CheckVisaStatus(nViStatus)

Return fResultsArray

End Function

Private Function VisaGetResultIEEEBlock(ByRef ResultsArray _

As Byte()) As Integer

' Results array, big enough to hold a PNG.

ResultsArray = New Byte(299999) {}

Dim length As Integer

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

Comentarios a estos manuales

Sin comentarios

Agilent Technologies InfiniiVision 6000 Series Manual de servicio Pagina 900

Comentarios a estos manuales

Relacionado con productos y manuales para Multímetros Agilent Technologies InfiniiVision 6000 Series