敲敲樂 [2008-07-12-PM-09-49-37]

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

Public Class 敲敲樂
    ' Begin_Keywords for easily searching source code on [BlogSpot.com] :
    '
    ' 敲敲樂 Click Fun, a simple and basic class, the first class for WeiJin Tang's students
    '
    ' Begin_Keywords for easily searching source code on [BlogSpot.com] :

    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
        '     Version: 1.00.02
        '     Last Updated: (2008 07 12 PM 09 44 58)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Me.m_我總共被拍幾下了 = Me.m_我總共被拍幾下了 + 1

        If Me.m_我總共被拍幾下了 = Me.m_我幾下要反應 Then
            MsgBox("終於懂了")

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

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_07_12_PM_09_50_30]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '