EasyManuals Logo

Keysight Technologies InfiniiVision 4000 X Series User Manual

Keysight Technologies InfiniiVision 4000 X Series
1762 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Page #1669 background imageLoading...
Page #1669 background image
Programming Examples 44
Keysight InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide 1669
FormatNumber(((lngDataValue - lngYReference) _
* sngYIncrement) + lngYOrigin)
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

Table of Contents

Questions and Answers:

Question and Answer IconNeed help?

Do you have a question about the Keysight Technologies InfiniiVision 4000 X Series and is the answer not in the manual?

Keysight Technologies InfiniiVision 4000 X Series Specifications

General IconGeneral
BrandKeysight Technologies
ModelInfiniiVision 4000 X Series
CategoryTest Equipment
LanguageEnglish

Related product manuals