Agilent Technologies InfiniiVision 5000 Series Programmer's Manual page 732

12
Programming Examples
Imports System.Text
Namespace InfiniiVision
732
Class VisaInstrumentApp
Private Shared oscp As VisaInstrument
Public Shared Sub Main(ByVal args As String())
Try
oscp = _
New VisaInstrument("USB0::2391::5957::MY47250010::0::INSTR")
Initialize()
' The extras function contains miscellaneous commands that
' do not need to be executed for the proper operation of
' this example.
' shown for reference purposes only.
' Extra() ' Uncomment to execute the extra function.
Capture()
Analyze()
Catch err As System.ApplicationException
MsgBox("*** Error : " & err.Message, vbExclamation, _
"VISA Error Message")
Exit Sub
Catch err As System.SystemException
MsgBox("*** Error : " & err.Message, vbExclamation, _
"System Error Message")
Exit Sub
Catch err As System.Exception
Debug.Fail("Unexpected Error")
MsgBox("*** Error : " & err.Message, vbExclamation, _
"Unexpected Error")
Exit Sub
Finally
oscp.Close()
End Try
End Sub
' Initialize()
' --------------------------------------------------------------
' This function initializes both the interface and the
' oscilloscope to a known state.
Private Shared Sub Initialize()
Dim strResults As StringBuilder
' RESET - This command puts the oscilloscope into a known
' state. This statement is very important for programs to
' work as expected.
' commands are initialized by *RST.
' reinitialize them unless the default setting is not suitable
' for your application.
' Reset the to the defaults.
oscp.DoCommand("*RST")
' Clear the status data structures.
The commands in the extras function are
Most of the following initialization
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
It is not necessary to