NEUTRIK RT-1M, Руководство пользователя

Страница: 15 / 71

>@9
Multitone Audio Test System User Manual
V 3.32 15 / 71
Test of Function
After connection of the cables and proper setting of the IEEE address it is recommended to
run the subsequent short program to confirm the proper function of the system.
>@9
can be
operated with any operating system providing an IEEE-488 interface.
HT-BASIC Program Example
10 ! RT-1M Demo Program
20
30
Adr=11 ! enter IEEE address here
40
50
Adr=Adr+700 ! evaluate output/enter address J
51 GOSUB 900 ! read device informations
60 OUTPUT Adr;"Output:Mtone:Active 1" END
65 OUTPUT Adr;"Output:MTone:Start" END ! measurement loop
70 OUTPUT Adr;"Measurement1:Level?" END ! terminate output with END
80 GOSUB 1000 ! read the measurements
90 PRINT
100 GOTO 65
110 STOP
900 ! read system information
905 DIM Inf$[100]
910 OUTPUT Adr;"System:Information?" END
920 ENTER Adr;Inf$
930 PRINT Inf$
940 RETURN
1000 ! interpret incoming data stream
1010 DIM Rcv$[1000]
1020 DIM X$[10]
1030 DIM Y$[20]
1040
1050 ENTER
Adr;Rcv$ ! read data A
1060 Xpos=POS(Rcv$,"/") ! find X/Y separator
1070 Ypos=POS(Rcv$,",") ! find Y/X separator
1080
1090
WHILE (Xpos>0) AND (Ypos>0) ! as long as there are separators do:
1100 X$=Rcv$[1,Xpos-1] ! isolate X value
1110 X=VAL(X$) ! convert X string to value A
1120 Ypos=POS(Rcv$,",") ! find Y/X separator
1130 IF Ypos>0 THEN ! is there another value? >
1140 Y$=Rcv$[Xpos+1,Ypos-1] ! isolate Y value
1150 ELSE
1160 Y$=Rcv$[Xpos+1,LEN(Rcv$)] ! isolate Y value
1170 END IF
1180 Y=VAL(Y$) ! convert Y string to value
1190 Rcv$=Rcv$[Ypos+1,LEN(Rcv$)] ! delete the read XY pair from string
1200 Xpos=POS(Rcv$,"/") ! find next X/Y separator
1210 PRINT "Bin# ",X,"Meas: ",Y
1220 END WHILE
1230 RETURN
1240 END