■前置き
VB.NETの練習を進めてます。目標は、６分力センサの自動校正システムです。６分力センサの校正は、何百水準で荷重の大きさと方向を組み合わせて測定しないといけませんので、何日もかかるし集中力が必要な測定なのでとても老体では、もちません。そこで、テンションゲージを手で押すだけで
６分力センサの校正と干渉補正を自動化するシステムを数か月かけて作ろうとしてます。そのために、まとまったシステムをＶＢ．ＮＥＴで作ろうとしてます。今まで使っていたＶＢＡでは遅すぎるし、ProcessingではＵＩに弱いし、Ｃ＃は、まだ手が届かないので将来に回して２０２０年度はＶＢ．ＮＥＴのシステムを制作していくために基本学習を初めた次第です。
練習１:Visual Basic .NET を使用して Excel のイベントを処理する方法＜Excelオートメーション学習＞
練習２：シリアル受信7ＣＨデータをSPLITして個別表示＜配列宣言ではまる＞
練習３：行列計算Imaginsolution様ライブラリ動作確認＜動作ＯＫ＞
■練習４：統計計算の最初移動平均のメソッドを作ってみました。
●仕様
| メソッド名 |
| Function MovAve(ByRef dA(,) As Long, ByVal colN As Integer, ByVal MA As Integer, ByVal rowN As Integer) As Double() |
| 機能：多ＣＨで指定回数の移動平均をとって、結果を２次元配列で戻す Double() |
| 引数１：ByREf dA(,)＝＞２次元データ配列を参照渡し |
| 引数２：ByVal colN As Integer＝＞値渡列指定、配列の０～colN列まで移動平均する列指定 |
| 引数３：ByVal MA As Integer＝＞値渡移動平均回数、指定したrowNからＭＡ個手前から平均計算 |
| 引数４：ByVal rowN As Integer＝＞値渡移動平均の最終行Ｎｏ、ここから手前にＭＡ個計算 |
●はまった点
①渡したデータ配列がゼロになってしまって計算できなくなった。
＝＞計算メソッド内で配列宣言をしていたので、移動平均にプログラムカウンタが移った瞬間に消滅していた。
対策：ＣＬＡＳＳの直下にデータ配列とデータカウントを宣言した。
②移動平均メソッド内で、次元数未定で配列宣言した後、変数をそのままつかったらエラーがでてだめだった。
Ｒｅｄｉｍ：ＭＳの解説ページ
対策：配列を使う手前でRedim()して、わかっている次元数をいれて具体的に記憶領域を確保しないと以後使えません。
●ソースコードとＦＯＲＭ１（デザイン）
ソリューションファイルをＺＩＰにしてあります。
SerialSample_DataCalc00
ソースを閲覧、コピペされるのはＧＩＳＴにアップしてあります。
１：Form1.vbのコード
https://gist.github.com/dj1711572002/e0dfc4cd23a32f7327bc07eb603bb344
2:stat00.vbのコード（stat関係の関数メソッドをいれたモジュール）
https://gist.github.com/dj1711572002/0b9357d5693f6aca09dd5c47ca46bb77
FORM1は、ご自分で作っていただきます。
ボタン２個、ListBox１個、TextBox1から11まで１１個
●動作確認
マイコンから１１５２００ｂｐｓで送信してＴＥＸＴＢＯＸへの表示されるか見てみましたがこのプログラムでは、マイコン側の送信周期は30msecより遅くないと受信データがＴＥＸＴＢＯＸに表示されないことがわかりました。ですので、私のシステムの場合10msec以下が多いのでリアルタイムに数値をＴＥＸＴＢＯＸで見ることはできないので、表示は間引いて30msecでやるようにしないといけません。