Synchronizing Acquisitions
39
Agilent InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
1205
' Save *ESE (Standard Event Status Enable register) mask
' (so it can be restored later).
Dim varInitialESE As Variant
myScope.WriteString "*ESE?"
varInitialESE = myScope.ReadNumber
' Set *ESE mask to allow only OPC (Operation Complete) bit.
myScope.WriteString "*ESE " + CStr(CInt("&H01"))
' Acquire using :DIGitize.
Set up OPC bit to be set when the
' operation is complete.
' -----------------------------------------------------------------
myScope.WriteString ":DIGitize"
myScope.WriteString "*OPC"
' Assume the oscilloscope will trigger, if not put a check here.
' Wait until OPC becomes true (bit 5 of Status Byte register, STB,
' from Standard Event Status register, ESR, is set).
STB can be
' read during :DIGitize without generating a timeout.
Do
Sleep 4000
' Poll more often than the timeout setting.
varQueryResult = myScope.IO.ReadSTB
Loop While (varQueryResult And &H20) = 0
' Clear ESR and restore previously saved *ESE mask.
myScope.WriteString "*ESR?"
' Clear ESR by reading it.
varQueryResult = myScope.ReadNumber
myScope.WriteString "*ESE " + CStr(varInitialESE)
' Get results.
' -----------------------------------------------------------------
myScope.WriteString ":WAVeform:COUNt?"
varQueryResult = myScope.ReadNumber
Debug.Print "Averaged waveforms: " + CStr(varQueryResult)
myScope.WriteString ":MEASure:RISetime"
myScope.WriteString ":MEASure:RISetime?"
varQueryResult = myScope.ReadNumber
' Read risetime.
Debug.Print "Risetime: " + _
FormatNumber(varQueryResult * 1000000000, 1) + " ns"
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 ...