Agilent Technologies InfiniiVision 3000 Programmer's Manual page 1099

VisaComError:
End Sub
'
' Initialize the oscilloscope to a known state.
' -------------------------------------------------------------------
Private Sub Initialize()
VisaComError:
End Sub
'
' Capture the waveform.
' -------------------------------------------------------------------
Private Sub Capture()
Agilent InfiniiVision 3000 X-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("USB0::0x0957::0x17A6::US50210029::0::INSTR")
myScope.IO.Clear ' Clear the interface.
myScope.IO.Timeout = 10000
' Initialize - start from a known state.
Initialize
' Capture data.
Capture
' Analyze the captured waveform.
Analyze
Exit Sub
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End
On Error GoTo VisaComError
' Get and display the device's *IDN? string.
strQueryResult = DoQueryString("*IDN?")
Debug.Print "Identification string: " + strQueryResult
' Clear status and load the default setup.
DoCommand "*CLS"
DoCommand "*RST"
Exit Sub
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End
' Set I/O communication timeout.
Programming Examples
1099
39