Agilent Technologies InfiniiVision 5000 Series Programmer's Guide

732 Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
12 Programming Examples
Imports System.Text
Namespace InfiniiVision
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. The commands in the extras function are
' 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. Most of the following initialization
' commands are initialized by *RST. It is not necessary to
' 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.

Agilent Technologies InfiniiVision 5000 Series Specifications

General

Brand	Agilent Technologies
Model	InfiniiVision 5000 Series
Category	Test Equipment
Language	English