:MTESt Commands
23
Agilent InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
511
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.
lngElapsed = 0
Do While lngElapsed <= lngTimeout
myScope.WriteString ":OPERegister:CONDition?"
varQueryResult = myScope.ReadNumber
' Operation Status Condition Register MTE bit (bit 9, &H200).
If (varQueryResult And &H200) <> 0 Then
Exit Do
Else
Sleep 100
' Small wait to prevent excessive queries.
lngElapsed = lngE 100
End If
Loop
' Look for RUN bit = stopped (mask test termination).
lngElapsed = 0
Do While lngElapsed <= lngTimeout
myScope.WriteString ":OPERegister:CONDition?"
varQueryResult = myScope.ReadNumber
' Operation Status Condition Register RUN bit (bit 3, &H8).
If (varQueryResult And &H8) = 0 Then
Exit Do
Else
Sleep 100
' Small wait to prevent excessive queries.
lngElapsed = lngE 100
End If
Loop
' Get total waveforms, failed waveforms, and test time.
myScope.WriteString ":MTESt:COUNt:WAVeforms?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test total waveforms: " + strQueryResult
myScope.WriteString ":MTESt:COUNt:FWAVeforms?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test failed waveforms: " + strQueryResult
myScope.WriteString ":MTESt:COUNt:TIME?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test elapsed seconds: " + strQueryResult
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + Err.Description
End Sub
Содержание InfiniiVision 4000 X-Series
Страница 1: ...s1 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide ...
Страница 32: ...32 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide ...
Страница 52: ...52 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 2 Setting Up ...
Страница 66: ...66 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 3 Getting Started ...
Страница 242: ...242 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 7 ACQuire Commands ...
Страница 252: ...252 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 8 BUS n Commands ...
Страница 300: ...300 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 12 DEMO Commands ...
Страница 308: ...308 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 13 DIGital d Commands ...
Страница 330: ...330 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 15 DVM Commands ...
Страница 336: ...336 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 16 EXTernal Trigger Commands ...
Страница 368: ...368 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 17 FUNCtion m Commands ...
Страница 386: ...386 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 18 HARDcopy Commands ...
Страница 484: ...484 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 21 MEASure Commands ...
Страница 506: ...506 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 22 MEASure Power Commands ...
Страница 542: ...542 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 24 POD Commands POD1 DISP 0 THR 1 40E 00 ...
Страница 1098: ...1098 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 34 WGEN w Commands ...
Страница 1174: ...1174 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 37 Error Messages ...
Страница 1206: ...1206 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 39 Synchronizing Acquisitions ...
Страница 1336: ...1336 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide 41 Programming Examples ...
Страница 1352: ...1352 Agilent InfiniiVision 4000 X Series Oscilloscopes Programmer s Guide Index ...