Agilent Technologies Agilent 33500 Series, Руководство пользователя

Страница: 233 / 278

232
Chapter 4 Application Programs
Program Listings
4
End With
'Loading arb files into waveform memory.
With mFio
.WriteString "MMEM:LOAD:DATA ""INT:\BUILTIN\SINC.ARB"""
Call WaitForOPC(mFio)
.WriteString "MMEM:LOAD:DATA ""INT:\BUILTIN\CARDIAC.ARB"""
Call WaitForOPC(mFio)
.WriteString "MMEM:LOAD:DATA ""INT:\BUILTIN\HAVERSINE.ARB"""
Call WaitForOPC(mFio)
End With
'Build a sequence descriptor string consisting of arbitrary waveform segments.
strSeqDescriptor = "mySequence"
strSeqDescriptor = strSeqDescriptor & "," +
"""INT:\BUILTIN\SINC.ARB"",5,once,maintain,12"
strSeqDescriptor = strSeqDescriptor & "," +
"""INT:\BUILTIN\CARDIAC.ARB"",5,repeat,highAtStart,35"
strSeqDescriptor = strSeqDescriptor & "," +
"""INT:\BUILTIN\HAVERSINE.ARB"",0,once,lowAtStart,10"
strSeqDescriptor = strSeqDescriptor & "," +
"""INT:\BUILTIN\SINC.ARB"",0,once,highAtStartGoLow,7"
'Calculate the header of the sequence command.
strHeader = "#" & CStr(Len(CStr(Len(strSeqDescriptor)))) &
CStr(Len(strSeqDescriptor))
'Append the header information and sequence descriptor.
strCommand = "SOURce1:DATA:SEQ " & strHeader & strSeqDescriptor
With mFio
'Send command to set the desired configuration
.WriteString strCommand
Call WaitForOPC(mFio)
.WriteString "SOURce1:FUNCtion:ARBitrary mySequence"
.WriteString "SOURCE1:VOLT 2"
.WriteString "SOURCE1:VOLT:OFFSET 0"
.WriteString "OUTPUT1:LOAD 50"
.WriteString "SOURCE1:FUNCtion:ARB:SRATe 40000"
.WriteString "SOURce1:FUNCtion ARB"
'Enable output.
.WriteString "OUTPUT1 ON"
Sleep 1000
End With
Text2.SelText = "Arbitrary Wave Sequence generated on Channel1" & vbCrLf
Exit Sub
MyError:
Text2 = Err.Description
Resume Next