展开全部
这种东西用不着时钟的 一般的循环就可以做到
.版本 2
.子程序 _按钮1_被单击
进度条1.最大位置 = 99
进度条1.最小位置 = 0
进度条1.位置 = 0
.计次循环首 (100, )
进度条1.位置 = 进度条1.位置 + 1
延时 (100)
.计次循环尾 ()
信息框 (“加载完毕”, 0, “系统提示”)
.版本 2
.子程序 _按钮1_被单击
进度条1.最大位置 = 99
进度条1.最小位置 = 0
进度条1.位置 = 0
.计次循环首 (100, )
进度条1.位置 = 进度条1.位置 + 1
延时 (100)
.计次循环尾 ()
信息框 (“加载完毕”, 0, “系统提示”)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.版本 2
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = 13)
时钟1.时钟周期 = 100
.如果真结束
.子程序 _时钟1_周期事件
.如果 (进度条1.位置 < 100)
进度条1.位置 = 进度条1.位置 + 1
.否则
时钟1.时钟周期 = 0
信息框 (“时间到!”, 64, “OK”)
运行 (“Notepad.exe”, 假, )
.如果结束
这个程序,你得先按回车,才可以启动时钟,滚动条才会滚动的。
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = 13)
时钟1.时钟周期 = 100
.如果真结束
.子程序 _时钟1_周期事件
.如果 (进度条1.位置 < 100)
进度条1.位置 = 进度条1.位置 + 1
.否则
时钟1.时钟周期 = 0
信息框 (“时间到!”, 64, “OK”)
运行 (“Notepad.exe”, 假, )
.如果结束
这个程序,你得先按回车,才可以启动时钟,滚动条才会滚动的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.版本 2
.支持库 spec
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 i
.如果真 (键代码 = #B键)
.计次循环首 (100, i)
进度条1.位置 = i
延迟 (10000 ÷ 100) ' 将总共时间平分100份
.计次循环尾 ()
信息框 (“OK!”, #信息图标, )
.如果真结束
.支持库 spec
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 i
.如果真 (键代码 = #B键)
.计次循环首 (100, i)
进度条1.位置 = i
延迟 (10000 ÷ 100) ' 将总共时间平分100份
.计次循环尾 ()
信息框 (“OK!”, #信息图标, )
.如果真结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询