Agilent Technologies Infiniium 90000 Q-Series, Programmer'S Manual

Page: 1120 / 1186

1120 Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
38
Sample Programs
' 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
ErrorHandler:
MsgBox "*** Error : " + Error, vbExclamation
End
End Sub
'
' Initialize the oscilloscope to a known state.
' -------------------------------------------------------------------
Private Sub Initialize()
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
ErrorHandler:
MsgBox "*** Error : " + Error, vbExclamation
End
End Sub
'
' Capture the waveform.