Question

易语言 按钮倒计时代码

用按钮弄一个倒计时,倒计时设定为10秒,过了10秒才可以按那个按钮的,

Answer 1

.版本 2.程序集 窗口程序集1
.程序集变量 计时, 整数型.子程序 __启动窗口_创建完毕按钮1.禁止 ＝ 真
计时 ＝ 10
时钟1.时钟周期 ＝ 1000.子程序 _时钟1_周期事件按钮1.标题 ＝ “倒计时:” ＋ 到文本 (计时)
.如果真 (计时 ＜ 1)
按钮1.禁止 ＝ 假
时钟1.时钟周期 ＝ 0.如果真结束
计时 ＝ 计时 － 1

Answer 2

.版本 2
.支持库 xplib

.程序集 窗口程序集1

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

XP风格 (1)

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

开始.禁止 ＝ 真
提示语.标题 ＝ “倒计时:” ＋ 到文本 (计时) ＋ “秒”
.如果真 (计时 ＜ 1)
开始.禁止 ＝ 假
时钟1.时钟周期 ＝ 0
.如果真结束
计时 ＝ 计时 － 1

.子程序 _开始_被单击

计时 ＝ 到数值 (到文本 (输入秒数框.内容))
时钟1.时钟周期 ＝ 1000

.子程序 _停止_被单击

时钟1.时钟周期 ＝ 0
开始.禁止 ＝ 假
提示语.标题 ＝ “计时的秒数”
输入秒数框.内容 ＝ “”

.子程序 _暂停_被单击

时钟1.时钟周期 ＝ 0
开始.禁止 ＝ 假
输入秒数框.内容 ＝ 到文本 (计时)

Answer 3

.版本 2
.支持库 spec.程序集 窗口程序集1.子程序 __启动窗口_创建完毕时钟1.时钟周期 ＝ 1000.子程序 _时钟1_周期事件
.局部变量 i, 整数型, 静态i ＝ i ＋ 1
调试输出 (i)
.如果真 (i ＝ 10)
子程序1 ()
.如果真结束
.子程序 子程序1