精易论坛

标题: 窗口标题闪动光标 [打印本页]

---

作者: 简单的简    时间: 2017-8-20 20:36
标题: 窗口标题闪动光标
滚动的光标.e (3.91 KB, 下载次数: 75)

2017-8-20 20:33 上传

点击文件名下载附件
下载积分: 精币 -2 枚

差一点效果，不知道是。。

---

作者: 汉族    时间: 2017-8-20 21:06
我写的怎么样？  没有下载你的，看到有意思的  就交流一下。

---

作者: 汉族    时间: 2017-8-20 21:16
忘了发代码  不好意思

  

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

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

启动线程 (&子程序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 /> .判断循环尾 ()

---

作者: 帅气与大侠    时间: 2017-8-20 21:48

  

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

启动线程 (&子程序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 /> .判断循环尾 ()

---

作者: 忧郁之子    时间: 2017-8-20 21:50
呵呵，又学会了一种方法。

---

作者: 60kg    时间: 2017-8-20 22:17
都是大牛

---

作者: 简单的简    时间: 2017-8-21 17:20

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

666，写的不错哦

---

作者: Dhs过客    时间: 2017-8-22 08:49
厉害了我的哥

---

作者: 那小子很坏    时间: 2017-8-22 08:53
腻害了 学习了

---

作者: 260350    时间: 2017-8-23 05:42
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 宓宓    时间: 2017-8-23 10:26

---

作者: npcwu    时间: 2017-8-23 18:06
好玩呢！~666666

---

作者: 哥只是一个传说    时间: 2017-8-24 22:46
感谢分享，精易有你更精彩

---

作者: 哥只是一个传说    时间: 2017-8-24 22:49
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“程序_延时”。
编译现行易程序失败或被中止!

---

作者: hurric    时间: 2017-8-25 16:17
已经下载 学习一下看看怎么做的

---

作者: dgf6603082    时间: 2017-8-26 17:19
感谢分享，精易有你更精彩

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4