易语言是倒计时暂停的代码
1个回答
2013-09-18
展开全部
我不知道你是不是想要这们的结果。还是怎么样的,我测试过了。在按暂停再按开“倒计时”时它会产生误差几秒。可能是程序响应的问题。。。这种方法有点笨。。高手莫笑。。有什么更好的方法。一起贴出来研究。。
.版本 2
.程序集 窗口程序集1
.程序集变量 时间停留小时, 整数型
.程序集变量 时间停留分, 整数型
.程序集变量 时间停留秒, 整数型
.程序集变量 时间下班小时, 整数型
.程序集变量 时间下班分, 整数型
.程序集变量 时间下班秒, 整数型
.程序集变量 时间小时, 整数型
.程序集变量 时间分, 整数型
.程序集变量 时间秒, 整数型
.子程序 _时钟1_周期事件
时间下班小时 = 17 ' 6点下班!17.59.60就是18点
时间下班分 = 59
时间下班秒 = 60
时间小时 = 到数值 (取小时 (取现行时间 ()))
时间分 = 到数值 (取分钟 (取现行时间 ()))
时间秒 = 到数值 (取秒 (取现行时间 ()))
标签2.标题 = 到文本 (时间下班小时 - 时间小时) + “小时” + 到文本 (时间下班分 - 时间分) + “分” + 到文本 (时间下班秒 - 时间秒) + “秒”
.子程序 _按钮1_被单击
.如果 (按钮1.标题 = “暂停”)
按钮1.标题 = “倒计时”
时间停留小时 = 到数值 (取小时 (取现行时间 ()))
时间停留分 = 到数值 (取分钟 (取现行时间 ()))
时间停留秒 = 到数值 (取秒 (取现行时间 ()))
时钟1.时钟周期 = 0
.否则
按钮1.标题 = “暂停”
时间小时 = 到数值 (取小时 (取现行时间 ()))
时间分 = 到数值 (取分钟 (取现行时间 ()))
时间秒 = 到数值 (取秒 (取现行时间 ()))
时间下班小时 = 时间下班小时 + 时间小时 - 时间停留小时
时间下班分 = 时间下班分 + 时间分 - 时间停留分
时间下班秒 = 时间下班秒 + 时间秒 - 时间停留秒
时钟1.时钟周期 = 1000
.如果结束
.版本 2
.程序集 窗口程序集1
.程序集变量 时间停留小时, 整数型
.程序集变量 时间停留分, 整数型
.程序集变量 时间停留秒, 整数型
.程序集变量 时间下班小时, 整数型
.程序集变量 时间下班分, 整数型
.程序集变量 时间下班秒, 整数型
.程序集变量 时间小时, 整数型
.程序集变量 时间分, 整数型
.程序集变量 时间秒, 整数型
.子程序 _时钟1_周期事件
时间下班小时 = 17 ' 6点下班!17.59.60就是18点
时间下班分 = 59
时间下班秒 = 60
时间小时 = 到数值 (取小时 (取现行时间 ()))
时间分 = 到数值 (取分钟 (取现行时间 ()))
时间秒 = 到数值 (取秒 (取现行时间 ()))
标签2.标题 = 到文本 (时间下班小时 - 时间小时) + “小时” + 到文本 (时间下班分 - 时间分) + “分” + 到文本 (时间下班秒 - 时间秒) + “秒”
.子程序 _按钮1_被单击
.如果 (按钮1.标题 = “暂停”)
按钮1.标题 = “倒计时”
时间停留小时 = 到数值 (取小时 (取现行时间 ()))
时间停留分 = 到数值 (取分钟 (取现行时间 ()))
时间停留秒 = 到数值 (取秒 (取现行时间 ()))
时钟1.时钟周期 = 0
.否则
按钮1.标题 = “暂停”
时间小时 = 到数值 (取小时 (取现行时间 ()))
时间分 = 到数值 (取分钟 (取现行时间 ()))
时间秒 = 到数值 (取秒 (取现行时间 ()))
时间下班小时 = 时间下班小时 + 时间小时 - 时间停留小时
时间下班分 = 时间下班分 + 时间分 - 时间停留分
时间下班秒 = 时间下班秒 + 时间秒 - 时间停留秒
时钟1.时钟周期 = 1000
.如果结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询