Yokogawa DA100 User Manual
Page 87
IM DA100-11E
8-6
Output the measurement data (BINARY Code)
Read out the measurement data by BINARY code from DA100, display on CRT of personal computer,
and save to floppy disc.
10
'TS0 BO1
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 DA100, display on CRT of personal computer, and save to
floppy disc.
10
'TS5
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
8.2 RS-232-C Sample Programs