Agilent Technologies InfiniiVision 6000 Series Manual de Serviço descarregar pdf (Página 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

Comentários a estes Manuais

Sem comentários

Agilent Technologies InfiniiVision 6000 Series Manual de Serviço Página 900

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies InfiniiVision 6000 Series