Agilent Technologies Agilent 33500 Series, User Manual

Page: 223 / 278

222
Chapter 4 Application Programs
Program Listings
4
Example: Amplitude Modulation
This program (found in the “Examples\chapter6\AMLowLevel” subdirectory on the CD-
ROM) configures a waveform with amplitude modulation using lower-level SCPI
commands. It also shows how to use the *SAV command to store the instrument
configuration in the waveform generator’s internal memory.
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'This Amplitude Modulation program enables an Amplitude modulation output on
'channel 1 of the 33500 Series instrument with the following signal characteristics.
'
'Carrier Frequency: Sine wave, 1 Mhz, 5 VPP
'Amplitude Modulated carrier with Double Sideband Suppressed Carrier
'
'Modulating Frequency: Sine Wave, 1 KHz
'AM Depth: 100%
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
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
'Configure the carrier waveform
.WriteString "SOURCE1:FUNC SIN"
.WriteString "SOURCE1:FREQ 10E5"
.WriteString "SOURCE1:VOLT:UNIT VPP"
.WriteString "SOURCE1:VOLT 5"
'Select the mode of Amplitude Modulation
.WriteString "SOURCE1:AM:DSSC ON"
'Select the modulation source
.WriteString "SOURCE1:AM:SOURCE INT"
'Select the shape of the modulating waveform
.WriteString "SOURCE1:AM:INT:FUNC SIN"
'Set the modulating frequency
.WriteString "SOURCE1:AM:INT:FREQ 1000"
'Set the modulation depth
.WriteString "SOURCE1:AM:DEPTH 100"