:MEASure Commands
21
Keysight InfiniiVision M9241/42/43A PXIe Oscilloscopes SCPI Programmer's Guide
499
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("TCPIP0::10.112.94.136::hislip9-0.0::INSTR
")
' Initialize.
myScope.IO.Clear
' Clear the interface.
myScope.WriteString "*RST"
' Reset to the defaults.
myScope.WriteString "*CLS"
' Clear the status data structures.
myScope.WriteString ":AUToscale"
' Install some measurements.
myScope.WriteString ":MEASure:SOURce CHANnel1"
' Input source.
Dim MeasurementArray(3) As String
MeasurementArray(0) = "FREQuency"
MeasurementArray(1) = "DUTYcycle"
MeasurementArray(2) = "VAMPlitude"
MeasurementArray(3) = "VPP"
Dim Measurement As Variant
For Each Measurement In MeasurementArray
myScope.WriteString ":MEASure:" + Measurement
myScope.WriteString ":MEASure:" + Measu "?"
varQueryResult = myScope.ReadNumber
' Read measurement value.
Debug.Print Measu ": " + FormatNumber(varQueryResult, 4)
Next
myScope.WriteString ":MEASure:STATistics:RESet"
' Reset stats.
Sleep 5000
' Wait for 5 seconds.
' Select the statistics results type.
Dim ResultsTypeArray(6) As String
ResultsTypeArray(0) = "CURRent"
ResultsTypeArray(1) = "MINimum"
ResultsTypeArray(2) = "MAXimum"
ResultsTypeArray(3) = "MEAN"
ResultsTypeArray(4) = "STDDev"
ResultsTypeArray(5) = "COUNt"
ResultsTypeArray(6) = "ON"
' All results.
Dim ResultType As Variant
Dim ResultsList()
Dim ValueColumnArray(6) As String
ValueColumnArray(0) = "Meas_Lbl"
ValueColumnArray(1) = "Current"
ValueColumnArray(2) = "Min"
ValueColumnArray(3) = "Max"
ValueColumnArray(4) = "Mean"
Содержание 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 ...