タイトル : Re: 連続したシリアル通信処理 投稿日 : 2014/03/03(Mon) 17:18 投稿者 : オショウ
> F1.SerialPort1.Write("チャンネルAへのコマンドおよび設定値" & vbLf) > manualEvent.Reset() > bret = manualEvent.WaitOne(500, False) > If bret = False Then > MessageBox.Show("Timeout Error", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) > End If 強いて指摘するならば・・・ manualEvent.Reset() F1.SerialPort1.Write("チャンネルAへのコマンドおよび設定値" & vbLf) bret = manualEvent.WaitOne(500, False) If bret = False Then MessageBox.Show("Timeout Error", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End If と言うことになると思います。 これを試してダメならば、他の要因の問題となります。 因みに、シリアルUSB変換アダプタを使っているとか・・・ 以上。参考まで |