Keysight Technologies 33210A User Manual page 338

6 Application Programs
' Download data points to volatile memory
MyError:
End Sub
338
Next I
For I = 211 To 4000
Waveform(I) = "0"
Next I
DataStr = Join(Waveform, ",")
txtError.SelText = "Downloading Arb..." & vbCrLf
With Fgen
.WriteString "DATA VOLATILE, " & DataStr
End With
txtError.SelText = "Download Complete" & vbCrLf
' Set up arbitrary waveform and output
With Fgen
.WriteString "DATA:COPY PULSE, VOLATILE"
.WriteString "FUNCtion:USER PULSE"
.WriteString "FUNCtion:SHAPe USER"
.WriteString "OUTPut:LOAD 50"
.WriteString "FREQuency 5000;VOLTage 5"
.WriteString "OUTPut ON"
End With
Exit Sub
txtError = Err.Description & vbCrLf
Resume Next
' Set remaining points to zero
' Create string from data array
' Copy arb to non-volatile
' memory
' Select the active arb waveform
' Output the selected arb waveform
' Output termination is 50 Ohms
' Output frequency is 5 kHz
' @ 5 Vpp
' Enable Output
Keysight 33210A User's Guide