模仿进度条

seed如影

记得以前发过一个模仿进度条的小例子 但是这次发的这个没有用到时钟组件 是单纯的用命令来实现的

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
最大	整数型

最大 ＝ 1000
进度条1.最大位置 ＝ 最大
计次循环首 (最大, )
进度条1.位置 ＝ 进度条1.位置 ＋ 1
标签1.标题 ＝ “已下载 ” ＋ 到文本 (进度条1.位置 ÷ 最大 × 100) ＋ “%”
如果真 (进度条1.位置 ＝ 1000)
延时 (500)
标签1.标题 ＝ “下载完成  ”
如果真 (信息框 (“恭喜你”, 1, ) ＝ 0)
进度条1.位置 ＝ 0
标签1.标题 ＝ “”

延迟 (1)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 最大, 整数型<br /> <br /> 最大 ＝ 1000<br /> 进度条1.最大位置 ＝ 最大<br /> .计次循环首 (最大, )<br />     进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />     标签1.标题 ＝ “已下载 ” ＋ 到文本 (进度条1.位置 ÷ 最大 × 100) ＋ “%”<br />     .如果真 (进度条1.位置 ＝ 1000)<br />         延时 (500)<br />         标签1.标题 ＝ “下载完成  ”<br />         .如果真 (信息框 (“恭喜你”, 1, ) ＝ 0)<br />             进度条1.位置 ＝ 0<br />             标签1.标题 ＝ “”<br />         .如果真结束<br /> <br />     .如果真结束<br />     延迟 (1)<br /> <br /> .计次循环尾 ()

moiliom

感谢分享源码

zy5398

看看

seed如影

薛城 发表于 2020-2-18 22:34
很实用谢谢

谢谢你的回复 感谢你的支持

薛城

很实用谢谢

seed如影

简白 发表于 2020-2-16 21:43
6666666666666666666666666

你这属于恶意灌水 会被封号的 啊

lyliuzhi

下载看看。

seed如影

杨明煜 发表于 2020-2-15 08:22
用得上.................

初学者用简单的例程来提高学习的热情

杨明煜

用得上.................

seed如影

开发者滑稽 发表于 2020-2-14 18:28
支持支持，顺便把下载用的JB赚回来呀。

我这源码不用精币的啊 刚才打错了 哈哈

seed如影

开发者滑稽 发表于 2020-2-14 18:28
支持支持，顺便把下载用的JB赚回来呀。

我这源码不用源码的啊