敲敲樂 [2008-03-18-PM-07-48-23]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.敲敲樂
'
' (修改程式的人員) Revised by: 劉靜汝
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -  
'     OOP2008C01.敲敲樂 [2008-03-18-PM-07-48-23]
'     Version: 1.00.01
'     Last Updated: (2008 03 18 PM 07 43 52)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 敲敲樂

    Private m_我幾下要反應 As Integer
    Private m_我總共被拍幾下了 As Integer
    Public Sub New(ByVal 我幾下要反應 As Integer)
        Me.m_我幾下要反應 = 我幾下要反應
    End Sub
    Public Sub 懂了沒()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 18 PM 07 49 08)
        ' (修改程式的人員) Revised by: 劉靜汝
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Me.m_我總共被拍幾下了 = Me.m_我總共被拍幾下了 + 1
        If Me.m_我總共被拍幾下了 = Me.m_我幾下要反應 Then
            MsgBox("終於懂了")
        Else
            ' ffff
        End If
    End Sub
End Class ' 敲敲樂