HP 8921A, Руководство программиста

Страница: 421 / 605

421
Chapter 7, IBASIC Controller
PROGram Subsystem
Example querying the value of a one dimensional array whose name is known but
whose current size is unknown
10 DIM Temp$[5000] !This will hold 250 numbers @ 20 characters each
20 DIM Result_array(500) !This array will hold up to 501 values
30 OUTPUT 714;"PROG:NUMB? Array" !Query the desired array
40 ENTER 714;Temp$ !Enter the values into a temporary string variable
50 N=-1 !Initialize array pointer, assume option base 0
60 REPEAT !Start loop to take values from string and put in array
70 N=N+1 !Increment array pointer
80 Pos_comma=POS(Temp$,",") !Find comma separator
90 Result_array(N)=VAL(Temp$[1,Pos_comma-1]) !Put value into array
100 Temp$=Temp$[Po1] !Remove value from temporary string
110 UNTIL POS(Temp$,",")=0 !Check for last value in temporary string
120 Result_array(N+1)=VAL(Temp$) !Put last value into array
130 END
The above example assumes that the dimensioned size of the IBASIC array is small-
er than the dimensioned size of the array named Result_array.
NOTE: Individual array elements cannot be queried with the :NUMBer? command.
:STATe RUN|PAUSe|STOP|CONTinue
The STATe command is used to set, from
an external controller, the execution state of the IBASIC program in the Test Set.
Table 43
defines the effect of setting the execution state of the IBASIC program to
a desired state from each of the possible current states.