Agilent Technologies 33250A User Manual page 284

'
' Triggered Burst
'
Arb.Output "output:state off"
Arb.Output "output:sync off"
Arb.Output "func square"
Arb.Output "frequency 20e3"
Arb.Output "volt 1;:volt:offset 0"
Arb.Output "func:square:dcycle 20"
Arb.Output "trig:sour bus"
Arb.Output "burst:ncycles 3"
Arb.Output "burst:state on"
Arb.Output "output:state on"
Arb.Output "output:sync on"
Check_Errors
For i = 1 To 20
Arb.Output "*trg"
Sleep 100
Next i
MsgBox "Triggered Burst", vbOKOnly, "33250A Example"
'
' Download a 20 point Arbitrary waveform using ASCII.
'
Dim Arb_20(0 To 19) As Double
Fill_array Arb_20
With Arb.IO.Write
.Command "data volatile,", False
.Argument(0) = Arb_20
.Send
End With
Arb.Output "func:user volatile"
Arb.Output "apply:user 10e3,1,0"
Check_Errors
MsgBox "Download a 20 point Arb waveform using ASCII.", vbOKOnly, "33250A Example"
'
' Download a 6 point Arbitrary waveform using Binary.
' This example for GPIB only
'
Dim Arb_6()
Dim Length As Long
Dim Command() As Byte
Arb_6 = Array(2047, -2047, 2047, 2047, -2047, -2047)
Length = IOUtils.CreateIEEEBlock(Arb_6, IIOUtils_Short, IIOUtils_BigEndian,
"data:dac volatile,", Command)
Arb.IO.WriteBytes Length, Command
6
Arb.Output "apply:user 5000,1,0"
Check_Errors
MsgBox "Download a 6 point Arb waveform using Binary.", vbOKOnly, "33250A Example"
Continued...
Chapter 6 Application Programs
Example: Microsoft Visual Basic for Windows
284
' Turn OFF Output BNC
' Disable Sync BNC
' Select Function square
' 20kHz
' 1Vpp and 0V offset
' 20% duty cycle
' Bus triggering
' Burst of 3 cycles per trigger
' Enable Burst
' Turn ON Output BNC
' Enable Sync BNC
' Routine checks for errors
' Send BUS trigger
' Wait 100msec
' Allocate array of 20 reals
' Call routine to fill array
' Place command into buffer
' Place comma separated data into buffer
' Send command + data
' Select downloaded waveform
' Output waveform: 10kHz, 1Vpp
' Routine checks for errors
' Create array
' Used to find total length of array
' Used to store total command sequence
' Download command and bytes
' Output waveform: 5kHz, 1Vpp