Agilent Technologies InfiniiVision 2000 X-Series, Programmer'S Manual, Page: 800 / 930

800 Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide
38
Programming Examples
VISA COM Examples
• "VISA COM Example in Visual Basic" on page 800
• "VISA COM Example in C#" on page 809
• "VISA COM Example in Visual Basic .NET" on page 818
• "VISA COM Example in Python" on page 826
VISA COM Example in Visual Basic
To run this example in Visual Basic for Applications (VBA):
1
Start the application that provides Visual Basic for Applications (for
example, Microsoft Excel).
2 Press ALT+F11 to launch the Visual Basic editor.
3 Reference the Agilent VISA COM library:
a Choose
Tools>References...
from the main menu.
b In the References dialog, check the "VISA COM 3.0 Type Library".
c Click
OK
.
4 Choose
Insert>Module
.
5 Cut- and- paste the code that follows into the editor.
6 Edit the program to use the VISA address of your oscilloscope, and save
the changes.
7
Run the program.
'
' Agilent VISA COM Example in Visual Basic
' -------------------------------------------------------------------
' This program illustrates a few commonly-used programming
' features of your Agilent oscilloscope.
' -------------------------------------------------------------------
Option Explicit
Public myMgr As VisaComLib.ResourceManager
Public myScope As VisaComLib.FormattedIO488
Public varQueryResult As Variant
Public strQueryResult As String
' For Sleep subroutine.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'
' Main Program
' -------------------------------------------------------------------
Sub Main()