Table of Contents
Advertisement
HP IBASIC Program Example (ARB_GEN)
61
Generating Arbitrary Waveforms with the HP E1340A
1
!RE-SAVE"ARB_GEN"
2
!This program generates a 4096 point, 0 to 5V ramp waveform.
3
!The data is transferred to the AFG as voltages.
4
!
10
!Assign I/O path between IBASIC and the E1340A.
20
ASSIGN @Afg TO 80910
30
COM @Afg,Waveform(1:4096)
40
!
50
!Set up error checking
60
ON INTR 8 CALL Errmsg
70
ENABLE INTR 8;2
80
OUTPUT @Afg;"*CLS"
90
OUTPUT @Afg;"*SRE 32"
100
OUTPUT @Afg;"*ESE 60"
110
!
120
!Call the subprogram which resets the AFG.
130
CALL Rst
140
!Set AFG parameters
150
OUTPUT @Afg;"SOUR:ROSC:SOUR INT;";!reference oscillator
160
OUTPUT @Afg;":SOUR:FREQ:FIX 1E3;";!frequency
170
OUTPUT @Afg;":SOUR:FUNC:SHAP USER;";!function
180
OUTPUT @Afg;":SOUR:VOLT:LEV:IMM:AMPL 5.1V"!scale
190
!
200
!Call subprogram which defines waveform segment.
210
CALL Ramp_wave
220
!
230
!Select output sequence and initiate waveform
240
OUTPUT @Afg;"SOUR:FUNC:USER A"
250
OUTPUT @Afg;"INIT:IMM"
260
!
270
WAIT .1
280
OFF INTR 8
290
END
300
!
310
SUB Ramp_wave
320 Ramp_wave: !Subprogram which defines a ramp waveform
330
COM @Afg,Waveform(*)
340
FOR I=1 TO 4096
350
Waveform(I)=I*.00122
360
NEXT I
370
!
380
OUTPUT @Afg;"SOUR:LIST:SEGM:SEL A"!Select segment name
Continued on next page
amplitude
!wait-for-arm state
!allow interrupt to be serviced
Chapter 3
Advertisement
Table of Contents
