552
Keysight InfiniiVision 3000T X-Series Oscilloscopes Programmer's Guide
24
:MTESt Commands
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.
' Make sure oscilloscope is running.
myScope.WriteString ":RUN"
' Set mask test termination conditions.
myScope.WriteString ":MTESt:RMODe SIGMa"
myScope.WriteString ":MTESt:RMODe?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test termination mode: " + strQueryResult
myScope.WriteString ":MTESt:RMODe:SIGMa 4.2"
myScope.WriteString ":MTESt:RMODe:SIGMa?"
varQueryResult = myScope.ReadNumber
Debug.Print "Mask test termination 'test sigma': " + _
FormatNumber(varQueryResult)
' Use auto-mask to create mask.
myScope.WriteString ":MTESt:AMASk:SOURce CHANnel1"
myScope.WriteString ":MTESt:AMASk:SOURce?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test auto-mask source: " + strQueryResult
myScope.WriteString ":MTESt:AMASk:UNITs DIVisions"
myScope.WriteString ":MTESt:AMASk:UNITs?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test auto-mask units: " + strQueryResult
myScope.WriteString ":MTESt:AMASk:XDELta 0.1"
myScope.WriteString ":MTESt:AMASk:XDELta?"
varQueryResult = myScope.ReadNumber
Debug.Print "Mask test auto-mask X delta: " + _
FormatNumber(varQueryResult)
myScope.WriteString ":MTESt:AMASk:YDELta 0.1"
myScope.WriteString ":MTESt:AMASk:YDELta?"
varQueryResult = myScope.ReadNumber
Debug.Print "Mask test auto-mask Y delta: " + _
FormatNumber(varQueryResult)
' Enable "Auto Mask Created" event (bit 10, &H400)
myScope.WriteString "*CLS"
myScope.WriteString ":MTEenable " + CStr(CInt("&H400"))
' Create mask.
myScope.WriteString ":MTESt:AMASk:CREate"
Debug.Print "Auto-mask created, mask test automatically enabled."
' Set up timeout variables.
Dim lngTimeout As Long
' Max millisecs to wait.
Summary of Contents for InfiniiVision 3000T X Series
Page 1: ...Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide...
Page 40: ...40 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 1 What s New...
Page 50: ...50 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 2 Setting Up...
Page 64: ...64 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 3 Getting Started...
Page 254: ...254 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 8 BUS n Commands...
Page 306: ...306 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 12 DEMO Commands...
Page 364: ...364 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 17 FFT Commands...
Page 442: ...442 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 21 MARKer Commands...
Page 524: ...524 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 22 MEASure Commands...
Page 656: ...656 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 26 POWer Commands...
Page 666: ...666 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 27 RECall Commands...
Page 888: ...888 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 29 SBUS n Commands...
Page 978: ...978 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 30 SEARch Commands...
Page 1240: ...1240 Keysight InfiniiVision 3000T X Series Oscilloscopes Programmer s Guide 38 Error Messages...