易语言 取程序运行时间
就是这个意思求怎么做???这个源码能做出来但走到1分60秒后不到2分钟一直1.60161162无上境。。。。。...
就是这个意思 求怎么做???这个源码能做出来 但走到1分60秒后 不到2分钟 一直1.60 161 162 无上境。。。。。
展开
3个回答
2013-09-14
展开全部
.版本 2.程序集 窗口程序集1
.程序集变量 时
.程序集变量 分
.程序集变量 秒.子程序 __启动窗口_创建完毕标签1.标题 = “已运行:” + 到文本 (时) + “小时” + 到文本 (分) + “分钟” + 到文本 (秒) + “秒”.子程序 _时钟1_周期事件秒 = 秒 + 1
.如果真 (秒 = 60)
秒 = 0
分 = 分 + 1
.如果真结束
.如果真 (分 = 60)
分 = 0
时 = 时 + 1
.如果真结束
标签1.标题 = “已运行:” + 到文本 (时) + “小时” + 到文本 (分) + “分钟” + 到文本 (秒) + “秒”
.程序集变量 时
.程序集变量 分
.程序集变量 秒.子程序 __启动窗口_创建完毕标签1.标题 = “已运行:” + 到文本 (时) + “小时” + 到文本 (分) + “分钟” + 到文本 (秒) + “秒”.子程序 _时钟1_周期事件秒 = 秒 + 1
.如果真 (秒 = 60)
秒 = 0
分 = 分 + 1
.如果真结束
.如果真 (分 = 60)
分 = 0
时 = 时 + 1
.如果真结束
标签1.标题 = “已运行:” + 到文本 (时) + “小时” + 到文本 (分) + “分钟” + 到文本 (秒) + “秒”
2013-09-14
展开全部
把时间分成两个时钟一个走分一个走秒
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-14
展开全部
.版本 2
.程序集 窗口程序集1.程序集变量 现行秒数, 整数型
.子程序 __启动窗口_创建完毕
现行秒数 = 0时钟1.时钟周期 = 1000
.子程序 秒转小时, 文本型.参数 秒值, 整数型.局部变量 分值, 整数型.局部变量 余秒, 整数型.局部变量 堆积, 整数型.局部变量 时值, 整数型.局部变量 堆积2, 整数型.局部变量 余分, 整数型
.如果 (秒值 < 60) 返回 (“0小时0分钟” + 到文本 (秒值) + “秒”).否则 分值 = 绝对取整 (秒值 ÷ 60) 堆积 = 分值 × 60 余秒 = 秒值 - 堆积 .如果 (分值 < 60) 返回 (“0小时” + 到文本 (分值) + “分钟” + 到文本 (余秒) + “秒”) .否则 时值 = 绝对取整 (分值 ÷ 60) 堆积2 = 时值 × 60 余分 = 分值 - 堆积2 返回 (到文本 (时值) + “小时” + 到文本 (余分) + “分钟” + 到文本 (余秒) + “秒”) .如果结束
.如果结束
.子程序 _时钟1_周期事件
现行秒数 = 现行秒数 + 1标签1.标题 = 秒转小时 (现行秒数)
.程序集 窗口程序集1.程序集变量 现行秒数, 整数型
.子程序 __启动窗口_创建完毕
现行秒数 = 0时钟1.时钟周期 = 1000
.子程序 秒转小时, 文本型.参数 秒值, 整数型.局部变量 分值, 整数型.局部变量 余秒, 整数型.局部变量 堆积, 整数型.局部变量 时值, 整数型.局部变量 堆积2, 整数型.局部变量 余分, 整数型
.如果 (秒值 < 60) 返回 (“0小时0分钟” + 到文本 (秒值) + “秒”).否则 分值 = 绝对取整 (秒值 ÷ 60) 堆积 = 分值 × 60 余秒 = 秒值 - 堆积 .如果 (分值 < 60) 返回 (“0小时” + 到文本 (分值) + “分钟” + 到文本 (余秒) + “秒”) .否则 时值 = 绝对取整 (分值 ÷ 60) 堆积2 = 时值 × 60 余分 = 分值 - 堆积2 返回 (到文本 (时值) + “小时” + 到文本 (余分) + “分钟” + 到文本 (余秒) + “秒”) .如果结束
.如果结束
.子程序 _时钟1_周期事件
现行秒数 = 现行秒数 + 1标签1.标题 = 秒转小时 (现行秒数)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询