234
Chapter 4 Application Programs
Program Listings
4
Example: Two-channel Output
This program (found in the “Examples\chapter6\PulseWidthMod” subdirectory on the
CD-ROM) configures a pulse waveform with duty cycle, which is then slowly modulated
by a triangle waveform.
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'This 2_Channel_output program demonstrates the functionality of driving
'two different waveform outputs on the two channels of a 33522A instrument with
'following waveform characteristics.
'
'Channel 1 Parameters:
'Wave Shape: Sine
'Frequency: 1000 Hz
'Amplitude: 2 Volt Peak to Peak
'Offset: 0 Volt
'Load Impedance: 50 Ohm
'Channel1 Output: Enabled
'
'Channel 2 Parameters:
'Wave Shape: Square
'Frequency: 20 KHz
'Amplitude: 1 Volt RMS
'Offset: 1 Volt
'Load Impedance: 10 KOhm
'Channel2 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
With mfIo
'Clear and reset instrument
.WriteString "*CLS"
.WriteString "*RST"
Sleep 1000
' Send commands to set channel 1 to desired configuration
.WriteString "SOURCE1:FUNCTION SIN"
.WriteString "SOURCE1:FREQUENCY 1000"
.WriteString "SOURCE1:VOLT:UNIT VPP"
.WriteString "SOURCE1:VOLT 2"
.WriteString "SOURCE1:VOLT:OFFSET 0"
.WriteString "OUTPUT1:LOAD 50"
' Send commands to set channel 2 to desired configuration
To Next Page
Loading...
