システム構成を読み出してCRTに表示し、フロッピーディスクに書き込む。
10 'TS5 <GET> CF
20 OPEN "TS5.DAT" FOR OUTPUT AS #1 30 ISET IFC
40 CMD DELIM=0 50 PRINT @1;"TS5"
60 WBYTE &H3F,&H21,&H8,&H3F;
70 PRINT @1;"CF0"
80 LINE INPUT @1;D$:PRINT D$:PRINT #1,D$
90 LINE INPUT @;D$:PRINT D$:PRINT #1,D$
100 IF LEFT$(D$,2)<>"E:" GOTO 90 110 CLOSE:STOP
120 END
8.1 GP-IBサンプルプログラム
8.2 RS-232-Cサンプルプログラム
ここでは，パーソナルコンピュータPC9801シリーズ(NEC社製)を使用してのサンプルプロ グラムを紹介します。
プログラムを作成するときの参考にしてください。
環境
対象モデル ：NEC社製 PC9801シリーズ
対象言語 ：N88-BASIC(PC9801シリーズ標準プログラム言語) RS-232-Cの設定
ここでのサンプルプログラムは，ボーレート：9600，データ長8ビット，パリティ：
EVEN，ストップビット：1bit，ハンドシェーク：OFF-OFFとして作成しています。
パーソナルコンピュータの設定
PC9801シリーズの受信バッファ長は255バイトです。BYNARYデータを受信するときは，
255バイトを超えないように注意してください。
■設定データの出力
設定データを読み出してCRTに表示し、フロッピーディスクに書き込む。
10 'TS1 <ESC T> LF
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS1.DAT" FOR OUTPUT AS #2 40 PRINT #1,"TS1"
50 LINE INPUT #1,D$:PRINT D$
60 PRINT #1,CHR$(&H1B)+"T"
70 LINE INPUT #1,D$:PRINT D$
80 PRINT #1,"LF001,010"
90 LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
100 IF LEFT$(D$,2)<>"EN" GOTO 90 110 CLOSE
120 END
■設定データのDA100への書き込み
フロッピーディスクから設定データを読み出してCRTに表示し，DA100に設定する。
10 'SETTEI
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS1.DAT" FOR INPUT AS #2 40 LINE INPUT #2,D$
50 IF LEFT$(D$,2)="EN" GOTO 100 60 PRINT #1,D$:PRINT D$
70 LINE INPUT #1,D$
80 IF LEFT$(D$,2)="E1" THEN PRINT "SYNTAX ERROR"
90 GOTO 40 100 CLOSE 110 END
8-5
IM DA100-11J
サン プル プロ グラ ム
8
■単位、小数点情報の出力
単位、小数点情報を読み出してCRTに表示し、フロッピーディスクに書き込む。
10 'TS2 <ESC T> LF
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS2.DAT" FOR OUTPUT AS #2 40 PRINT #1,"TS2"
50 LINE INPUT #1,D$:PRINT D$
60 PRINT #1,CHR$(&H1B)+"T"
70 LINE INPUT #1,D$:PRINT D$
80 PRINT #1,"LF001,010"
90 LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
100 IF MID$(D$,2,1)<>"E" THEN 90 110 CLOSE
120 END
■測定データの出力(アスキーコード)
測定データをアスキーコードで読み出してCRTに表示し、フロッピーディスクに書き込む。
10 'TS0 <ESC T> FM0
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS0ASC.DAT" FOR OUTPUT AS #2 40 PRINT #1,"TS0"
50 LINE INPUT #1,D$:PRINT D$
60 PRINT #1,CHR$(&H1B)+"T"
70 LINE INPUT #1,D$:PRINT D$
80 PRINT #1,"FM0,001,010"
90 LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
100 IF MID$(D$,2,1)<>"E" THEN 90 110 CLOSE
120 END
■測定データの出力(バイナリコード)
測定データをバイナリコードで読み出してCRTに表示し、フロッピーディスクに書き込む。
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
8.2 RS-232-Cサンプルプログラム
■システム構成情報の出力
システム構成を読み出してCRTに表示し、フロッピーディスクに書き込む。
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 8.2 RS-232-Cサンプルプログラム
8-7
IM DA100-11J
サン プル プロ グラ ム
8
8.3 RS-422-A/RS-485サンプルプログラム
ここでは，パーソナルコンピュータPC9801シリーズ(NEC社製)を使用したサンプルプログ ラムを紹介します。プログラムを作成するときの参考にしてください。
環境
対象モデル ：NEC社製 PC9801シリーズ
対象言語 ：N88-BASIC (PC9801シリーズ標準プログラム言語)
結線方式 ：4線式(測定データのアスキー出力だけは，4線式と2線式の両方を紹介して います)
RS-422-A/RS-485の設定 ボーレート ：9600
データ長 ：8ビット
パリティ ：EVEN
ストップビット ：1ビット
アドレス ：01
パーソナルコンピュータの設定
PC9801シリーズの受信バッファ長は255バイトです。バイナリデータを受信するときは，
255バイトを超えないように注意してください。
■設定データの出力
設定データを読み出して画面に表示し，フロッピーディスクに書き込みます。
10 '
20 OPEN "COM1:E81N" AS #1
30 OPEN "TS1.DAT" FOR OUTPUT AS #2
40 '
50 PRINT #1,CHR$(&H1B)+"O 01"
60 LINE INPUT #1,D$ :PRINT D$
70 PRINT #1,"TS1"
80 LINE INPUT #1,D$ :PRINT D$
90 PRINT #1,CHR$(&H1B)+"T"
100 LINE INPUT #1,D$ :PRINT D$
110 PRINT #1,"LF001,010"
120 LINE INPUT #1,D$
130 PRINT D$
140 PRINT #2,D$
150 IF LEFT$(D$,2)<>"EN" THEN GOTO 120
160 '
170 PRINT #1,CHR$(&H1B)+"C 01"
180 LINE INPUT #1,D$ :PRINT D$
190 CLOSE
200 END
■設定データのDA100への書き込み
フロッピーディスクから設定データを読み出して画面に表示し，DA100に設定します。
10 '
20 OPEN "COM1:E81N" AS #1 30 OPEN "TS1.DAT" FOR INPUT AS #2
40 '
50 PRINT #1,CHR$(&H1B)+"O 01"
60 LINE INPUT #1,D$ :PRINT D$
70 LINE INPUT #2,D$
80 IF LEFT$(D$,2)="EN" THEN GOTO 150 90 PRINT #1,D$
100 PRINT D$
110 LINE INPUT #1,D$
120 IF LEFT$(D$,2)="E1" THEN PRINT "SYNTAX ERROR"
130 GOTO 70
140 '
150 PRINT #1,CHR$(&H1B)+"C 01"
160 LINE INPUT #1,D$ :PRINT D$
170 CLOSE
180 END