Visual Basic6.0を使ったプロファイル補正についてPart2

質問

• Visual Basic6.0を使用してプロファイル補正を行う方法について解説します。
• プロファイル補正には、定数や配列を使用して値の処理を行います。
• プロファイル補正の結果をテキストファイルに出力することも可能です。

回答No.1

itohh

こんにちは。itohhといいます。

VBのヘルプ（MSDNライブラリー）は確認されました？

とりあえず、こちらに回答します。

１．まずは、ファイルの読み込みについて
＞ Data(399) = Input(400, #1)
ファイルの入力のInput文では一気に全レコードを読み込めません。
レコード数分、繰り返し読み込みましょう。
（MSDNライブラリーのInputの説明にサンプルが載っていますよ）

とりあえず、コードのサンプルを記載しますね。
Dim RecCnt As Integer
RecCnt = 0
' ファイルの終端までループを繰り返します。
Do While Not EOF(1)
If(RecCnt > 399) Then
' 配列より大きくなったらループを抜ける
' （配列よりも多く設定しようとするとエラーになります）
' 必要ならエラー処理を書いてください
Exit Do
End If
Input #1, Data(RecCnt) ' 配列n番目に読み込む
RecCnt = RecCnt + 1
Loop

２．計算のループについて
＞ Do While surface < l
これって、以下のループのほうがシンプルではないでしょうか？
For surface = 0 To l
For i = surface To l
' 計算処理

Next i
Next surface
For文の使用方法の詳細はMSDNライブラリーで確認してください。

３．ファイルへの書き出し処理
読み込みと同じです、まず、ファイルをオープンしてからPrint文で出力します。
これも、MSDNライブラリーのPrintの説明にサンプルが載っていますよ！
あえて、サンプルは書きません、ご自分で調べてみてください。

補足

どうも有難うございました。
無事走らせることはできたのですが、フォーム上にオブジェクトを作って、出力の値をテキストボックスに表示したいと思うのですが、うまく表示されません(スクロールバーの使い方もよく分かりません)。また、テキストファイルに出力する場合、ファイルをオープンしてからPrint文で出力する方法がうまくいきません(入力と同様にファイルを開いてそのファイルに書きこむとエラーがでる)。ヘルプを見てもテキストファイルにどうやって出力したらよいか分かりません。どうか出力方法を教えてください。
よろしくお願いします。

以下のプログラムでは出力がフォームに表示され値が重なり読み取ることができません。

Private Sub Command1_Click()

step = 0.25
ramda = 0.5

Open "C:\hosei1.txt" For Input As #1

Dim RecCnt As Integer
Dim Data(1 To 400)
RecCnt = 1

Do While Not EOF(1)

If (RecCnt > 401) Then
Exit Do
End If

Input #1, Data(RecCnt)
RecCnt = RecCnt + 1

Loop

surface = 1
l = 400

Do While surface < l

g = 0
h = 0
i = surface

Do While i < l
h = h + (Data(i + 1) * Exp(-((i - surface + 1) * step) / ramda) + g) * step / 2
g = Data(i + 1) * Exp(-((i - surface + 1) * step) / ramda)
z = CSng(h / ramda * (1 - Exp(-(step * (l - surface) / ramda))))
i = i + 1

Print CSng(z)

Loop

surface = surface + 1
Loop

End Sub