| | | | | | | [文章信息] | | | 作者: | 潇潇 | | 时间: | 2004-05-18 | | 出处: | Yesky开发者网络 | | 责任编辑: | 方舟 | |
| [文章导读] | | | 经常在论坛上看到很多刚刚想要步入编码领域的爱好者问道:我数学学的不好，能学好编程吗? | |
| |
|
| | | |
|
|
|
|
|
(2) 建立实例
程序中所用到的控件的作用和相关属性设置如下表：
| 控件 |
属性 |
值 |
作用 |
| Form1 |
Caption |
时钟 |
显示窗体 |
| Label1 |
Caption |
空 |
显示时间 |
| Label2 |
Caption |
空 |
显示分钟 |
| Label3 |
Caption |
空 |
显示秒钟 |
| Label4 |
Caption |
空 |
显示年份 |
| Label5 |
Caption |
空 |
显示月份 |
| Label6 |
Caption |
空 |
显示日期 |
| Label7 |
Caption |
空 |
显示星期几 |
| Timer1 |
Interval |
1000 |
每秒钟触发一次事件 |
下面是代码：
Private Sub Timer1 _ Timer( )
hou = Hour (time)
miu = Minute (time)
sec = Second (time)
yea = Year (Date)
mon = Month (Date)
da = Day (Date)
Label1 . Caption = hou & "小时 "
Label2 . Caption = miu & "分钟"
Label3 . Caption = sec & "秒钟"
Label4 . Caption = yea & "年"
Label5 . Caption = mon & "月"
Label6 . Caption = da & "日"
Label7 . Caption = "星期" & Weekday (Date)
End Sub |
下图是运行的结果：
很简单吧！下面我们看看不使用控件，我们用绘图函数自己来画出一个运行着的时钟。
现来补充一些vb提供的绘图方法：
|
|
|
|
|
|
|
|
