做一个电子钟程序,时间和日期与计算机时间同步。效果是这样的。
代码也很简单。Private Sub Form_Load()
LED1.LEDSTRING = Year(Date)
LED2.LEDSTRING = Month(Date)
LED3.LEDSTRING = Day(Date)
End SubPrivate Sub Timer1_Timer()
LED4.LEDSTRING = Time
End Sub
有一点我看不懂,为什么要加一个定时器timer1,还把它的interval设置为200.我看不出这个timer有什么作用哎!

解决方案 »

  1.   

    没有timer如何更新,如何同步?否则只是程序启动时的时间.至于说interval设置为200表示每200毫秒运行一次,也可以设置成1000
      

  2.   

    Private Sub Form_Load() 
    LED1.LEDSTRING = Year(Date) 'LED1控件显示年份
    LED2.LEDSTRING = Month(Date)'LED2控件显示月份
    LED3.LEDSTRING = Day(Date)'LED3控件显示日期 (某天)
    End Sub Private Sub Timer1_Timer() 
    LED4.LEDSTRING = Time 
    'LED4控件显示小时.分.秒,interval设置为200是要200毫秒执行一次LED4.LEDSTRING = Time,检查时间是否有变化.有变化及时刷新,1000最好,因为显示的最小时间单位为1秒,也就是1000毫秒,设小了无益.设大了会跳时间
    End Sub