.版本 2
.程序集 窗口程序集1
.程序集变量 计时, 整数型
.子程序 _按钮1_被单击
计时 = 到数值 (编辑框1.内容)
.如果真 (计时 < 1)
信息框 (“错误,”, 0, )
返回 ()
.如果真结束
时钟1.时钟周期 = 1000
.子程序 _时钟1_周期事件
计时 = 计时 - 1
编辑框1.内容 = “倒计时还有:” + 到文本 (计时) + “秒”
.如果真 (计时 = 15)
播放音乐 (“音乐”, )
.如果真结束
.如果真 (计时 = 0)
时钟1.时钟周期 = 0
信息框 (“到计时已结束”, #确认钮 + #信息图标, “提示”)
.如果真结束
.版本 2
.程序集 窗口程序集1
.程序集变量 倒计时, 整数型
.子程序 _时钟1_周期事件
.如果真 (倒计时 = 15 ) ' 15秒
时钟1.时钟周期 = 0
信息框 (“时间到”, 0, )
.如果真结束
倒计时 = 倒计时 - 1 ' 每秒递减1
.子程序 _按钮1_被单击
倒计时 = 30 ' 假设定时是30秒
时钟1.时钟周期 = 1000