HP E1340A User Manual page 34

SetCommands$(1) = SetCommands$(1) + ":SOUR:VOLT:LEV:IMM:AMPL 5.1V"
' Set the amplitude
SetCommands$(2) = "SOUR:LIST:SEGM:SEL a" ' Select the segment name
SegCommands$ = "SOUR:LIST:SEGM:VOLT " ' Command to send volts data
OutCommands$(1) = "SOUR:FUNC:USER a" ' Select the user name
OutCommands$(2) = "INIT:IMM" ' Start waveform generation
' Setup the AFG
CALL CmdExe(SetCommands$(), 2)
' Call function to check for AFG errors
CALL CheckError("GenSeg (SetCommands)")
' Calculate the segments; store in memory
FOR I = 1 TO 4096
WaveSeg!(I) = I * .00122
NEXT I
' Call function to execute the final command with segment data
CALL SendData(SegCommands$, WaveSeg!(), 4096)
' Call function to check for AFG errors
CALL CheckError("GenSeg (SegCommands)")
'Setup the AFG for output
CALL CmdExe(OutCommands$(), 2)
' Call function to check for AFG errors
CALL CheckError("GenSeg (OutCommands)")
END SUB
SUB RstClr
CALL IOOUTPUTS(ADDR&, "*RST;*OPC?", 10)
CALL IOENTER(ADDR&, Into!)
Continued on next page
Chapter 1 Getting Started with the HP E1340A 34