Agilent Technologies 33500 Series - Page 232

231
Chapter 4 Application Programs
Program Listings
4
4
Example: Sequencing
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 Arb Sequence program demonstrates how to define an Arb Sequence consisting
' of one or more different arbitrary waveform segments and play it back using the
' following configuration:
'
' Wave Shape: Arb Sequence
' Frequency: 40 KSa/Sec
' Amplitude: 2 Volt Peak to Peak
' Offset: 0 Volt
' Output Impedance: 50 Ohm
' Channel1 Output: Enabled
'
'Caution: This program will erase all unsaved data in volatile memory.
'If necessary, save that information before running this example program.
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
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, "")
Dim Waveform() As String
Dim I As Integer
Dim DataStr As String
ReDim Waveform(1 To 4000)
Dim strSeqDescriptor As String
Dim strHeader As String
Dim strCommand As String
On Error GoTo MyError
'Compute waveform
Text2.Text = ""
With mFio
'Clear and reset instrument
.WriteString "*CLS"
.WriteString "*RST"
Sleep 1000
Call WaitForOPC(mFio)
'
' *** Clearing Volatile memory ***
' Caution: This program will erase all unsaved data in volatile memory.
' If necessary, save that information before running this example program.
'
.WriteString "DATA:VOLatile:CLEar"