|
发表于 2010-8-26 00:54:12
|
显示全部楼层
海南省海口市
本帖最后由 wqejnyt 于 2010-8-26 01:00 编辑
[e] .版本 2
.程序集 窗口程序集1
.程序集变量 h, 文本型
.程序集变量 w, 文本型
.程序集变量 s, 文本型
.子程序 __启动窗口_创建完毕
h = 取文本右边 (“0” + 到文本 (取小时 (取现行时间 ())), 2)
w = 取文本右边 (“0” + 到文本 (取分钟 (取现行时间 ())), 2)
s = 取文本右边 (“0” + 到文本 (取秒 (取现行时间 ())), 2)
编辑框1.内容 = h + “:” + w + “:” + s
时钟1.时钟周期 = 1000
.子程序 _时钟1_周期事件
h = 取文本右边 (“0” + 到文本 (取小时 (取现行时间 ())), 2)
w = 取文本右边 (“0” + 到文本 (取分钟 (取现行时间 ())), 2)
s = 取文本右边 (“0” + 到文本 (取秒 (取现行时间 ())), 2)
编辑框1.内容 = 到文本 (h) + “:” + 到文本 (w) + “:” + 到文本 (s)
.如果真 (h = “15” 且 w = “59” 且 s = “59”)
_按钮1_被单击 ()
.如果真结束
.子程序 _按钮1_被单击
时钟1.时钟周期 = 0
[/e] |
|