Agilent Technologies InfiniiVision 6000 Series Manuel de service télécharger pdf (Page 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

Commentaires sur ces manuels

Pas de commentaire

Agilent Technologies InfiniiVision 6000 Series Manuel de service Page 900

Commentaires sur ces manuels

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