タイトル : Re: Windows7でのシリアル通信異常 投稿日 : 2011/10/19(Wed) 20:54 投稿者 : ミッキー
> 通信途中で異常となってしまいます。 プログラムのどの行で異常になりますか? > WindowsXP,Vista,NT,2000では、何の問題もなく動作していましたが、 > Windows7のみ通信途中で異常となってしまいます。 これは全て同じスペックのPCで、OSだけ異なる場合の検証結果ですか? というのは、Windows7 の問題ではなく、PCスペックに問題があるのでは? と思っています。 あと、投稿されたプログラムについて質問です。 1.GoTo 文を使われていますが、視認性の観点からお勧めはしません。 2.通信タイムアウト処理でカウンタを使用していますが、 その上限が1,000,000(200,000×5回)なのは何故ですか? 意味がある数字なのでしょうか? タイムアウト処理を設けたいのであれば、タイマーを利用するのはいかがでしょうか? たとえば、5秒応答がなければタイムアウト処理する場合 mTimeoutCount = 0 Timer1.Interval = 1000 Timer1.Enabled = True Do DoEvents If mTimeoutCount > 5 Then Exit Do (処理記述省略) Loop Timer1.Enabled = False ------------------------------- Private Sub Timer1_Timer() mTimeoutCount = mTimeoutCount + 1 End Sub ------------------------------- |