■■■20レス以内で済むF-BASICの質問はこちらへ■■■

609：598：2015/10/21(水) 05:44:32: >>608
　詳しいご報告ありがとうございます。
Windows 2000でPCオンボードのシリアルポート　…普通ですね。

　環境としては、F-BASICのUpdateバージョンはU003でよろしいでしょうか？。
U003の場合のランタイムは、F1A0RN63.DLL 2000/12/07

それと、Windowsのカーネルは、
KERNEL32.DLL 2007/04/16 : 5.00.2195.7135
　C Runtime Libraryは、
MSVCRT.DLL 2003/06/19 : 6.1.9844.0
　シリアルドライバは、
%SystemRoot%system32\drivers\serial.sys 2003/06/19 : 5.0.2195.6655
%SystemRoot%system32\drivers\serenum.sys 2003/06/19 : 5.0.2195.6655

今回の判明点は、
・エラー「[27]システムに異常があります」はデータ入力段階で発生している。
　入力命令の種類によらず、かつ、フロー制御なしの場合。
・ハードウェアフロー制御(RTS/CTS)有効ではPRINT#で送信待ちになる。

次のテストプログラムでどの段階まで進むか確認していただけませんか。
通信条件設定は次の各パターンで・・・
＊ CM$="COM0:(S7N2N7NNN)" '制御なし
＊ CM$="COM0:(S7N2N7ENN)" 'フロー制御(RTS/CTS)有効
＊ CM$="COM0:(S7N2N7NEN)" 'フロー制御(DTR/DSR)有効

※応答待ち状態に陥った場合はCTRL+CキーでBASICプログラムを強制中断してください。
※もし、while eof(1)... の行でエラー「システムに異常があります」が発生した場合は
直前にWAIT命令を追加してみてください。

var CM$, R$
baud 0,9600
CM$="COM0:(S7N2N7NNN)"
open CM$ for output as #2 : open CM$ for input as #1
WAIT 100
print"!!送信始!!" : print#2,"D" ' コマンド送信
while eof(1) :print"*"; :wend ' 受信開始までループ
R$=input$(1,#1) :print:print"!!受信あり!!"
WAIT 100
if LOF(1)>0 then R$=R$ + input$(LOF(1),#1)
close
stop : end

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板