Table of Contents
Advertisement
23
Getting Started with the HP E1340A
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
390
OUTPUT @Afg;" SOUR:LIST:SEGM:VOLT";Waveform(*)!load
400
SUBEND
410
!
420
SUB Rst
430 Rst: !Subprogram which resets the E1340.
440
COM @Afg,Waveform(*)
450
OUTPUT @Afg;"*RST;*OPC?" !reset the AFG
460
ENTER @Afg;Complete
470
SUBEND
480
!
490
SUB Errmsg
500 Errmsg: !Subprogram which displays E1340 programming errors
510
COM @Afg,Waveform(*)
520
DIM Message$[256]
530
!Read AFG status byte register and clear service request bit
540
B=SPOLL(@Afg)
550
!End of statement if error occurs among coupled commands
560
OUTPUT @Afg;""
570
OUTPUT @Afg;"ABORT"
580
REPEAT
590
OUTPUT @Afg;"SYST:ERR?" !read AFG error queue
600
ENTER @Afg;Code,Message$
610
PRINT Code,Message$
620
UNTIL Code=0
630
STOP
640
SUBEND
!allow interrupt to be serviced
waveform points
!abort output waveform
Chapter 1
Advertisement
Table of Contents
