VB2008にてRS232C通信をするソフトを作ってみました。

VB2008にてRS232C通信をするソフトを作ってみました。
通信する相手はボードで、ボードに対してコマンド（アスキー）を送信します。
送信した際に、ボードより回答は有るのですが特に受信の処理はしていません。

ノートＰＣなのでＵＳＢ－２３２Ｃ変換ケーブル（秋月電子の物）にて通信しております。

とりあえず通信は出来て、思った通りに動くのですが、１時間ほど経つとソフトがフリーズ
する現象が起きます。

特に大量の通信をしている訳ではなく、３～４回ほど５文字位を送信しているだけです。
ソフトが立ち上がっている際は、常に通信ポート（例えばＣＯＭ３）は開いたままにして
いる事に問題が有るのでしょうか？

ＵＳＢ－２３２Ｃ変換ケーブルが悪いのでしょうか？

それとも、ボードよりの返信がＰＣの何処かのバッファに溜まってしまうのでしょうか？

フリーズする時は、特にボードに対して送信はしていないタイミングです。
１時間ほど通信したままにしてほったらかしにしている状態です。

これだけでは、解らないかも知れませんが、フリーズしてしまう要因で思い当たる事に
気づいた事が有りましたら何でも良いので、教えて下さい。

当方、この通信は初めてなもので、知らない事が多いかと思います。

ちなみにポートを閉じるタイミングはソフトを落としたときです。

No.3 ベストアンサー 回答者： koi1234 回答日時： 2010/02/01 12:50

>初めは、Ｗｉｎｄｗｓが立ち上がり砂時計が消えて、ハードディスクのチカチカという初期動作の前に

>ＵＳＢを挿入していたら、アプリが良くフリーズしていました。

>Ｗｉｎｄｗｓが完全に立ち上がってからＵＳＢを入れるように使用するようにお願いしました所、
ちょっと待った
これは都度変換機を抜き差ししてるってことですか？
（つけっぱなしじゃ駄目なのですか？）
今回違うと思いますが少なくても通信中に抜き差しするとアプリがロックします
　接触不良で外れかかったため止まったという話も
　あるかもしれません
　VBよく知らないんですがオープンとかでエラー起こしても
　突き進んでるような（この場合もロックするのではないかという気がします）

また別のUSBポートにさした場合ポート番号が変化します

PC設定やソフト以前にその変換機が安定して動作してるのか
自体を確認した方がいいような気もします
（PC-PC間で1日ぐらい通信し続けてみるとか）
なんとなくハード要因の気がします

この回答への補足

ご指摘有難うございます。
通信中に抜き差しは、しておりません。

私もＵＳＢ－ＲＳ２３２Ｃのケーブルが、ちょっと疑わしい気もします。
（ちょっと手元に無いので実験出来ないのですが）
確かに、アプリでポートを開いたままＵＳＢを抜き差しするとおかしな事になります。
これは当然の結果でしょうが。

またお気づきの事が有りましたら教えて頂ければ幸いです。

補足日時：2010/02/01 15:34

No.2 回答者： koi1234 回答日時： 2010/01/31 23:41

>ソフトが立ち上がっている際は、常に通信ポート（例えばＣＯＭ３）は開いたままにして

>いる事に問題が有るのでしょうか？
いいえ　　それが普通です
その昔自分が通信のデータ送信するときだけポートオープン・クローズ
繰り返してデータが受け取れないとか騒いでいる人間を見ましたが
プログラムを見て呆然としたことがあります

>ボードよりの返信がＰＣの何処かのバッファに溜まってしまうのでしょうか？
これはありますがオーバーランでデータが破壊されるだけでアプリが
フリーズするとか言うことは無いはずです
フリーズってどんな状況なんでしょうかね？
通信が止まるだけ？それともアプリがうんともすんとも言わなくなる？

通信でフロー制御してる場合バッファが一杯になると通信が止まりますが
これはアプリのハングとは違います

状況が良く分かりませんが可能性という意味では
受信データ読み捨てて様子見ては？

この回答への補足

経緯を補足します。アプリがフリーズします。
初めは、Ｗｉｎｄｗｓが立ち上がり砂時計が消えて、ハードディスクのチカチカという初期動作の前に
ＵＳＢを挿入していたら、アプリが良くフリーズしていました。
（ユーザーがせっかちだったので）

Ｗｉｎｄｗｓが完全に立ち上がってからＵＳＢを入れるように使用するようにお願いしました所、
フリーズしなくなったとの事でした。

しかし、先日受けた報告で１時間ほどほったらかしにしておいたらフリーズしたとの事でした。
実は、状況を直接見たわけではなく、その使用者にも使い方に問題が有るのかも知れませんが、
私もこの様な通信のソフトは、初めてだった為おかしな所が有るのか？？と思い、ご存知の方々に
ご教授をお願いしました。

すいません。別の方への補足に簡略化しましたソースを記載しました。
気が付いた所が有りましたら教えて頂ければ幸いです。

ポートをオープンにしたままでもソフトがアプリがフリーズする事は無いんですね。
気になるのは、ポートをオープンしたままの際に、パソコンの電源の管理とかスクリーンセーバなどです。
一応、ざっくりは止めてきたはずなのですが、もしかしたらその設定が止められてないものが有るかもしれません。
こんな設定も、関係はしますでしょうか？

私の考えは、ＰＣの設定が怪しいかと思っていたのですが・・・
アプリにも原因が有るかも・・・と見ていたのですが、見つけられずです。

補足日時：2010/02/01 11:15

No.1 回答者： sakuzatchi 回答日時： 2010/01/31 23:25

この手の質問をなさる場合は、ソースコードをさらすことが鉄則です。

ソースを読まずに、どのようなアドバイスができると思いますか?

RS-232C周りのプログラムだとそれほどたいした規模にならないのですから
適当なところにアップロードして取得できるようにしてください。

この回答への補足

'この命令はForm1のものですが、Form3のポートのコマンドを使ってます。まずはここでポートをオープンします。
Private Sub Form3_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3_Button.Click
Dim Settei As String

'シリアルポートを設定。
Form3.SerialPort1.PortName = SerialPortComboBox.Text
Form3.SerialPort1.BaudRate = SerialBpsComboBox.Text
Form3.SerialPort1.Parity = IO.Ports.Parity.None
Form3.SerialPort1.DataBits = SerialDataBitsComboBox.Text
Form3.SerialPort1.StopBits= IO.Ports.StopBits.None

'　RTSラインを有効にする
Form3.SerialPort1.RtsEnable = True

'送信タイムアウト
Form3.SerialPort1.WriteTimeout = 3000

Try
Form3.SerialPort1.Open()

End Try

'シリアルポート送信データの文字エンコードをSJISに指定する。
Form3.SerialPort1.Encoding = System.Text.Encoding.GetEncoding(932)

Settei = "AAA"

'いざ送信
Form3.SerialPort1.Write(Settei)

'送信バッファが空になるまで待って、
While Form3.SerialPort1.BytesToWrite > 0
My.Application.DoEvents()
End While

Me.Close()　'Form1をクローズ
End Sub
-------------------------------------------------------------------
'Form3の命令です。
Private Sub Button_Speed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Speed.Click

Dim Speed_B As String
Speed_B = "S"

'いざ送信
SerialPort1.Write(Speed_B)

'送信バッファが空になるまで待って、
While SerialPort1.BytesToWrite > 0
My.Application.DoEvents()
End While

End Sub
-------------------------------------------------------------------

後はソフトを閉じるときにポートをクローズするだけです。
それまではポートを開きっぱなしです。
命令は他にもあるのですが、すべて同じようにしております。
基本的には送りっぱなしです。
コマンドを送った後には、相手から何かしら返してきているのですが
特にその処理はしていません。

すいません。
下手なソースで。

補足日時：2010/02/01 10:57