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.
Содержание InfiniiVision 7000A Series
Страница 1: ...Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide...
Страница 34: ...34 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 1 What s New...
Страница 44: ...44 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 2 Setting Up...
Страница 58: ...58 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 3 Getting Started...
Страница 652: ...652 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 5 Commands by Subsystem...
Страница 750: ...750 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 8 Error Messages...
Страница 784: ...784 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 10 Synchronizing Acquisitions...
Страница 810: ...810 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 11 More About Oscilloscope Commands...
Страница 922: ...922 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide Index...