Agilent Technologies Agilent 33500 Series, User Manual

Page: 227 / 278

226
Chapter 4 Application Programs
Program Listings
4
Example: A Pulse Waveform
This program (found in the “Examples\chapter6\Pulse” subdirectory on the CD-ROM)
configures a pulse waveform, setting pulse width, period, and high/low levels. The edge
time is then incremented.
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'This Pulse program enables a simple pulse wave output on channel 1 of a
'33500 Series instrument with signal characteristics given below. A loop
'in the program increases the edge transition time by 10 nsec every 100 msec.
'Wave Shape: Pulse
'Frequency: 100 KHz
'Amplitude: 2 Volts Peak to Peak
'Offset: 0 Volt
'Edge Transition Time: Variable (10 ns to 100 ns in 10 ns steps every 100 msec)
'Channel1 Output: Enabled
'
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim io_mgr As VisaComLib.ResourceManager
Dim mfIo As VisaComLib.FormattedIO488
Dim i As Integer
Set io_mgr = New AgilentRMLib.SRMCls
Set mfIo = New FormattedIO488
Set mfIo.IO = io_mgr.Open(Text1.Text, NO_LOCK, 2000, "")
On Error GoTo MyError
' This program sets up a waveform by selecting the waveshape
' and adjusting the frequency, amplitude, and offset.
With mfIo
'Clear and reset instrument
.WriteString "*CLS"
.WriteString "*RST"
Sleep 1000
'Set function to Pulse.
.WriteString "SOURCE1:FUNCTION PULSE"
'Set pulse period (sec) & voltage
.WriteString "SOURCE1:FUNCTION:PULSE:PERIOD 1E-3"
.WriteString "SOURCE1:VOLT 5"
'Set Duty Cycle to 50%
.WriteString "SOURCE1:FUNCTION:PULSE:DCYCLE 50"
'Enable output.
.WriteString "OUTPUT1 ON"
Sleep 1000