Top > VBA のオブジェクト指向プログラミング > 入門編
第１０回 第１１回 第１２回
第１１回：データをカプセル化して複数の処理を同時に実行する(2)
標準モジュール：mod7
第１０回 第１１回 第１２回
Top > VBA のオブジェクト指向プログラミング > 入門編
第１０回 第１１回 第１２回
第１１回：データをカプセル化して複数の処理を同時に実行する(2) 
前回のサンプルプログラムの動作を確認してみましょう。
まずは複数の処理を同時に呼び出してみます。
以下のプログラムを実行すると、lngKey(0)の指し示すデータには0〜2、
lngKey(1)の指し示すデータには1〜3、lngKey(2)の指し示すデータには
2〜4、という感じでデータが追加されます。
実行結果を見ると合計と平均が正しく計算されていることがわかり
ます。
まずは複数の処理を同時に呼び出してみます。
以下のプログラムを実行すると、lngKey(0)の指し示すデータには0〜2、
lngKey(1)の指し示すデータには1〜3、lngKey(2)の指し示すデータには
2〜4、という感じでデータが追加されます。
実行結果を見ると合計と平均が正しく計算されていることがわかり
ます。
標準モジュール：mod7
Option Explicit
Sub test1()
On Error GoTo error_proc
Dim lngKey() As Long
Dim lngCnt As Long
<font color="green"> 'データを10個取得</font>
ReDim lngKey(9)
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)番目のデータの初期化</font>
lngKey(lngCnt) = modSumAvg7.init
Next lngCnt
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)番目のデータにデータを追加</font>
Call modSumAvg7.addValue( _
lngKey(lngCnt), lngCnt)
Next lngCnt
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)番目のデータにデータを追加</font>
Call modSumAvg7.addValue( _
lngKey(lngCnt), lngCnt + 1)
Next lngCnt
For lngCnt = 0 To 9
<font color="green"> '(lngCnt)番目のデータにデータを追加</font>
Call modSumAvg7.addValue( _
lngKey(lngCnt), lngCnt + 2)
Next lngCnt
<font color="green"> '結果出力</font>
For lngCnt = 0 To 9
Debug.Print "********************" & CStr(lngCnt)
Debug.Print "sum=" _
& modSumAvg7.getSum(lngKey(lngCnt))
Debug.Print "avg=" _
& modSumAvg7.getAvg(lngKey(lngCnt))
Next lngCnt
End Sub
第１０回 第１１回 第１２回
Top > VBA のオブジェクト指向プログラミング > 入門編
このページへのコメント
1tH9Vg Enjoyed every bit of your article post.Much thanks again. Will read on...