創建一個計時器

張貼在控制 ， 舉例 ， 04 28的特點 ，2009年由以利沙| 31回應

這一次，我要說明如何在Visual Basic中創建一個定時器。NET中使用計時器組件。

好了，不假裝，這是通過一步一步的例子，每個控制修改的屬性，相反的，我要集中在定時器的功能，我會讓你設計。 只要告訴他們，我沒有。

對照的形式，三個按鈕和兩個標籤。 我們還需要添加一個定時器的形式。 它看起來或一個月如下：

但首先我們將定義四個私有變量形式的水平。 

私人小時為整數= 0
私人分鐘為整數= 0
私人第二整數= 0
私人整數= 0毫秒

Timer組件必須具有其間隔屬性為100。

label1中顯示，隨著時間的推移，我們將創建一個函數： 

    小組printTime（）
         Label1.Text = hora.ToString.PadLeft（2，“0”）＆“：”
         Minuto.ToString.PadLeft Label1.Text＆=（2，“0”）＆“：”
         Segundo.ToString.PadLeft Label1.Text＆=（2，“0”）＆“：”
         Milisegundo.ToString.PadLeft Label1.Text =（1，“0”​​）

         Label1.Refresh（）
     END SUB

在Timer組件的Tick事件是你把所有的秒錶的邏輯。 複製下面的代碼： 

 + = 1毫秒
然後，如果毫秒= 9
    毫秒= 0
    第二個+ = 1
    如果秒= 59
        秒= 0
         + = 1分鐘
        然後，如果= 59分鐘
            分鐘= 0
            小時+ = 1
        結束如果
    結束如果
結束如果
 printTime（）

好了，剩下的就是三個按鈕的代碼。 啟動按鈕激活定時器： 

 Timer1.Enabled =

“暫停”按鈕停止計時器： 

 Timer1.Enabled =假

和復位按鈕，復位變量的值： 

時間= 0
分鐘= 0
秒= 0
毫秒= 0

 printTime（）

我希望這個例子並不能證明複雜，高於一切，將是有益的。 最後，我離開你的秒錶快照運行：

31回應“如何創建一個秒錶”

  1. Bitacoras.com 說：
    28/04/2009於4:57下午

    信息Bitacoras.com ...

    在Bitacoras.com率：這一次，我要說明如何在Visual Basic中創建一個定時器淨使用計時器組件。 好了，不假裝，這是通過一步一步的例子，顯示每個修改的屬性...

    回答
  2. 伊迪絲·包蒂斯塔說：
    29/04/2009於4:39上午

    非常感謝你，我剛開始非常有用的。網和很好的描述。

    再見。

    回答
  3. 初中mezaq說：
    02/05/2009於4:51下午

    例子是很好的...最近開始為Q和Q天獅的知識貢獻的感謝......

    回答
  4. 揚說：
    02/06/2009於1:09下午

    您好！
    PX非常感謝你是一個巨大的幫助，你的代碼更擔任我挽救我的生命LOL ...
    不大的工作表示感謝...
    再見kuidate ...

    回答
  5. adyir說：
    10/06/2009於1:38下午

    謝謝你非常多的人......無並發症的這個例子，非常非常好，上帝會幫助你...

    回答
  6. bacotich說：
    15/08/2009於上午11:37

    很好的貢獻，所以我祝賀你！

    回答
  7. galvis說：
    17/08/2009於下午5:59

    非常感謝你幫了我很多

    回答
  8. 費爾南多說：
    21/08/2009於3:34下午

    定時器是罰款不只是後59秒的時間00:01:59:0從58到00和59，不存在跳不介意，請檢查自己的代碼

    回答
  9. 費爾南多說：
    21/08/2009於3:37下午

    解決辦法是讓
    + = 1毫秒
    如果毫秒= 10
    毫秒= 0
    第二個+ = 1
    如果第二個= 60
    秒= 0
    分鐘+ = 1
    如果分鐘= 60
    最小值= 0
    時間+ = 1
    結束如果
    結束如果
    結束如果
    PrintTime（）
    因此，第二次或59分鐘會存在，但所作的貢獻表示感謝。

    回答
  10. elflaco說：
    31/10/2009上午11:24

    非常好，非常感謝你！！ 我我我我duranga

    回答
  11. 達爾文說：
    6時43 03/11/2009

    謝謝！ 我醒來的時候例如邏輯XQ的一個大型項目，我希望繼續評估這幅度suviendo上帝保佑例如實例

    回答
  12. 達爾文說：
    03/11/2009於6:46上午

    我是新來哈慈編程，做我的項目。

    公共類Form1
    私人小時為整數= 0
    私人分鐘為整數= 0
    私人第二整數= 0
    私人整數= 0毫秒
    小組printTime（）

    Label1.Text = hora.ToString.PadLeft（2，“0”）＆“：”

    Minuto.ToString.PadLeft Label1.Text＆=（2，“0”）＆“：”

    Segundo.ToString.PadLeft Label1.Text＆=（2，“0”）＆“：”

    Milisegundo.ToString.PadLeft Label1.Text =（1，“0”​​）

    Label1.Refresh（）
    END SUB
    Timer1_Tick私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）處理Timer1.Tick
    + = 1毫秒
    然後，如果毫秒= 9

    毫秒= 0
    第二個+ = 1

    如果秒= 59

    秒= 0

    + = 1分鐘

    然後，如果= 59分鐘

    分鐘= 0

    小時+ = 1

    結束如果

    結束如果
    結束如果
    printTime（）
    END SUB

    私人小組中button1_Click（0 System.Object的，BYVAL e由於發件人）把手Button1.Click
    Timer1.Enabled =
    END SUB

    私人小組Button2_Click（0 System.Object的，BYVAL e由於發件人）處理Button2.Click
    Timer1.Enabled =假
    END SUB

    Button4_Click私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）處理Button4.Click
    結束
    END SUB

    回答
  13. 海梅說：
    19/11/2009於5:57下午

    非常感謝你的貢獻

    回答
  14. CARRARO說：
    06/12/2009於11:25下午

    良好的代碼！

    回答
  15. JonPrince說：
    21/01/2010於12:30下午

    良好的代碼....我擔任完善以上，糾正錯誤....感謝

    回答
  16. CRIS軟件說：
    31/07/2010於8:21下午

    感謝您的貢獻擔任我很有幫助

    回答
  17. 開膛手說：
    27/08/2010，11:56 PM

    你好，朋友quisioera知道你在哪裡讓你的博客嗎？？此頁？
    你能幫助我 ：D

    回答
  18. 羅米納說：
    22/10/2010於5:59上午

    我運行這個偉大的精彩感謝教程aora，我有一個想法如何使用定時器。

    回答
  19. ！M1M說：
    24/11/2010於12:46

    grax x代碼
    紫zirvio我！
    ○^ ^

    回答
  20. 大衛說：
    25/12/2010於11:20下午

    我感謝這個代碼編程的一些大jejej
    謝謝......

    回答
  21. 金剛狼說：
    13/04/2011於4:16下午

    出色的代碼開發一些應用程序特別有用監視進程的等待時間

    多謝

    回答
  22. loquillo說：
    29/04/2011於5:12下午

    如果計數嚴重下降？

    回答
  23. 奧爾德林說：
    2011年5月6日在4:19上午

    一個很好的例子，我曾投在C + +我profresor編程，但沒有一個很簡單的，但很atractivo.Gracias的想法，它是在視覺輸入basic.net感謝

    回答
  24. 約翰說：
    20/06/2011於3:38下午

    只有一件非常好的事情，在復位按鈕，如果你按它設置為0，但仍在運行的時間，僅此，你就必須把

    Btn_reset_Click私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）處理btn_reset.Click
    Timer1.Enabled =假
    時間= 0
    分鐘= 0
    秒= 0
    毫秒= 0
    printTime（）
    END SUB

    回答
  25. 安德烈斯說：
    19/07/2011上午11時45分

    您好寬限期的貢獻

    我想知道所使用的代碼頁，如何適應與VB的ASP自做回傳

    謝謝

    回答
  26. alfras說：
    17/08/2011於9:58上午

    非常感謝，我一直在尋找

    回答
  27. MHESSHY說：
    13/09/2011於3:56下午

    很不錯的資料保存我從一個麻煩
    ..
    ..
    感謝

    回答
  28. gatiaz說：
    18/11/2011於6:48上午

    非常感謝你的貢獻。 他們都非常清晰，非常好。

    回答
  29. amhed埃利奧說：
    2012年6月3日在3:03上午

    很好的貢獻，是我一直在尋找！
    謝謝

    回答

評論