VB2005でDelay（Wait)タイマーを作るには - 1268659744

1：こじら：2010/03/15(月) 22:29:04: こんばんは。RS232Cではお世話になりました。おかげ様で送受信
できるようになりました。ありがとうございました。
　次に起こった問題なんですが、現在のRS232Cの通信はTX,RX端子のみ
でおこなっているので、PCからの送信時、相手のバッファオーバーフロー
が分かりません。
　しかし、バッファサイズは分かっているので、それを見越した
送信データ数とWaitタイマーで現在はしのいでみようと考えて
います。しかし、VB6の時のようにタイマーがうまく動きません。
Form_Load
Timer1.Interval = 1000
Timer1.Enable = False
:
:
Loadのエンド

Dim Acount as integer
Dim TimerCount as integer

:
送信処理
ACount = 2

For i as integer=0 To X
送信関数(data(i)) 'data配列に送信したいデータを設定
TimerCount = 0
Timer1.Enable =True
Do while Acount>TimerCount
(空）
Loop

Timer1.Enable =False

Next

：

Private Sub Timer_Tick　～
　TimerCount = TimerCount+1
end Sub

というようにしているのですが、Do While文で帰ってこなくなります
処理がないことがだめなのかと、この文の中に仮演算　a=a+TimerCountとしても
かえってこなくなりました。
ちなみに、VB6の時につかっていたプログラムで動いていたのですが
正しい書き方かどうか知らず動いたので使っていました。

ネットとかで調べると、VB2005などではマルチタスク処理にすべき
とありましたが、Waitをどのように改造すればよいのでしょうか。

題目とことなるのですが、ICのレジスタアクセスを行うのに
Classプロパティを使用すると良い（質問14）と以前アドバイス頂いた
のですが、例えば512アドレス（レジスタ）あれば、512個のプロパティー
を作る必要があるのでしょうか？

1つのプロパティーを何とか512個のインスタンス化処理みたいな
ことでうまくできないでしょうか。
　プロパティーの中身を替えた時など、全てのプロパティー記述
を直すのが一苦労なので、なにかうまい方法あれば教えていただけ
ないでしょうか

よろしくお願いします
2：igoten：2010/03/16(火) 10:52:53: プログラムの構成が良いか悪いかは提示されたコードが
部分的なので判りませんが、Do while Acountに関しては
このループの中に
Application.DoEvents()
を入れて見て下さい。
3：igoten：2010/03/16(火) 14:23:18: Whileは単にタイマーとして使用しているんですね。
それなら
Private Sub timeWaiteTime(ByVal waiteTime As DateInterval)
Dim startTime As DateTime = Now
While (Now.Subtract(startTime).TotalMilliseconds < waiteTime)
System.Threading.Thread.Sleep(1)
Application.DoEvents()
End While
End Sub
と言う関数を作っておいて
timeWaiteTime(5000)
と呼びだした方がいいかも知れません。
4：こじら：2010/03/20(土) 00:39:46: 有難うございます。（お礼の挨拶遅くなりすみませんでした）
おかげさまで、　PICとPCとで通信させ、操作することができるように
なりました。
HPと、掲示板でアドバイス頂いたおかげです。
ありがとうございました。

現在、そのソースは色々デバッグして、ソースが非常に乱雑で見にくいので、
関数のモジュール参照化と、RS232Cをモジュール化をこころみて整理しよう
としています。
RS232Cモジュールに関しては、また他のソフトでもこの通信モジュールのファイル
を読ませれば簡単に使用できるようにしたいとも思っています。

そこで御相談なのですが、GUI作成時、Form1にSerialPort1を追加
してForm1クラス上に全て記述して使用していますが、
独自関数や、UART操作関数関係を別ファイルに作成し、FORM1では
それらのファイルから使用する、参照するといった方法はないでしょうか
クラスでできるかと思ったのですがSerialPort1なんかは、参照ファイル
（クラスファイル）のなかでFORM1.SerialPort1.～というような形にし
なければ、エラーになりました。

度々で申し訳ありませんがアドバイスお願いします。
5：igoten：2010/03/23(火) 11:53:15: やりたいことはおよそ見当が付くのですが、実は.NETではFormもクラスなんです。
先ず共通はModuleにしましょう、Moduleと言ってもクラスですが。
さて問題はSerialPortです、もちろんこれを他のクラスに置くことは可能です。
しかし問題はすっきりするかどうかですが多分すっきりしないでしょう。
マルチフォームでSerialPort専用のフォームを作ってその中にSerialPort関係は
全て入れてしまい、ほかのプログラムでも使用できるようにする方が良いと思います。