抓狂小白的程式筆記

原文網址https://tw.knowledge.yahoo.com/question/question?qid=1615060803152

如題目
要寫一個計時器的程式碼
就是按下開始會開始計時
案停止後結束計時
求程式碼

======解答開始======

拉元件開始

拉一個label

兩個按鈕

兩個按鈕的caption屬性分別打上 "開始" 跟 "結束"

一個timer 

設定屬性

enable 設成false (讓程式啟動的時候先不要動)

interval 設成1000 (1000毫秒=1秒跑一次)


拉元件結束 程式碼開始

宣告全域變數 Dim time As Integer

用來存時間

開始的按鈕裡面寫

Timer1.Enabled = True '開始

結束的按鈕裡面寫

Timer1.Enabled = False '結束

timer裡面寫

time = time + 1 '每一秒數字加1
Label1.Caption = Str(time) + "秒" '顯示在label上




完整程式碼

Dim time As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
time = time + 1
Label1.Caption = Str(time) + "秒"
End Sub