【NO.0037】时钟组件的使用

gaodiao2011

{:3_231:}写出来了  可是有缺陷!老大能提示下吗？　　问题写在源码里面了　谢谢了啊

diesrolls

时钟组件的使用.rar (2.33 KB, 下载次数: 5)

2011-11-13 20:38 上传

点击文件名下载附件
下载积分: 精币 -2 枚

金满斗

去时间间隔和运行时间.zip (1.94 KB, 下载次数: 2)

2011-11-13 22:21 上传

点击文件名下载附件
下载积分: 精币 -2 枚

为了钱，发个吧。大家多给点啊！可能日期判断不是那么准，大月小月闰月搞的人晕。自己也还有自己的程序要完善，就这样吧！

botong

注意：请不要在该贴上回复及点评，作业一律使用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)

2011-11-14 20:57 上传

点击文件名下载附件
时钟组件的使用
下载积分: 精币 -2 枚

另外有一个小问题要问一下，我把编辑框设为禁止了，为什么编辑框的内容能赋值，但是文本颜色属性却无效了呢？（如我的附件）！



补充内容 (2011-11-15 22:52):
所以，我在帖源码的同时不是也放了附件了吗？而且我还有问题要请教你呢，也写在附件后面了。

勇闯天涯

交作业了，老师看看。倒计时我是没有想到更好的方法，望老师们指正。{:soso_e181:}

Senynce

【NO.0037】时钟组件的使用

a452507879

做完咯！
第一次交作业，激动啊！


37-时钟组件的使用.zip (2.49 KB, 下载次数: 4)

2011-11-14 15:49 上传

点击文件名下载附件
下载积分: 精币 -2 枚

爱家的小懒虫

爱家的小懒虫 发表于 2011-11-12 10:57
已修改~

谢谢提醒。已经再次修改~没想到居然这样不细心~~

【NO.0037】时钟组件的使用1.rar (1.66 KB, 下载次数: 3)

2011-11-14 17:15 上传

点击文件名下载附件
下载积分: 精币 -2 枚

mxsoft

减小了难度，终于可以做出来了。 作业0037.rar (1.86 KB, 下载次数: 4)

2011-11-14 18:15 上传

点击文件名下载附件
下载积分: 精币 -2 枚

补充内容 (2011-11-16 14:58):
呵呵，我的作业里测试了一下时间为2011-01-01时，程序可不可以得出正确结果。

补充内容 (2011-11-16 15:07):
子程序：根据秒数算出时分秒  开始少了对“返回文本”的清空。

airpppp

好好学习,天天向上!支持作业贴!
这个例程,回头发源码区去!