Agilent Technologies 2000 X-Series Manual de servicio descargar pdf (Pagina 782)

100

101

782 Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide

36 Synchronizing Acquisitions

Polling Synchronization With Timeout

This example requires a timeout value so the operation can abort if an

acquisition does not occur within the timeout period:

' Synchronizing acquisition using polling.

' ===================================================================

Option Explicit

Public myMgr As VisaComLib.ResourceManager

Public myScope As VisaComLib.FormattedIO488

Public varQueryResult As Variant

Public strQueryResult As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Main()

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("TCPIP0::130.29.69.12::inst0::INSTR")

myScope.IO.Clear ' Clear the interface.

' Set up.

' -----------------------------------------------------------------

' Set up the trigger and horizontal scale.

myScope.WriteString ":TRIGger:MODE EDGE"

myScope.WriteString ":TRIGger:EDGE:LEVel 2"

myScope.WriteString ":TIMebase:SCALe 5e-8"

' Stop acquisitions and wait for the operation to complete.

myScope.WriteString ":STOP"

myScope.WriteString "*OPC?"

strQueryResult = myScope.ReadString

' Acquire.

' -----------------------------------------------------------------

' Start a single acquisition.

myScope.WriteString ":SINGle"

' Oscilloscope is armed and ready, enable DUT here.

Debug.Print "Oscilloscope is armed and ready, enable DUT."

' Look for RUN bit = stopped (acquisition complete).

Dim lngTimeout As Long ' Max millisecs to wait for single-shot.

Dim lngElapsed As Long

lngTimeout = 10000 ' 10 seconds.

lngElapsed = 0

Do While lngElapsed <= lngTimeout

1 2 ... 777 778 779 780 781 782 783 784 785 786 787 ... 929 930

Comentarios a estos manuales

Sin comentarios

Agilent Technologies 2000 X-Series Manual de servicio Pagina 782

Comentarios a estos manuales

Relacionado con productos y manuales para Multímetros Agilent Technologies 2000 X-Series