Download YOKOGAWA DR232 Communication Interface

8.2 RS-232-C Sample Programs
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
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
'TS0 BO1 <ESC T> FM1
OPEN "COM1:E81N" AS #1
OPEN "TS0BIN.DAT" FOR OUTPUT AS #2
PRINT #1,"TS0"
LINE INPUT #1,D$:PRINT D$
PRINT #1,"BO1"
LINE INPUT #1,D$:PRINT D$
PRINT #1,CHR$(&H1B)+"T"
LINE INPUT #1,D$:PRINT D$
PRINT #1,"FM1,001,010"
D$=INPUT$(2,#1):PRINT #2,D$
A=CVI(MID$(D$,1,2)):PRINT A
D$=INPUT$(A,#1):PRINT #2,D$
L=0
PRINT ASC(MID$(D$,1,1));:PRINT "/";
PRINT ASC(MID$(D$,2,1));:PRINT "/";
PRINT ASC(MID$(D$,3,1));:PRINT
PRINT ASC(MID$(D$,4,1));:PRINT ":";
PRINT ASC(MID$(D$,5,1));:PRINT ":";
PRINT ASC(MID$(D$,6,1));:PRINT
L=0
FOR I=4 TO A-3
PRINT RIGHT$("0"+HEX$(ASC(MID$(D$,I+3,1))),2)+" ";
L=L+1
IF L=6 THEN L=0 :PRINT
NEXT I
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
20
30
40
50
60
70
80
90
100
110
120
8-6
'TS5 <ESC T> CF
OPEN "COM1:E81N" AS #1
OPEN "TS5.DAT" FOR OUTPUT AS #2
PRINT #1,"TS5"
LINE INPUT #1,D$:PRINT D$
PRINT #1,CHR$(&H1B)+"T"
LINE INPUT #1,D$:PRINT D$
PRINT #1,"CF0"
LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
IF LEFT$(D$,2)<>"E:" GOTO 90
CLOSE
END
IM DR231-11E