数字时钟(定时器)

今天,我想表明一个简单易用的创建在Visual Basic。NET数字时钟。 我们将做到这一点,使用一个标签和一个定时器。

形式应类似于下一张图片>

在这个例子中,只有时间会证明,改变控制标签的字体给它更多的重要性。 我使用Tahoma字体大小28。

现在,让我们的定时器组件的属性。 运行在定时器组件的Tick事件代码,这必须有ENABLE属性为True。 和我们输入的代码运行每隔n蜱。 n的蜱数间隔以毫秒为单位表示的财产。 因此,如果我们把1000蜱属性,代码将运行每1秒。

现在,让我们看到的代码是非常简单的:

 Timer1_Tick私人小组(BYVAL发件人为System.Object,_
 0 System.EventArgs五)处理Timer1.Tick
 Label1.Text = Date.Now.ToLongTimeString
 END SUB

它不仅仍然运行(F5),应用程序,并在下面的图片所示,我们将有我们的数字时钟>

如果你是一个经常阅读这个博客,你知道,所有的代码示例总是意味着要非常简单,你从这些例子有可能改善,补充和调整,在您的应用程序中使用它们。

一如往常,我希望你觉得它有用。

33“数字时钟(定时器)”

  1. Bitacoras.com 说:

    信息Bitacoras.com ...

    在Bitacoras.com:今天,我想表明一个简单易用的创建在Visual Basic.NET中的数字时钟。率。 我们将做到这一点,使用一个标签和一个定时器。 形式应类似于以下我....

  2. fastmonro说:

    不需要定时器,一个简单的方法:
    小组将Form1_Load(0 System.Object的,BYVAL e由于发件人)把手MyBase.Load

    Me.Label1.Text =格式(现在,“HH:MM:SS TT”)
    END SUB

    • 以利沙说:

      fastmonro:

      输入的感谢,但你用它做的是“显示”标签,当它被加载的形式(正如你所说,从Load事件)。 “所有的时间让我告诉你,要实现一个时钟的功能,或显示当前的时间”需要时间元件的r,但并非是一个时钟......当你只有一次。

  3. 亚历克斯说:

    非常好您的贡献! 恭喜!

  4. laharl说:

    卓越的贡献兄弟,但我觉得唯一的问题是,不收取,而它执行等待一段时间,时钟显示在窗体的Load事件只是把我同在C#中我可以用最
    私人无效timer1_Tick的(对象发件人,EventArgs的五)
    {
    DateTime.Now.ToShortTimeString Label.Text =();
    }

    私人无效Form1_Load的(对象发件人,EventArgs的五)
    {
    DateTime.Now.ToShortTimeString Label.Text =();
    }
    一件事的人都知道如何显示文件保存或打开的标题栏和尝试了几种方法,并不能发现无论是在VB或C#是如何做到这一点的名字。

    salu2

    • batero_loco_xxx说:

      你是正确的,但曲etienes等待第二个就是当你运行的时钟滴答代码(记得是每1秒或1秒后负荷),我告诉你一招更容易为己烯曲球,把你把时钟在滴答的形式相同的代码加载这样的形式:

      私人小组Form1_Load的....

      Me.Label12.Text =格式(现在,“HH:MM:SS TT”)
      年底分

      和只是你的困境

      问候

  5. 约翰说:

    eliseo ....帮助这些代码简单和很好的解释,我们刚刚开始编程以及感谢.......你与定时器是非常必要的,以落实......

    谢谢。

  6. 招呼说:

    良好的供应!

  7. 过敏说:

    好,我喜欢的解决方案

  8. 达尼洛说:

    朋友不看计时器刻度的代码吗? 请帮助

  9. neobones说:

    你好,我使用的计时器,如上所述,启用属性q为True,贾仁安= 1000 ....现在...你双击对象,带他们到Timer1的Tick事件......投入类似的代码...

    公共类frmPrincipal
    Tiempo_Tick私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理Tiempo.Tick
    txtHora.Text =格式(现在,“HH:MM:SS TT”)
    txtFecha.Text = Date.Now.Date
    END SUB
    末级

    io在我来说,我改变了对象的名称,而不是Timer1的时间,我把...
    q本人希望他们帮助新程序员。

  10. AlvaroPucela说:

    cojonuda Neobones你的角色! 他妈的伟大。

  11. 街说:

    要好的朋友,我已经试了好几次,但我说运行的时钟每秒更新一次,我做的程序会运行更新,并间隔属性的地方,在1000,但不更新。
    我希望我可以帮忙。
    的问候。

    • batero_loco_xxx说:

      虽然我猜你提到,它habras逻辑代码写入事件的时钟滴答? 正是这

      Timer1_Tick私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理Timer1.Tick
      Label12.Text =格式(现在,“HH:MM:SS TT”)
      END SUB

  12. 布希女士说:

    局长SISAS国民烨CODE和玩具,刚开始学习和Na ... 想知道如何创建定时器ASERLE SISAS的...

  13. 简历上说:

    这里的东西多了几分精致
    公共类Form1
    昏暗的罪名将作为整数
    小组将Form1_Load(0 System.Object的,BYVAL e由于发件人)把手MyBase.Load
    Me.Text =“时间指示”
    Me.Label1.BorderStyle = BorderStyle.FixedSingle
    Me.Label1.TextAlign = ContentAlignment.MiddleCenter
    Me.Label1.Text =“”
    Me.Label1.BackColor = Color.Black
    Me.Label1.ForeColor = Color.Red对
    Me.Label1.Visible = FALSE
    Me.Timer1.Interval = 1000
    Me.Timer1.Enabled =
    的BackColor = Color.White
    END SUB
    HoraToolStripMenuitem_click私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理HoraToolStripMenuItem.Click
    计数器= 1
    END SUB
    FechaToolStripMenuItem_click私人小组(BYVAL森德为研究对象,BYVALé作为System.EventArgs)把手FechaToolStripMenuItem.Click
    计数器= 2
    END SUB
    Timer1_Tick私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理Timer1.Tick
    Me.Label1.Visible = TRUE
    如果计数器= 1,则Label1.Text = TimeString
    如果计数器= 2 Label1.Text = My.Computer.Clock.LocalTime.Date.ToString
    END SUB
    末级

  14. 胜利者科尔多瓦说:

    谢谢你的输入,完美 :D 我这有许多曲折和解决这几行...再次感谢!

  15. 古斯塔沃说:

    希望你给我带定时器更多的练习,特别是如何使电梯移动到所需的地板

    谢谢。

  16. 安杰洛说:

    时钟的例子是正确的,刚开始时,你必须把Timer.Start形式()

    的问候。

  17. kadaj说:

    如果定时器funka但看你的任务管理器,看看它是如何将资源(取决于处理器RAM等)一些其他的方式来优化? 一些Me.Refresh?

  18. 说机器:

    hijes冷却我走出困境

    我有一个问题,就如何减少现金前与销售纯粹沉思DOND的数据库访问领域
    是monto_venta
    谢谢你,如果你有任何例子

  19. 林恩说:

    我是学生在systems'm我的做法做一个系统的工程,他们的贡献是上述探头2 XQÇ很好的例子就是这个道理,这是基本的,但在这些情况下,无论是C了他的CPU。 嘿嘿

    小组将Form1_Load(0 System.Object的,BYVAL e由于发件人)把手MyBase.Load

    Me.Label1.Text =格式(现在,“HH:MM:SS TT”)
    END SUB

    只是给我一定的时间,不更新

    Timer1_Tick私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理Timer1.Tick

    LHora.Text = Date.Now.ToLongTimeString

    END SUB

    这个属性,如果定时器必须是真正最真实的和1000的范围,这是所有完美的作品

  20. 约翰说:

    您好,一样的时钟,而不是在网站上的网页表单,我无法看到它,事件提出timer.start不存在。

    • 以利沙说:

      问题是,运行在服务器端控件的事件,要做到这一点,你必须做一个reques,其中重新加载整个页面......实际上,你所要做的客户端。

      尝试用AJAX或jQuery的Java(JavaScript)的。

      运气

  21. pedrox说:

    grasias所有,但我需要帮助
    我需要做的这一切,但在C#中,我新programdo如果有谁知道请帮我。

  22. AloneBoy说:

    嗨,我还新的编程,并想知道是否有人知道如何使Q Q的形式,当你给点击是在Linux openSUSE 11.3的透明以及窗户

  23. 洛林说:

    进口ClassLibrary1中
    公共类Form1
    小组将Form1_Load(0 System.Object的,BYVAL e由于发件人)把手MyBase.Load
    Time.Start()
    END SUB
    Time_Tick私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理Time.Tick
    作为新Class1的点心小时
    horas.hora Label.Text =()
    “一小时()
    END SUB
    “私人的子时间()
    “Label.Text =立即
    “MessageBox.Show(”把时间“)
    'END SUB
    末级

  24. miauuu说:

    在这里寻找为动议PASSABA代码...只是抓住计时器的代码...一些安排,我工作完全...感谢MIGUELITO ..​​.

  25. 乌姆说:

    感谢以前的代码让我适应地雷。
    代码funcinó我得到的时间,作为操作系统,这样做改变......
    小组将Form1_Load(0 System.Object的,BYVAL e由于发件人)把手MyBase.Load

    lblHora.Text = Date.Now.ToLongTimeString
    Timer1.Start()

    END SUB

    Timer1_Tick私人小组(作为System.Object的,BYVAL e由于的BYVAL发件人)处理Timer1.Tick
    lblHora.Text = Date.Now.ToLongTimeString
    END SUB

  26. !胡安马说:

    并采取几个样品,并没有arribaa funcionaa我! 我觉得我对这个非常糟糕,我需要在屏幕上的手表,但柯,将像后者oseaa的东西看起来如此! 00:00:00 DD ayudenmeee:

  27. jdiaz说:

    大家好,我已经一直在研究上的计时器,并为我所看到的,我必须使用它们来控制电梯,到现在为止,我只在接口1至10水平和旅游,但之后再次启动1到10,不应该仍然没有找到一种方式来处理按钮,如果有人有一些工作,这样我就可以帮助或解释,至少提前感谢。

  28. 凯西说:

    为我做的定时器运行时,显示我在ListBox中的字

  29. 哈维尔说:

    我可以调用Windows帮助,2005年在vb.net

评论