Agilent Technologies N6700B, Руководство пользователя

Страница: 114 / 206

7 Programming Examples
114 Series N6700 User’s Guide
Digitizer Programming Example
This program uses the voltage in step mode and also demonstrates
how to set up and use the digitizer. When done, the program checks
for instrument error and gives a message if there is an error.
Sub digitizer_programming_example()
Dim IDN As String
Dim GPIBaddress As String
Dim ErrString As String
Dim channel As String
Dim measPoints As Long
Dim measOffset As Long
Dim VoltSetting As Double
Dim finalVoltage As Double
Dim timeInterval As Double
Dim VoltPoints() As Variant
Dim i As Long
Const WTG_MEAS = 8
Const WTG_TRANS = 16
'These variables are necessary to initialize the VISA COM.
Dim ioMgr As AgilentRMLib.SRMCls
Dim Instrument As VisaComLib.FormattedIO488
' The following command line provides the program with the VISA name of the
' interface that it will communicate with. It is currently set to use GPIB.
GPIBaddress = "GPIB0::5::INSTR"
' Use the following line instead for LAN communication
' TCPIPaddress="TCPIP0::141.25.36.214"
' Use the following line instead for USB communication
' USBaddress = "USB0::2391::1799::US00000002"
' Initialize the VISA COM communication
Set ioMgr = New AgilentRMLib.SRMCls
Set Instrument = New VisaComLib.FormattedIO488
Set Instrument.IO = ioMgr.Open(GPIBaddress)
' This controls the number of points the measurement system measures
measPoints = 100
' This controls the number of points to offset the measurement (positive for
' forward, negative for reverse)
measOffset = 0
' This sets the time between points
timeInterval = 0.0025
' This controls the voltage
VoltSetting = 5
' This is the final voltage that will be triggered
finalVoltage = 10
' This variable can be changed to program any channel in the mainframe
channel = "(@1)" ' channel 1