窗口标题闪动光标

简单的简

汉族 发表于 2017-8-20 21:16
忘了发代码  不好意思
[e=1].版本 2
.支持库 EThread

666，写的不错哦

60kg

都是大牛

忧郁之子

呵呵，又学会了一种方法。

帅气与大侠

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
n	整数型
光标	文本型		0
窗口标题	文本型

加入成员 (光标, “\”)
' 加入成员 (光标, “|”)
加入成员 (光标, “/”)
加入成员 (光标, “一”)
窗口标题 ＝ 标题
判断循环首 (真)
处理事件 ()
计次循环首 (3, n)
处理事件 ()
程序_延时 (200)
标题 ＝ 窗口标题 ＋ 光标 [n]
计次循环尾 ()
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 n, 整数型<br /> .局部变量 光标, 文本型, , "0"<br /> .局部变量 窗口标题, 文本型<br /> <br /> 加入成员 (光标, “\”)<br /> ' 加入成员 (光标, “|”)<br /> 加入成员 (光标, “/”)<br /> 加入成员 (光标, “一”)<br /> 窗口标题 ＝ 标题<br /> .判断循环首 (真)<br />     处理事件 ()<br />     .计次循环首 (3, n)<br />         处理事件 ()<br />         程序_延时 (200)<br />         标题 ＝ 窗口标题 ＋ 光标 [n]<br />     .计次循环尾 ()<br /> .判断循环尾 ()

汉族

忘了发代码  不好意思

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
s	整数型
w	文本型		3
f	逻辑型

w ＝ { “ /”, “—”, “ \”, “ |” }
判断循环首 (s ≠ -1)
如果真 (s ＞ 3)
s ＝ 0
s ＝ s ＋ 1
标题 ＝ “DOS _SysTem - HanZu ” ＋ w [s]
处理事件 ()
延迟 (75)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 s, 整数型<br /> .局部变量 w, 文本型, , "3"<br /> .局部变量 f, 逻辑型<br /> <br /> w ＝ { “ /”, “—”, “ \”, “ |” }<br /> .判断循环首 (s ≠ -1)<br />     .如果真 (s ＞ 3)<br />         s ＝ 0<br />     .如果真结束<br />     s ＝ s ＋ 1<br />     标题 ＝ “DOS _SysTem - HanZu ” ＋ w <strike><br />     处理事件 ()<br />     延迟 (75)<br /> .判断循环尾 ()

汉族

我写的怎么样？  没有下载你的，看到有意思的  就交流一下。