Agilent Technologies InfiniiVision 2000 X-Series, Руководство программиста, Страница: 826 / 930

826 Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide
38
Programming Examples
Private Sub OpenIo()
m_ResourceManager = New ResourceManagerClass()
m_IoObject = New FormattedIO488Class()
' Open the default VISA COM IO object.
Try
m_IoObject.IO = _
DirectCast(m_ResourceManager.Open(m_strVisaAddress, _
AccessMode.NO_LOCK, 0, ""), IMessage)
Catch e As Exception
Console.WriteLine("An error occurred: {0}", e.Message)
End Try
End Sub
Public Sub SetTimeoutSeconds(ByVal nSeconds As Integer)
m_IoObject.IO.Timeout = nSeconds * 1000
End Sub
Public Sub Close()
Try
m_IoObject.IO.Close()
Catch
End Try
Try
Marshal.ReleaseComObject(m_IoObject)
Catch
End Try
Try
Marshal.ReleaseComObject(m_ResourceManager)
Catch
End Try
End Sub
End Class
End Namespace
VISA COM Example in Python
You can use the Python programming language with the "comtypes"
package to control Agilent oscilloscopes.
The Python language and "comtypes" package can be downloaded from the
web at
"http://www.python.org/" and
"http://starship.python.net/crew/theller/comtypes/" , respectively.
To run this example with Python and "comtypes":
1 Cut- and- paste the code that follows into a file named "example.py".
2 Edit the program to use the VISA address of your oscilloscope.
3 If "python.exe" can be found via your PATH environment variable, open
a Command Prompt window; then, change to the folder that contains
the "example.py" file, and enter: