User`s guide

2-39
GPIB Tutorial and Examples
Program 2
4950 Error$(1)=”No Errors”
4960 END IF
4970 FOR X=1 TO Errcount
4980 PRINT Error$(X)
4990 NEXT X
5000 Errcount=0
5010 !
5020
!==================================================================================
5030 !
5040 !LOOP IF ANOTHER PHONE IS TO BE TESTED
5050 !
5060 PRINT Message$(2)
5070 INPUT Answer$
5080 Run$=”no”
5090 IF Answer$=”Y” OR Answer$=”y” THEN Run$=”yes”
5100 UNTIL Run$<>”yes”
5110 END
5120 !
5130
!====================================================================================
5140 !SUBROUTINES BELOW
5150
!====================================================================================
5160 !
5170 !RESULTS PRINTING SUBROUTINE
5180 !
5190 SUB
Sub_printit(Result1(*),Result2(*),Result3(*),Result4(*),Result5(*),Result6(*),Result7
(*),Result8$(*),Numarfcn,Numpwr,Title$,Heading$,Emptyst$,Empty)
5200 PRINT Title$
5210 PRINT
5220 PRINT Heading$
5230 FOR Arcount=1 TO Numarfcn
5240 FOR Txcount=1 TO Numpwr
5250 PRINT Result1(Arcount),
5260 PRINT Result2(Txcount),
5270 IF Result3(1,1)<>Empty THEN PRINT DROUND(Result3(Arcount,Txcount),4),
5280 IF Result4(1,1)<>Empty THEN PRINT DROUND(Result4(Arcount,Txcount),4),
5290 IF Result5(1,1)<>Empty THEN PRINT DROUND(Result5(Arcount,Txcount),4),
5300 IF Result6(1,1)<>Empty THEN PRINT DROUND(Result6(Arcount,Txcount),4),
5310 IF Result7(1,1)<>Empty THEN PRINT DROUND(Result7(Arcount,Txcount),4),
5320 IF Result8$(1,1)<>Emptyst$ THEN PRINT Result8$(Arcount,Txcount),
5330 PRINT
5340 NEXT Txcount
5350 NEXT Arcount
5360 PRINT
5370 SUBEND
5380 !
5390 !=============================================================================
5400 !
5410 !CHECK FOR Agilent 8922M/S SYSTEM ERRORS
5420 !
5430 SUB Sub_syserror(Uut,Error$(*),Errcount)
5440 DIM Systemerror$[100]
5450 REPEAT !Set up a loop to drain the
Agilent 8922M/S error stack
5460 OUTPUT Uut;”SYSTEM:ERROR?” !Read the last error from the
stack
5470 ENTER Uut;Systemerror$
5480 IF VAL(Systemerror$)<>0 THEN !Code 0 indicates no error
5490 Errcount=Errcount+1 !If not zero, add the error to
the programs error array
5500 Error$(Errcount)=Systemerror$
5510 END IF
5520 UNTIL VAL(Systemerror$)=0 !End when all the errors have
been read
5530 SUBEND