无需时钟:
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 整数型
启动线程 (&子程序_新线程, , a)
.子程序 子程序_新线程
.判断循环首 (进度条1.位置 < 100)
进度条1.位置 = 进度条1.位置 + 1
延迟 (100)
.判断循环尾 ()
信息框 (“要弹出的信息”, 0, )
进度条1.位置 = 0
要时钟:
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
时钟1.时钟周期 = 100
.子程序 _时钟1_周期事件
进度条1.位置 = 进度条1.位置 + 1
.判断开始 (进度条1.位置 = 100)
信息框 (“要弹出的信息”, 0, )
进度条1.位置 = 0
时钟1.时钟周期 = 0
.默认
.判断结束
版本2
子程序_按钮1_单击
进度条位置=进度条的位置+ 100
消息框(“要输入文字,0)
时钟1个时钟周期= 0
进度条最大位置设置100 最小1 起始位置1
判断进度调位置=100
信息框(“到最大位置了”)
进度条.位置=1