Agilent Technologies 66312A, 6634B, 66332A, 6633B, 6632B, 6614C, 6613C, 6631B, 6612C, 6611C manual 1225

Models: 6632B 6633B 66332A 6634B

1 103
Download 103 pages 34 Kb
Page 97
Image 97

 

 

 

 

Example Programs - D

1225

 

 

 

1230

’Clear status circuit

 

 

1235

CODES$="*CLS"

:GOSUB 2000

 

 

1240

FOR I=1 TO 50

:NEXT I

 

’Wait for supply to clear

1245

 

 

 

1250

’Disable output and save present state to location 2

1255

CODES$ = "OUTPUT OFF;*SAV 2"

:GOSUB 2000

1260

END

 

 

 

1265

 

 

 

2000

’Send command to dc source

 

 

2005

CALL IBWRT(PS%,CODES$)

 

 

2010

IF IBSTAT%

 

 

 

2015

RETURN

 

 

 

1250

’Disable output and save present state to location 2

1255

CODES$ = "OUTPUT OFF;*SAV 2"

:GOSUB 2000

1260

END

 

 

 

1265

 

 

 

2000

’Send command to dc source

 

 

2005

CALL IBWRT(PS%,CODES$)

 

 

2010

IF IBSTAT%

 

 

 

2015

RETURN

 

 

 

2020

 

 

 

2100

’Error detection routine

 

 

2105

PRINT "GPIB error. IBSTAT%

= HEX$(IBSTAT%)

2110

PRINT "

IBERR%

=

";IBERR%" in line ";ERL

2115

STOP

 

 

 

2120

 

 

 

3000

’Get data from dc source

 

 

3005

CALL IBRD(PS%,OUTPUT$)

 

 

3010

IF IBSTA%

 

 

 

3015

I=1

 

 

’Parse data string

3020

X=1

 

 

 

3025

C=INSTR(I,OUTPUT$,";")

 

 

3030

WHILE C <> 0

 

 

 

3035

D$=MID$(OUTPUT$,I,C-I)

 

 

3040

OUTPUT(X)=VAL(D$)

 

’Get values

3045

I=C+1

 

 

 

3050

C=INSTR(I,OUTPUT$,";")

 

 

3055

X=X+1

 

 

 

3060

WEND

 

 

 

3065

D$=RIGHT$(OUTPUT$,LEN(OUTPUT$)-(I-1))

3070

OUTPUT(X)=VAL(D$)

 

 

3075

OUTPUT$=SPACE$(40)

 

’Clear string

3080

RETURN

 

 

 

97

Page 97
Image 97
Agilent Technologies 66312A, 6634B, 66332A, 6633B, 6632B, 6614C, 6613C, 6631B, 6612C, 6611C manual 1225