Programming Examples
40
Keysight InfiniiVision M9241/42/43A PXIe Oscilloscopes SCPI Programmer's Guide
1421
'
' Keysight VISA Example in Visual Basic
' -------------------------------------------------------------------
' This program illustrates a few commonly-used programming
' features of your Keysight oscilloscope.
' -------------------------------------------------------------------
Option Explicit
Public err As Long
' Error returned by VISA function calls.
Public drm As Long
' Session to Default Resource Manager.
Public vi As Long
' Session to instrument.
' Declare variables to hold numeric values returned by
' viVScanf/viVQueryf.
Public dblQueryResult As Double
Public Const ByteArraySize = 5000000
Public retCount As Long
Public byteArray(ByteArraySize) As Byte
Public paramsArray(2) As Long
Public Const DblArraySize = 20
Public dblArray(DblArraySize) As Double
' Declare fixed length string variable to hold string value returned
' by viVScanf/viVQueryf.
Public strQueryResult As String * 200
' For Sleep subroutine.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'
' Main Program
' -------------------------------------------------------------------
Sub Main()
' Open the default resource manager session.
err = viOpenDefaultRM(drm)
If (err <> VI_SUCCESS) Then HandleVISAError drm
' Open the session using the oscilloscope's VISA address.
err = viOpen(drm, _
"TCPIP0::10.112.94.136::hislip9-0.0::INSTR", 0, 15000, vi)
If (err <> VI_SUCCESS) Then HandleVISAError drm
' Set the I/O timeout to ten seconds.
err = viSetAttribute(vi, VI_ATTR_TMO_VALUE, 10000)
If (err <> VI_SUCCESS) Then HandleVISAError vi
' Initialize - start from a known state.
Initialize
' Capture data.
Capture
' Analyze the captured waveform.
Analyze
Содержание InfiniiVision M9241A
Страница 1: ...Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide ...
Страница 52: ...52 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 2 Setting Up ...
Страница 178: ...178 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 5 Commands Quick Reference ...
Страница 246: ...246 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 7 Root Commands ...
Страница 268: ...268 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 8 ACQuire Commands ...
Страница 280: ...280 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 9 CALibrate Commands ...
Страница 354: ...354 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 15 EXTernal Trigger Commands ...
Страница 412: ...412 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 17 FUNCtion m Commands ...
Страница 416: ...416 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 18 HCOPY Commands ...
Страница 442: ...442 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 20 MARKer Commands ...
Страница 588: ...588 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 23 MTESt Commands ...
Страница 692: ...692 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 24 POWer Commands ...
Страница 1062: ...1062 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 30 TIMebase Commands ...
Страница 1250: ...1250 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 33 WGEN w Commands ...
Страница 1306: ...1306 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 35 Obsolete and Discontinued Commands ...
Страница 1314: ...1314 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 36 Error Messages ...
Страница 1376: ...1376 Keysight InfiniiVision M9241 42 43A PXIe Oscilloscopes SCPI Programmer s Guide 39 More About Oscilloscope Commands ...