编辑框时分秒倒计时怎么写

EExiaolin · 发表于 2013-12-4 16:08:04

如题，没思路额，，

laneagle007 · 发表于 2013-12-4 16:08:05

这个源码采用时钟还有事件两个控制方式，当然选哪个都可以的。只是为了演示
源码改名倒计时。e就可以用了

.程序集窗口程序集1
.程序集变量 h, 双精度小数型
.程序集变量 m, 双精度小数型
.程序集变量 s, 双精度小数型
.程序集变量 time, 双精度小数型

.子程序 _编辑框1_内容被改变

.如果真 (编辑框1.内容＝ “0时0分0秒”)
信息框 (“倒计时触发事件！”, 0, )

.如果真结束

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

.如果 (time ＞ 0)
time ＝ time － 1
编辑框1.内容＝到文本 (time ＼ 3600) ＋ “时” ＋到文本 ((time ％ 3600) ＼ 60) ＋ “分” ＋到文本 (time ％ 60) ＋ “秒”
.否则
信息框 (“倒计时触发事件！”, 0, )
时钟1.销毁 ()
.如果结束

.子程序 _按钮_start_被单击

h ＝到数值 (编辑框_h.内容)
m ＝到数值 (编辑框_m.内容)
s ＝到数值 (编辑框_s.内容)
time ＝ h × 3600 ＋ m × 60 ＋ s
时钟1.激活 ()
时钟1.时钟周期＝ 1000

laneagle007 · 发表于 2013-12-4 16:24:19

不懂你什么意思？用编辑框显示倒计时的文本么？然后编辑框内容变成 0时0分0秒的时候就触发某一个函数或者是事件么？

EExiaolin · 发表于 2013-12-4 16:36:01

laneagle007 发表于 2013-12-4 16:24
不懂你什么意思？用编辑框显示倒计时的文本么？然后编辑框内容变成 0时0分0秒的时候就触发某一个函数或者 ...

嗯给个例子

君不见 · 发表于 2013-12-4 16:54:38

.版本 2
.支持库 EThread

.程序集窗口程序集1
.程序集变量 xc, 整数型

.子程序 _按钮1_被单击

启动线程 (&djs, 1, xc)

.子程序 djs
.局部变量 dd, 逻辑型
.局部变量 n, 整数型

n ＝ 5

.判断循环首 (dd ＝假)
n ＝ n － 1
编辑框1.内容＝ “炸弹还有” ＋到文本 (n) ＋ “秒爆炸”
延时 (1000)
.如果真 (n ≤ 0)
信息框 (“倒计时完毕你被炸死了”, 0, )
跳出循环 ()

.如果真结束

.判断循环尾 ()

.子程序 _窗口1_将被销毁

强制结束线程 (xc)

何为十一 · 发表于 2013-12-4 17:08:38

.版本 2
.支持库 spec
.程序集窗口程序集1
.程序集变量时, 整数型
.程序集变量分, 整数型
.程序集变量秒, 整数型
.子程序 _按钮1_被单击
.局部变量 i
时＝到整数 (编辑框_时.内容)
分＝到整数 (编辑框_分.内容)
秒＝到整数 (编辑框_秒.内容)
.如果真 (时 ≠ 0 或分 ≠ 0 或秒 ≠ 0)
.计次循环首 (120, i) ' 60=倒计时1分钟120=2分钟
.如果真 (时 ≠ 0 且分＝ 0)
时＝时－ 1
分＝ 60
.如果真结束
.如果真 (分 ≠ 0 且秒＝ 0)
分＝分－ 1
秒＝ 60
.如果真结束
.如果真 (秒 ≠ 0)
秒＝秒－ 1
.如果真结束
编辑框_时.内容＝到文本 (时)
编辑框_分.内容＝到文本 (分)
编辑框_秒.内容＝到文本 (秒)
.如果真 (时＝ 0 且分＝ 0 且秒＝ 0)
信息框 (“倒计时完成”, 0, )
.如果真结束
延迟 (1000)
.计次循环尾 ()
.如果真结束
.子程序 __启动窗口_创建完毕
编辑框_秒.内容＝ “0”
编辑框_分.内容＝ “0”
编辑框_时.内容＝ “1”

复制代码

虽然不是时钟控制的但是给最佳吧

EExiaolin · 发表于 2013-12-4 17:22:10

不寞发表于 2013-12-4 17:08
虽然不是时钟控制的但是给最佳吧

我要用时钟执行的

EExiaolin · 发表于 2013-12-4 17:22:31

君不见发表于 2013-12-4 16:54
.版本 2
.支持库 EThread

不好意思我要用时钟执行的

		自动登录	找回密码
密码			注册

[已解决] 编辑框时分秒倒计时怎么写

最佳答案

评分