tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

-------------------------------

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。