OOP2008C01.WjClickFun [2008-03-04-PM-09-40-24]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.WjClickFun
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -  
'     OOP2008C01.WjClickFun [2008-03-04-PM-09-40-24]
'     Version: 1.00.02
'     Last Updated: (2008 03 04 PM 09 38 18)
' -   -   -   -   -   -  
'     OOP2008C01.WjClickFun [2008-03-04-PM-08-58-59]
'     Version: 1.00.01
'     Last Updated: (2008 03 04 PM 08 57 38)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WjClickFun
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private m_NumberOfClickToRespond As Integer
    Private m_NumberOfTimesIWasClicked As Integer
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal NumberOfClickToRespond As Integer)
        Me.m_NumberOfClickToRespond = NumberOfClickToRespond
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub ClickForFun()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating:  60%
        ' (再利用的可能性) Chances of reuse:  40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 04 PM 08 32 14)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     ok
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Me.m_NumberOfTimesIWasClicked += 1
        ' Me.m_NumberOfTimesIWasClicked = Me.m_NumberOfTimesIWasClicked + 1

        If Me.m_NumberOfTimesIWasClicked = Me.m_NumberOfClickToRespond Then
            MsgBox("Hi, I am WjClickFun. How are you!")
        End If

    End Sub ' ClickForFun
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' WjClickFun