Agilent Technologies Agilent 33500 Series, User Manual

Page: 230 / 278

229
Chapter 4 Application Programs
Program Listings
4
4
DataStr = Join(Waveform, ",") ' Create string from data array
With mFio
'Clear and reset instrument and increase the Visa Connection timeout to 40
'seconds for downloading a long waveform
.WriteString "*CLS"
.WriteString "*RST"
.IO.Timeout = 40000
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"
End With
'Downloading Waveform
Text2.SelStart = Len(Text2.Text)
Text2.SelText = "Downloading Waveform..." & vbCrLf
With mFio
.WriteString "SOURce1:DATA:ARBitrary TestArb," & DataStr
End With
Call WaitForOPC(mFio)
Text2.Text = Text2.Text & "Download Complete" & vbCrLf
With mFio
'Send command to set the desired configuration
.WriteString "SOURce1:FUNCtion:ARBitrary TestArb" ' set current arbitrary
waveform to defined arb pulse
.WriteString "SOURCE1:VOLT 2" ' set max waveform amplitude to 2 Vpp
.WriteString "SOURCE1:VOLT:OFFSET 0" ' set offset to 0 V
.WriteString "OUTPUT1:LOAD 50" ' set output load to 50 ohms
.WriteString "SOURCE1:FUNCtion:ARB:SRATe 40000" ' set sample rate
.WriteString "SOURce1:FUNCtion ARB" ' turn on arb function
'This example creates an arbitrary waveform in volatile memory.
'To save the waveform to non-volatile memory, use one of the following
commands:
'MMEMory:STOR:DATA1 "INT:\TESTARB.arb" 'Stores the arb to internal memory as
TESTARB.arb
'MMEMory:STOR:DATA1 "USB:\TESTARB.arb" 'Stores the arb to a USB flash drive as
TESTARB.arb
'Enable output
.WriteString "OUTPUT1 ON" 'turn on channel 1 output
Sleep 1000
End With