Agilent Technologies 33500 Series User Manual

224
Chapter 4 Application Programs
Program Listings
4
Example: Linear Sweep
This program (found in the “Examples\chapter6\LinearSweep” subdirectory on the CD-
ROM) creates a linear sweep for a sine wave. It sets the start and stop frequencies, and
the sweep time.
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'This Linear Sweep program enables a simple sine sweep wave output on channel 1
'of a 33500 Series instrument with the following signal characteristics:
'Wave Shape: Sine
'Amplitude: 2 Volt Peak to Peak
'Start Frequency: 20 Hz
'Start Frequency: 20 KHz
'Sweep fashion: Linear
'Sweep Time; 2 Sec / sweep
'Trigger Source: Immediate
'Channel1 Output: Enabled
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Private Sub Command1_Click()
Dim io_mgr As VisaComLib.ResourceManager
Dim mfIo As VisaComLib.FormattedIO488
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
'Select the waveform shape, amplitude and offset
.WriteString "SOURCE1:FUNCTION SIN"
.WriteString "SOURCE1:VOLT:UNIT VPP"
.WriteString "SOURCE1:VOLT 2"
'Select the frequency boundaries of the sweep
.WriteString "SOURCE1:FREQUENCY:START 20"
.WriteString "SOURCE1:FREQUENCY:STOP 20E3"
'Select the sweep mode
.WriteString "SOURCE1:SWEEP:SPACING LINEAR"
'Set the sweep time in seconds
.WriteString "SOURCE1:SWEEP:TIME 2"
'Select the sweep trigger source
.WriteString "TRIGGER1:SOURCE IMM"
'Enable Sweep State

Agilent Technologies 33500 Series Specifications

General

Brand	Agilent Technologies
Model	33500 Series
Category	Laboratory Equipment
Language	English