測試Click速度

• 控制項設定

Button1.Text="努力按吧!!(限時10秒鐘)!"

• 事件程序

Dim Start As Single, N As Integer, flag As Boolean, A, T, time

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True

If flag = False Then ' 開始計時
      N = 0 '歸零
      flag = True '標記比賽進行中
End If
N = N + 1    '總按次數, 每按1次加1

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    T = T + 1
    time = T / 10  '因為timer的interval=100, 每10個tick是1秒
    Label1.Text = "時間：" & time & "秒"
  If time >= 10 Then    '時間到
       T = 0
       time = 0
       Timer1.Enabled = False   '停止計時
       flag = False     '標記比賽結束
    If N > 100 Then
         MsgBox("10秒內共按了" & N & "下! 閣下可能罹患巴金森氏症???", , "成績報告")
    Else
         If N > 50 Then
              MsgBox("10秒內共按了" & N & "下! 閣下可能是傳說中的奶油葵花手!!!", , "成績報告")
         Else
               MsgBox("閣下10秒內才按" & N & "下! 閣下可能是烏龜的同類???", , "成績報告")
         End If
     End If
  End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T = 0
End Sub

---

　

下課前完成以下各項：

　

1. 增加到至少5個等級

2. 試試將紅字改成 Select Case敘述

　

第3項完成者另有加分：

3. 表單上增加一標籤(Label)或進度棒(Progressbar)顯示目前的等級或即時的速度