240
Keysight InfiniiVision 3000T X-Series Oscilloscopes Programmer's Guide
7
:ACQuire Commands
Option Explicit
Public myMgr As VisaComLib.ResourceManager
Public myScope As VisaComLib.FormattedIO488
Public varQueryResult As Variant
Public strQueryResult As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Main()
On Error GoTo VisaComError
' Create the VISA COM I/O resource.
Set myMgr = New VisaComLib.ResourceManager
Set myScope = New VisaComLib.FormattedIO488
Set myScope.IO = _
myMgr.Open("USB0::0x0957::0x17A6::US50210029::0::INSTR")
myScope.IO.Clear
' Clear the interface.
' Turn on segmented memory acquisition mode.
myScope.WriteString ":ACQuire:MODE SEGMented"
myScope.WriteString ":ACQuire:MODE?"
strQueryResult = myScope.ReadString
Debug.Print "Acquisition mode: " + strQueryResult
' Set the number of segments to 25.
myScope.WriteString ":ACQuire:SEGMented:COUNt 25"
myScope.WriteString ":ACQuire:SEGMented:COUNt?"
strQueryResult = myScope.ReadString
Debug.Print "Acquisition memory segments: " + strQueryResult
' If data will be acquired within the IO timeout:
'myScope.IO.Timeout = 10000
'myScope.WriteString ":DIGitize"
'Debug.Print ":DIGitize blocks until all segments acquired."
'myScope.WriteString ":WAVeform:SEGMented:COUNt?"
'varQueryResult = myScope.ReadNumber
' Or, to poll until the desired number of segments acquired:
myScope.WriteString ":SINGle"
Debug.Print ":SINGle does not block until all segments acquired."
Do
Sleep 100
' Small wait to prevent excessive queries.
myScope.WriteString ":WAVeform:SEGMented:COUNt?"
varQueryResult = myScope.ReadNumber
Loop Until varQueryResult = 25
Debug.Print "Number of segments in acquired data: " _
+ FormatNumber(varQueryResult)
Dim lngSegments As Long
lngSegments = varQueryResult
' For each segment:
Dim dblTimeTag As Double
Dim lngI As Long
Содержание InfiniiVision 3000T X Series
Страница 1: ...Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide...
Страница 40: ...40 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 1 What s New...
Страница 50: ...50 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 2 Setting Up...
Страница 64: ...64 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 3 Getting Started...
Страница 164: ...164 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 4 Commands Quick Reference...
Страница 254: ...254 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 8 BUS n Commands...
Страница 286: ...286 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 10 CHANnel n Commands...
Страница 306: ...306 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 12 DEMO Commands...
Страница 314: ...314 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 13 DIGital d Commands...
Страница 344: ...344 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 16 EXTernal Trigger Commands...
Страница 352: ...352 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 17 FFT Commands FFT WINDow on page 362...
Страница 364: ...364 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 17 FFT Commands...
Страница 402: ...402 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 18 FUNCtion m Commands...
Страница 420: ...420 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 19 HARDcopy Commands...
Страница 442: ...442 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 21 MARKer Commands...
Страница 466: ...466 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 22 MEASure Commands MEASure CLEar on page 464...
Страница 524: ...524 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 22 MEASure Commands...
Страница 548: ...548 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 23 MEASure Power Commands...
Страница 656: ...656 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 26 POWer Commands...
Страница 666: ...666 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 27 RECall Commands...
Страница 888: ...888 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 29 SBUS n Commands...
Страница 978: ...978 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 30 SEARch Commands...
Страница 1006: ...1006 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 32 TIMebase Commands...
Страница 1232: ...1232 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 37 Obsolete and Discontinued Commands...
Страница 1240: ...1240 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 38 Error Messages...
Страница 1264: ...1264 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 39 Status Reporting...
Страница 1274: ...1274 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 40 Synchronizing Acquisitions...
Страница 1404: ...1404 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 42 Programming Examples...