Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1120

38
Sample Programs
ErrorHandler:
End Sub
'
' Initialize the oscilloscope to a known state.
' -------------------------------------------------------------------
Private Sub Initialize()
ErrorHandler:
End Sub
'
' Capture the waveform.
1120
' Open a device session using the SICL_ADDRESS.
id = iopen("lan[130.29.71.191]:inst0")
Call itimeout(id, 15000)
' Clear the interface.
Call iclear(id)
' Initialize - start from a known state.
Initialize
' Capture data.
Capture
' Analyze the captured waveform.
Analyze
' Close the vi session and the resource manager session.
Call iclose(id)
Exit Sub
MsgBox "*** Error : " + Error, vbExclamation
End
On Error GoTo ErrorHandler
' Clear status.
DoCommand "*CLS"
' Get and display the device's *IDN? string.
strQueryResult = DoQueryString("*IDN?")
MsgBox "Result is: " + RTrim(strQueryResult), vbOKOnly, "*IDN? Result"
' Load the default setup.
DoCommand "*RST"
Exit Sub
MsgBox "*** Error : " + Error, vbExclamation
End
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference