Omega Speaker Systems VR200 - Manual (Page 40)

7 - 5
7 PROGRAM EXAMPLES
7.5 Program to Output Measured Data (in Binary Code) from VR200
and Write to Disk
100 ‘************************************************************
110 ‘** RS422A Example Program for IBM PC **
120 ‘** **
130 ‘** To input and save measured data **
140 ‘** (ASCII code) **
150 ‘** **
160 ‘************************************************************
170 ‘**
180 ‘** Baud rate: 1200 Stop bit: 1 bit
190 ‘** Parity: none Control: OFF/OFF
200 ‘** Data length: 8 bits Others: LF is sent automatically.
210 ‘**
220 ‘
230 OPEN “COM1:1200,N,8,1,LF” AS #1
240 OPEN “TEST.DAT” FOR OUTPUT AS #2
250 ‘
260 PRINT #1,CHR$(27)+”O 01"
270 PRINT #1,”TS0"
280 PRINT #1,”BO1"
290 ‘
300 PRINT #1,CHR$(27)+”T”;
310 PRINT #1,”FM1,01,04"
320 D$=INPUT$(2,#1)
330 PRINT #2,D$
340 A=CVI(MID$(D$,1,2))
350 PRINT A
360 D$=INPUT$(A,#1)
370 PRINT #2,D$
380 PRINT ASC(MID$(D$,1,1));:PRINT “/”;
390 PRINT ASC(MID$(D$,2,1));:PRINT “/”;
400 PRINT ASC(MID$(D$,3,1));:PRINT
410 PRINT ASC(MID$(D$,4,1));:PRINT “:”;
420 PRINT ASC(MID$(D$,5,1));:PRINT “:”;
430 PRINT ASC(MID$(D$,6,1))
440 ‘
450 L=0
460 FOR I=7 TO A
470 PRINT RIGHT$(“0”+HEX$(ASC(MID$(D$,I,1))),2)+” “;
480 L=L+1
490 IF L=5 THEN L=0 : PRINT
500 NEXT I
510 ‘
520 PRINT #1,CHR$(27)+”C 01"
530 CLOSE
540 END
7.5 Program to Output Measured Data (in Bainary Code) from VR200 and Write to Disk