Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manuale di Servizio Scaricare il pdf (Pagina 935)

100

101

Programming Examples 37

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

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 VisaGetResultNumber() 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 VisaGetResultNumbers() 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

' Number of bytes returned from instrument.

' Set the default number of bytes that will be contained in

' the ResultsArray to 300,000 (300kB).

length = 300000

' Read return value string from the device.

Dim nViStatus As Integer

nViStatus = visa32.viScanf(m_nSession, "%#b", length, _

ResultsArray)

1 2 ... 930 931 932 933 934 935 936 937 938 939 940 ... 969 970

Commenti su questo manuale

Nessun commento

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manuale di Servizio Pagina 935

Commenti su questo manuale

Prodotti e manuali riguardandi Misurazione, test & controllo Agilent Technologies InfiniiVision 3000 DSO-X 3054A