【ロードセル】ＣＰＬＴ静荷重データを処理するＶＢＡTool＜CPLTキャリブレータ＞

荷重変換センサを作っていると頻繁に錘をつかった校正実験があります。
ＣＰＬＴで波形をみながら測定していますので、データをそのまま自動処理はしないで、測定作業が終わった直後に測定データをＥＸＣＥＬに取り込んで半自動処理するＶＢＡを作って便利に使ってます。

●手順
①錘を順に荷重してピラミッド状のＣＰＬＴグラフを測定します
この場合は７５０ｇの錘４個を載せて校正した場合

②ＥＸＣＥＬ　ＶＢＡマクロでCPLTキャリブレータrev02.を開きます。
ＥＸＣＥＬ２００７です（ＶＢＡが速く走るバージョンです）
ＣＰＬＴキャリブレータrev02.xlsmでマクロ付きなのでマクロを有効
にする必要があります。標準モジュール　Form1のform_open()
から起動します。ここから起動しないとエラーがでます。
画面は、左にＣＰＬＴのグラフ、右にＥＸＣＥＬを開きます。

③ＶＢＡ　Form_Openしてダイアログを表示させます。

左のＣＰＬＴのデータファイルＣＳＶを読み込みます

ファイルを読み込んだらデータ範囲の選択作業です。
左のＣＰＬＴのカーソル１、２でデータとして採用できる範囲を指定します。下図のようにノイズがあるところは避けて指定します。
目視でデータ変動を確認することが重要です。
ここが全自動化ができない理由です。

③範囲を指定しながら、平均と3シグマをチェックして記録していく

④全データの平均値計算が終わったら回帰処理は手動処理
相関係数correlが0.99999と直線性が高いのでこの校正実験はＯＫです。

■追記２０２1年11月
CPLTに代わるプログラム作りました。グラフィックをBitMAP展開するテクニックを身につけてのでようやく可能になりました。CPLTはプロが作っているので速度が速いですが私のプログラムは、10msec周期までが限界です。しかし、ＣPLTでは４６０８００ｂｐｓは対応できてませんが私のプロフラムは対応できてます。一番の特徴は、カーソル間の演算ができることです。
本記事のCPLTキャリブレータの機能が入っているので、校正作業が効率的です。
下記記事人気がでたら、配布形式を作ります。

【VB.NET】リアルタイムグラフBitmap展開＜その３DGV経由CSV保存＞

●ＶＢＡプログラム備忘録
ＥＸＣＥＬファイルのＺＩＰ　Excel2007ですのでそれ以降のバージョンなら走るはずです。
ＣＰＬＴキャリブレーターrev02

中身をいじる場合にソースを記録しておきます。
　①UserForm1 のプログラム

Private Sub CommandButton1_Click() ‘OPEN CSV FILE

OpenFileName = Application.GetOpenFilename(“CPLTファイル,*.csv?”)
Workbooks.Open OpenFileName
TextBox1.Value = OpenFileName
ActiveSheet.Name = “sheet1”
MaxRow = Range(“A2”).End(xlDown).Row
MaxCol = Range(“A2”).End(xlToRight).Column
If MaxCol > 8 Then
MaxCol = 1
End If

ch = MaxCol
dataN = MaxRow
For i = 1 To MaxRow
Cells(i, MaxCol + 1) = 1000
Next i

TextBox21.Value = ch
TextBox22.Value = dataN
ScrollBar1.Min = 0
ScrollBar1.Max = dataN
ScrollBar2.Min = 0
ScrollBar2.Max = dataN
Cursol_1 = 1
Cursol_2 = 1

End Sub

Private Sub CommandButton2_Click() ‘平均　分散計算
startN = TextBox2.Value
endN = TextBox3.Value
For i = 1 To ch
aveN = Application.WorksheetFunction.Average(Range(Cells(startN, i), Cells(endN, i)))
Controls(“TextBox” & i + 3).Value = aveN
sig = 3 * Application.WorksheetFunction.StDev(Range(Cells(startN, i), Cells(endN, i)))
If aveN <> 0 Then
Controls(“TextBox” & i + 12).Value = sig
End If

Next i

End Sub

Private Sub CommandButton3_Click() ‘登録　データがＯＫなら登録番号行に記録
tourokuN = TextBox12.Value

Cells(tourokuN, ch + 1) = tourokuN
Cells(tourokuN, ch + 2) = Yvalue
For i = 1 To ch
Cells(tourokuN, i + ch + 2) = Controls(“TextBox” & i + 3).Value
Cells(tourokuN, i + ch * 2 + 2) = Controls(“TextBox” & i + 12).Value
Next i
Cells(tourokuN, 20) = TextBox2.Value
Cells(tourokuN, 21) = TextBox3.Value

TextBox12.Value = tourokuN + 1
End Sub

②標準モジュール　Module1 内のプログラム
form_Opnen 関数を最初に呼び込むことで、vbModelessで操作が自由にできるようにんしてます。
初期値も入れてあります。

Sub form_Open()
UserForm1.Show vbModeless
UserForm1.TextBox12.Value = 1
UserForm1.TextBox2.Value = 1
UserForm1.TextBox3.Value = 10End Sub