4
5
6
7
For more information, see the SCPI.NET driver help that comes with
Agilent Command Expert.
'
' Agilent SCPI.NET Example in Visual Basic .NET
' -------------------------------------------------------------------
' This program illustrates a few commonly used programming
' features of your Agilent oscilloscope.
' -------------------------------------------------------------------
Imports System
Imports System.IO
Imports System.Text
Imports Agilent.CommandExpert.ScpiNet.AgInfiniiVision3000X_02_00
Namespace InfiniiVision
Agilent InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
Cut- and- paste the code that follows into the Visual Basic .NET source
file.
Edit the program to use the VISA address of your oscilloscope.
Add a reference to the SCPI.NET 3.0 driver:
a
Right- click the project you wish to modify (not the solution) in the
Solution Explorer window of the Microsoft Visual Studio
environment.
Choose Add Reference....
b
In the Add Reference dialog, select the Browse tab, and navigate to
c
the ScpiNetDrivers folder.
•
Windows XP: C:\Documents and Settings\All Users\Agilent\
Command Expert\ScpiNetDrivers
•
Windows 7: C:\ProgramData\Agilent\Command Expert\
ScpiNetDrivers
Select the .dll file for your oscilloscope, for example
d
AgInfiniiVision3000X_02_00.dll; then, click OK.
e
Right- click the project you wish to modify (not the solution) in the
Solution Explorer window of the Microsoft Visual Studio environment
and choose Properties; then, select
"InfiniiVision.ScpiNetInstrumentApp" as the Startup object.
Build and run the program.
Class ScpiNetInstrumentApp
Private Shared myScope As AgInfiniiVision3000X
Public Shared Sub Main(ByVal args As String())
Try
Dim strScopeAddress As String
'strScopeAddress = "a-mx3054a-60028.cos.agilent.com";
strScopeAddress = _
"TCPIP0::a-mx4054a-60154.cos.agilent.com::inst0::INSTR"
Console.WriteLine("Connecting to oscilloscope...")
Programming Examples
1325
41