| |
VB设计有语音报时和报警功能的闹钟 |
|
时间: 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提供的绘图方法：
|
|
|
|
|
|
|
|
