Blocking Synchronization - Agilent Technologies InfiniiVision 7000A Series Programmer's Manual

Blocking Synchronization

Use the :DIGitize command to start the acquisition. This blocks subsequent
queries until the acquisition and processing is complete. For example:
'
' Synchronizing acquisition using blocking.
' ===================================================================
Option Explicit
Public myMgr As VisaComLib.ResourceManager
Public myScope As VisaComLib.FormattedIO488
Public varQueryResult As Variant
Public strQueryResult As String
Sub Main()
VisaComError:
End Sub
Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
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.
' -----------------------------------------------------------------
myScope.WriteString ":TRIGger:MODE EDGE"
myScope.WriteString ":TRIGger:EDGE:LEVel 2"
myScope.WriteString ":TIMebase:SCALe 5e-8"
' Acquire.
' -----------------------------------------------------------------
myScope.WriteString ":DIGitize"
' Get results.
' -----------------------------------------------------------------
myScope.WriteString ":MEASure:RISetime"
myScope.WriteString ":MEASure:RISetime?"
varQueryResult = myScope.ReadNumber
Debug.Print "Risetime: " + _
FormatNumber(varQueryResult * 1000000000, 1) + " ns"
Exit Sub
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
Synchronizing Acquisitions
' Read risetime.
10
777