Table of Contents
Advertisement
HP IBASIC Program Example (MULSEG)
67
Generating Arbitrary Waveforms with the HP E1340A
1
!RE-SAVE"MULSEG"
2
!This program generates an arbitrary waveform comprised of two
3
!waveform segments. One segment is a sine wave and the other
4
!segment is a triangle wave.
5
!
10
!Assign I/O path between IBASIC and the E1340A.
20
ASSIGN @Afg TO 80910
30
COM @Afg,Waveform1(1:4096),Waveform2(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
!
150
!Set AFG parameters
160
OUTPUT @Afg;"SOUR:FREQ:FIX 10E3;";!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 segments A and B.
210
CALL Sine_tri_wave
220
!
230
!Select output sequence and initiate waveform
240
OUTPUT @Afg;"SOUR:FUNC:USER AB"
250
OUTPUT @Afg;"INIT:IMM"
260
!
270
WAIT .1
280
OFF INTR 8
290
END
300
!
310
SUB Sine_tri_wave
320 Sine_tri_wave: !Subprogram which defines waveforms
330
COM @Afg,Waveform1(*),Waveform2(*)
340
FOR I=1 TO 4096
350
Waveform1(I)=5*(SIN(2*PI*(I/4096)))
360
NEXT I
370
!
Continued on next page
amplitude
!wait-for-arm state
!allow interrupt to be serviced
Chapter 3
Advertisement
Table of Contents
