.版本 2
.程序集 窗口程序集1
.程序集变量 计时时间, 整数型
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 ≠ “”)
时钟1.时钟周期 = 1000
计时时间 = 到数值 (编辑框1.内容)
按钮1.禁止 = 真
按钮2.禁止 = 假
编辑框1.禁止 = 真
.默认
信息框 (“请输入计时时间”, 0, )
.判断结束
.子程序 __启动窗口_创建完毕
按钮2.禁止 = 真
编辑框1.输入方式 = 3 ' 其实一般这个可以在左边的属性框中设置好的,这里只是让你看到
' 可供选择的属性值:
' 0. 通常方式
' 1. 只读方式
' 2. 密码输入
' 3. 整数文本输入
' 4. 小数文本输入
' 5. 输入字节
' 6. 输入短整数
' 7. 输入整数
' 8. 输入长整数
' 9. 输入小数
' 10. 输入双精度小数
' 11. 输入日期时间
.子程序 _时钟1_周期事件
.判断开始 (计时时间 ≠ 0)
计时时间 = 计时时间 - 1
标签3.标题 = 到文本 (计时时间)
.默认
_按钮2_被单击 ()
.判断结束
.子程序 _按钮2_被单击
时钟1.时钟周期 = 0
按钮1.禁止 = 假
按钮2.禁止 = 真
编辑框1.禁止 = 假
信息框 (“总共为你服务” + 到文本 (到数值 (编辑框1.内容) - 计时时间) + “秒”, 0 + #信息图标, “信息”)