Omega DR130 SERIES, Руководство пользователя

Страница: 83 / 99

7-6
Output the measurement data (BINARY Code)
Read out the measurement data by BINARY code from DR130/DR230/DR240, display on CRT of
personal computer, and save to floppy disc.
10 'TS0 BO1 <ESC T> FM1
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS0BIN.DAT" FOR OUTPUT AS #2
40 PRINT #1,"TS0"
50 LINE INPUT #1,D$:PRINT D$
60 PRINT #1,"BO1"
70 LINE INPUT #1,D$:PRINT D$
80 PRINT #1,CHR$(&H1B)+"T"
90 LINE INPUT #1,D$:PRINT D$
100 PRINT #1,"FM1,001,010"
110 D$=INPUT$(2,#1):PRINT #2,D$
120 A=CVI(MID$(D$,1,2)):PRINT A
130 D$=INPUT$(A,#1):PRINT #2,D$
140 L=0
150 PRINT ASC(MID$(D$,1,1));:PRINT "/";
160 PRINT ASC(MID$(D$,2,1));:PRINT "/";
170 PRINT ASC(MID$(D$,3,1));:PRINT
180 PRINT ASC(MID$(D$,4,1));:PRINT ":";
190 PRINT ASC(MID$(D$,5,1));:PRINT ":";
200 PRINT ASC(MID$(D$,6,1));:PRINT
210 L=0
220 FOR I=4 TO A-3
230 PRINT RIGHT$("0"+HEX$(ASC(MID$(D$,I+3,1))),2)+" ";
240 L=L+1
250 IF L=6 THEN L=0 :PRINT
260 NEXT I
270 CLOSE
Output the system configuration data
Read out the configuration data from DR130/DR230/DR240, display on CRT of personal computer,
and save to floppy disc.
10 'TS5 <ESC T> CF
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS5.DAT" FOR OUTPUT AS #2
40 PRINT #1,"TS5"
50 LINE INPUT #1,D$:PRINT D$
60 PRINT #1,CHR$(&H1B)+"T"
70 LINE INPUT #1,D$:PRINT D$
80 PRINT #1,"CF0"
90 LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
100 IF LEFT$(D$,2)<>"E:" GOTO 90
110 CLOSE
120 END
7.2 RS-232-C Sample Programs