|
发表于 2011-11-13 22:39:22
|
显示全部楼层
山东省济南市
本帖最后由 botong 于 2011-11-14 21:00 编辑
注意:请不要在该贴上回复及点评,作业一律使用E压缩文件上传,不要直接复制源码贴上。
这是为什么啊?不理解,我就喜欢精易的源码显示功能,比起其它的论坛,精易这可以说是一个亮点呢,刚好可以在不下载附件的情况下快速浏览帖子内容,这也是我最喜欢精易的重要原因之一,所以我还要坚持一下。
[e]..版本 2
.程序集 窗口程序集1
.程序集变量 计时, 整数型
.子程序 _时钟1_周期事件
计时 = 计时 + 1
编辑框1.内容 = 取重复文本 (2 - 取文本长度 (到文本 (计时 \ 3600)), “0”) + 到文本 (计时 \ 3600) + “:” + 取重复文本 (2 - 取文本长度 (到文本 ((计时 % 3600) \ 60)), “0”) + 到文本 ((计时 % 3600) \ 60) + “:” + 取重复文本 (2 - 取文本长度 (到文本 (计时 % 60)), “0”) + 到文本 (计时 % 60)
编辑框2.内容 = 到文本 (365 - 取时间部分 (取现行时间 (), 10))
编辑框3.内容 = 取重复文本 (2 - 取文本长度 (到文本 (23 - 取时间部分 (取现行时间 (), 6))), “0”) + 到文本 (23 - 取时间部分 (取现行时间 (), 6)) + “:” + 取重复文本 (2 - 取文本长度 (到文本 (59 - 取时间部分 (取现行时间 (), 7))), “0”) + 到文本 (59 - 取时间部分 (取现行时间 (), 7)) + “:” + 取重复文本 (2 - 取文本长度 (到文本 (60 - 取时间部分 (取现行时间 (), 8))), “0”) + 到文本 (60 - 取时间部分 (取现行时间 (), 8))
[/e]
时钟组件的使用.rar
(1.19 KB, 下载次数: 2)
|
评分
-
查看全部评分
|