VBA と Java のオブジェクト指向プログラミング

Top > VBA のオブジェクト指向プログラミング > 入門編
第10回 第11回 第12回

第11回:データをカプセル化して複数の処理を同時に実行する(2)

前回のサンプルプログラムの動作を確認してみましょう。
まずは複数の処理を同時に呼び出してみます。
以下のプログラムを実行すると、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

第10回 第11回 第12回
Top > VBA のオブジェクト指向プログラミング > 入門編

このページへのコメント

1tH9Vg Enjoyed every bit of your article post.Much thanks again. Will read on...

0
Posted by seo thing 2013年12月20日(金) 19:03:22 返信

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい

×

この広告は60日間更新がないwikiに表示されております。

編集にはIDが必要です