![Agilent Technologies InfiniiVision 7000A Series Programmer'S Manual Download Page 361](http://html1.mh-extra.com/html/agilent-technologies/infiniivision-7000a-series/infiniivision-7000a-series_programmers-manual_2868692361.webp)
Commands by Subsystem
5
Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
361
Set myMgr = New VisaComLib.ResourceManager
Set myScope = New VisaComLib.FormattedIO488
Set myScope.IO = myMgr.Open("TCPIP0::130.29.70.228::inst0::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.
Dim lngElapsed As Long
lngTimeout = 60000
' 60 seconds.
' Wait until mask is created.
Summary of Contents for InfiniiVision 7000A Series
Page 1: ...Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide...
Page 34: ...34 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 1 What s New...
Page 44: ...44 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 2 Setting Up...
Page 58: ...58 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 3 Getting Started...
Page 750: ...750 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 8 Error Messages...
Page 922: ...922 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide Index...