使用易语言写一个倒计时程序,随着时间得递减,自定义的数字也会减少,每15分钟减少5,
点击设置倒计时,下面的标签会显示当前倒计时读秒,点击开始计算,跳转到数量,显示数字.版本2.程序集窗口程序集1.程序集变量报警时间,日期时间型.程序集变量倒计时状态,逻辑...
点击设置倒计时,下面的标签会显示当前倒计时读秒,点击开始计算,跳转到数量,显示数字
.版本 2
.程序集 窗口程序集1
.程序集变量 报警时间, 日期时间型
.程序集变量 倒计时状态, 逻辑型
.子程序 __启动窗口_创建完毕
置托盘图标 (_启动窗口.图标, _启动窗口.标题)
现行时间.标题 = 到文本 (取现行时间 ())
编时.内容 = “0”
编分.内容 = “0”
编秒.内容 = “0”
时钟1.时钟周期 = 1000
.子程序 _设置倒计时_被单击
.局部变量 时间变量, 日期时间型
倒计时状态 = 真
时间变量 = 取现行时间 ()
时间变量 = 增减时间 (时间变量, #小时, 到数值 (编时.内容))
时间变量 = 增减时间 (时间变量, #分钟, 到数值 (编分.内容))
报警时间 = 增减时间 (时间变量, #秒, 到数值 (编秒.内容))
输出调试文本 (报警时间)
.子程序 _时钟1_周期事件
.局部变量 时间间隔, 双精度小数型
现行时间.标题 = 到文本 (取现行时间 ())
.如果真 (倒计时状态 = 真)
时间间隔 = 取时间间隔 (报警时间, 取现行时间 (), #小时 + #分钟)
倒数标签.标题 = 到文本 (时间间隔)
.如果真结束
.子程序 _开始计算_被单击 展开
.版本 2
.程序集 窗口程序集1
.程序集变量 报警时间, 日期时间型
.程序集变量 倒计时状态, 逻辑型
.子程序 __启动窗口_创建完毕
置托盘图标 (_启动窗口.图标, _启动窗口.标题)
现行时间.标题 = 到文本 (取现行时间 ())
编时.内容 = “0”
编分.内容 = “0”
编秒.内容 = “0”
时钟1.时钟周期 = 1000
.子程序 _设置倒计时_被单击
.局部变量 时间变量, 日期时间型
倒计时状态 = 真
时间变量 = 取现行时间 ()
时间变量 = 增减时间 (时间变量, #小时, 到数值 (编时.内容))
时间变量 = 增减时间 (时间变量, #分钟, 到数值 (编分.内容))
报警时间 = 增减时间 (时间变量, #秒, 到数值 (编秒.内容))
输出调试文本 (报警时间)
.子程序 _时钟1_周期事件
.局部变量 时间间隔, 双精度小数型
现行时间.标题 = 到文本 (取现行时间 ())
.如果真 (倒计时状态 = 真)
时间间隔 = 取时间间隔 (报警时间, 取现行时间 (), #小时 + #分钟)
倒数标签.标题 = 到文本 (时间间隔)
.如果真结束
.子程序 _开始计算_被单击 展开
1个回答
展开全部
你的代码 懒得看,提供一个我的例子:
-------------------------------------------------------------------
初始你的一个设置的倒计时数,比如在编辑框1中为100。 一个时钟控件,时钟周期1000,时钟事件写:
程序集变量 num 整数型,初始num=0
如果(num<(60*15)) ‘为真
num=num+1
num=0 ’为假
编辑框1.内容=到数值(编辑框1.内容)-5
-------------------------------------------------------------------------
原理:num 变量随着时钟周期1秒的时钟事件递增,(60*15)秒即15分钟后,num重置为0同时倒计时数减5。num重置后,又开始新的递增了……如此循环
应该不难理解吧
-------------------------------------------------------------------
初始你的一个设置的倒计时数,比如在编辑框1中为100。 一个时钟控件,时钟周期1000,时钟事件写:
程序集变量 num 整数型,初始num=0
如果(num<(60*15)) ‘为真
num=num+1
num=0 ’为假
编辑框1.内容=到数值(编辑框1.内容)-5
-------------------------------------------------------------------------
原理:num 变量随着时钟周期1秒的时钟事件递增,(60*15)秒即15分钟后,num重置为0同时倒计时数减5。num重置后,又开始新的递增了……如此循环
应该不难理解吧
追问
还是有点不太理解,可以QQ或邮件沟通吗?谢谢719724290
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询