Agilent Technologies 2000 X-Series Wartungshandbuch PDF herunterladen (Seite 849)

100

101

Programming Examples 38

Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 849

Next lngI

' Close output file.

Close hFile ' Close file.

MsgBox "Waveform format BYTE data written to"+_

"c:\scope\data\waveform_data.csv."

End Sub

Private Sub DoCommand(command As String)

err = viVPrintf(vi, command + vbLf, 0)

If (err <> VI_SUCCESS) Then HandleVISAError vi

CheckInstrumentErrors

End Sub

Private Function DoCommandIEEEBlock(command As String, _

lngBlockSize As Long)

retCount = lngBlockSize

Dim strCommandAndLength As String

strCommandAndLength = command + " %#" + _

Format(lngBlockSize) + "b"

err = viVPrintf(vi, strCommandAndLength + vbLf, paramsArray(1))

If (err <> VI_SUCCESS) Then HandleVISAError vi

DoCommandIEEEBlock = retCount

CheckInstrumentErrors

End Function

Private Function DoQueryString(query As String) As String

Dim strResult As String * 200

err = viVPrintf(vi, query + vbLf, 0)

If (err <> VI_SUCCESS) Then HandleVISAError vi

err = viVScanf(vi, "%t", strResult)

If (err <> VI_SUCCESS) Then HandleVISAError vi

DoQueryString = strResult

CheckInstrumentErrors

End Function

Private Function DoQueryNumber(query As String) As Variant

Dim dblResult As Double

err = viVPrintf(vi, query + vbLf, 0)

1 2 ... 844 845 846 847 848 849 850 851 852 853 854 ... 929 930

Kommentare zu diesen Handbüchern

Keine Kommentare

Agilent Technologies 2000 X-Series Wartungshandbuch Seite 849

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Multimeter Agilent Technologies 2000 X-Series