240
Chapter 4 Application Programs
Program Listings
4
' Amplitude: 2 Volt Peak to Peak
' Offset: 0 Volt
' Output Impedence: 50 Ohm
'
'Modulation:
' Modulation type: Sum Modulation.
' Sum Amplitude: 1 V
'
' Sum State: ON
'
' Channel1 Output: Enabled
' 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
' This program sets up a waveform by selecting the waveshape
' and adjusting the frequency, amplitude, and offset.
With mfIo
'Reset and clear instrument
.WriteString "*RST"
.IO.Clear
'Send Command to set the desired configuration on Channel 1
.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 Command to set the desired configuration on Channel 2
.WriteString "SOURCE2:FUNCTION SQU"
.WriteString "SOURCE2:FREQUENCY 1000"
.WriteString "SOURCE2:VOLT:UNIT VPP"
.WriteString "SOURCE2:VOLT 2"
.WriteString "SOURCE2:VOLT:OFFSET 0"
.WriteString "OUTPUT2:LOAD 50"
'Set Sum Modulation parameter
.WriteString "SOURCE1:SUM:SOURCE CH2"
.WriteString "SOURCE1:SUM:AMPLITUDE 1"
.WriteString "SOURCE1:SUM:STATE 1"
'Enable output.
.WriteString "OUTPUT1 ON"
.WriteString "OUTPUT2 ON"
End With
Text2.Text = "Output set as SUM signal on Channel 1"
To Next Page
Loading...
Need help?
General
