VBNETのクラスで計算した結果を出そう-ability -スキルアップをして人生を楽しむ。その日々の綴り。

前回、クラス定義を書きました。

今度のクラス定義は、ちょっと変えます。

Public class POINT_KEISAN()
Public DATA1 as integer
Public DATA2 as integer

Public Sub NEW()

End Sub

Public Sub NEW(ByVal SET_A as integer,ByVal SET_B as integer)

DATA1 = SET_A

DATA2 = SET_B

End Sub

Public Function SUM()

Return DATA1 + DATA2

End Function

End class

ちょっと長いけど、これが今回の定義としよう。

途中にね、 Public Sub NEW()とかあるでしょ？

これは、

Dim A as new POINT_KEISAN()が使えるようになる言葉です。

まぁ、なくてもいいんだけど。

さて、105と200を足して答えをクラスで求めよう。

まずは、105と200という2個の数字をクラスへ渡そう。

渡し方は、Dim A as new POINT_KEISAN(105,200)

これで渡せる。NEWで、引数を渡すとこれ↓を呼び出す。

Public Sub NEW(ByVal SET_A as integer,ByVal SET_B as integer)

DATA1 = SET_A

DATA2 = SET_B

End Sub

処理の順番を書くと

SET_Aに105が格納される。SET_Bに200が格納される。

でSET_A(105のこと)がDATA1へ格納。SET_B(200のこと)がDATA2へ格納される。

で、足し算の返りは、 A.SUM()でもらえる。A.SUM()はこれを呼び出す。

Public Function SUM()

Return DATA1 + DATA2

End Function

Returnって書いてあるところが帰ってくる。 DATA1(105)とDATA2(200)を足した

数字を返すようになってるから、305が帰ってくる。

VBNETのクラスで計算した結果を出そう