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

偷油鼠

偷油鼠时钟作业

aocshallo

时钟应用.rar (14.75 KB, 下载次数: 8)

2011-11-15 12:42 上传

点击文件名下载附件

chengyi1973

第一次做作业

amwrg

请老师看看

aa14aa

.版本 2

.程序集 窗口程序集1
.程序集变量 分, 整数型
.程序集变量 秒, 整数型
.程序集变量 小时, 整数型
.程序集变量 距离天数, 双精度小数型
.程序集变量 倒计时秒, 整数型
.程序集变量 倒计时分, 整数型
.程序集变量 倒计时小时, 整数型

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000


.子程序 _时钟1_周期事件

秒 ＝ 秒 ＋ 1
.如果真 (秒 ＝ 60)
    分 ＝ 分 ＋ 1
    秒 ＝ 0
.如果真结束

.如果真 (分 ＝ 60)
    分 ＝ 0
    小时 ＝ 小时 ＋ 1
.如果真结束
标签启动时间.标题 ＝ 取文本右边 (“0” ＋ 到文本 (小时), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (分), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (秒), 2)
距离天数 ＝ 取时间间隔 (到时间 (编辑框1.内容), 取现行时间 (), #日)
标签相距天.标题 ＝ 取文本左边 (到文本 (距离天数), 3) ＋ “天”
' 调试输出 (距离天数)


倒计时秒 ＝ 取秒 (取现行时间 ())
倒计时分 ＝ 取分钟 (取现行时间 ())
倒计时小时 ＝ 取小时 (取现行时间 ())
标签相距时间.标题 ＝ 取文本右边 (“0” ＋ 到文本 (24 － 倒计时小时), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (60 － 倒计时分), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (60 － 倒计时秒), 2)
标签3.标题 ＝ “离” ＋ 编辑框1.内容 ＋ “还有：”
作业时钟5.rar (1.58 KB, 下载次数: 2)

2011-11-15 21:17 上传

点击文件名下载附件

天数的点没想到办法去掉，不太完美。

虚心进步

我承认我是来混分的!!

龍孞

界面做的不是太好，但应该能达到你的要求，刚学易二周{:soso_e100:}

ゞo鈊汰乿

[e].版本 2
.支持库 xplib

.程序集 窗口程序集1
.程序集变量 秒钟, 整数型
.程序集变量 分钟, 整数型
.程序集变量 小时, 整数型
.程序集变量 时, 整数型
.程序集变量 分, 整数型
.程序集变量 秒, 整数型

.子程序 __启动窗口_创建完毕

XP风格 (1)
时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件

时 ＝ 24 － 取小时 (取现行时间 ())
分 ＝ 60 － 取分钟 (取现行时间 ())
秒 ＝ 60 － 取秒 (取现行时间 ())

秒钟 ＝ 秒钟 ＋ 1
.如果 (秒钟 ＝ 60)
    秒钟 ＝ 0
    分钟 ＝ 分钟 ＋ 1
.否则

.如果结束
.如果 (分钟 ＝ 60)
    分钟 ＝ 0
    小时 ＝ 小时 ＋ 1
.否则

.如果结束
编辑框1.内容 ＝ 取文本右边 (“0” ＋ 到文本 (小时), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (分钟), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (秒钟), 2)

编辑框3.内容 ＝ 取文本右边 (“0” ＋ 到文本 (时 － 1), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (分 － 1), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (秒), 2)

编辑框2.内容 ＝ 到文本 (取时间间隔 ([2012年1月1日], 取日期 (取现行时间 ()), 5) － 1) ＋ “天”

[/e]这是我的作业，请指导。

a452507879

呵呵，楼主，我是37楼的那个，可能你没注意看，我判定的时间是2012年12月21日，所以当然是一年多咯！
{:3_244:}

螃蟹小子

^_^    如果写的不好,请纠正...