创建一个计时器

张贴在控制 ， 举例 ， 04 28的特点 ，2009年由以利沙| 32回应

这一次，我要说明如何在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（）

我希望这个例子并不能证明复杂，高于一切，将是有益的。 最后，我离开你的秒表快照运行：

32回应“如何创建一个秒表”

  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. 达尔文说：
    03/11/2009于6:43上午

    谢谢！ 我醒来的时候例如逻辑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软件说：
    2010年7月31日于8:21下午

    感谢您的贡献担任我很有帮助

    回答
  17. 开膛手说：
    27/08/2010于11:56下午

    你好，朋友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上午

    很好的贡献，是我一直在寻找！
    谢谢

    回答
  30. 达尼洛说：
    2012年9月4日在下午03:32

    你能告诉我你与label1.refresh（）
    谢谢。

    回答

评论