问个简单问题

kis · 发表于 2011-4-24 21:49:15

帮你顶希望找到高手嘿嘿

hhfly · 发表于 2011-4-24 21:49:59

.版本 2
.程序集窗口程序集1
.程序集变量 c, 整数型
.子程序 __启动窗口_创建完毕
c ＝ 0
时钟1.时钟周期＝ 500
.子程序 _时钟1_周期事件
.局部变量 a, 文本型
.局部变量 b, 整数型
a ＝ “精易论坛”
b ＝取文本长度 (a)
c ＝ c ＋ 1
.如果 (c ≤ b)
_启动窗口.标题＝ _启动窗口.标题＋取文本中间 (a, c, 1)
.否则
_启动窗口.标题＝ “”
c ＝ 0
_启动窗口.标题＝ _启动窗口.标题＋取文本中间 (a, c, 1)

复制代码

exit11 · 发表于 2011-4-24 22:44:29

[e].版本 2
.支持库 spec

.程序集窗口程序集1
.程序集变量 a, 文本型

.子程序 _按钮1_被单击

时钟1.时钟周期＝ 1000

.子程序 _时钟1_周期事件
.局部变量数目, 整数型, 静态

.如果真 (数目＝ 0)
数目＝ 1
.如果真结束

_启动窗口.标题＝取文本中间 (a, 1, 数目 × 2)
数目＝数目＋ 1
.如果真 (取文本长度 (a) ÷ 2 ＜数目)
数目＝ 1
.如果真结束

.如果真 (_启动窗口.标题＝ a)
时钟1.时钟周期＝ 0
延迟 (5000)
时钟1.时钟周期＝ 1000
.如果真结束

.子程序 __启动窗口_创建完毕

a ＝ “精易论坛”[/e]

xiaoyu1986 · 发表于 2011-4-25 01:24:01

bia oti.rar (998 Bytes, 下载次数: 5)

w589321 · 发表于 2011-4-25 02:13:57

应该是这个效果:

标题闪现.rar (1.52 KB, 下载次数: 4)

红鹰 · 发表于 2011-4-25 09:07:49

这个好难做啊。

a307 · 发表于 2011-4-25 13:58:03

.版本 2
.支持库 spec
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
_启动窗口.标题＝ “精易论坛”
时钟1.时钟周期＝ 8000
.子程序 _时钟1_周期事件
_启动窗口.标题＝ “精”
延迟 (1000)
_启动窗口.标题＝ “精易”
延迟 (1000)
_启动窗口.标题＝ “精易论”
延迟 (1000)
_启动窗口.标题＝ “精易论坛”
延迟 (5000)

复制代码

杜蕾斯 · 发表于 2011-4-29 09:28:21

您好！楼主您的解决方法如下：
.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕

.子程序 _时钟1_周期事件

时钟1.时钟周期＝ 1000
_启动窗口.标题＝ “欢迎学习易语言”

.子程序 _时钟2_周期事件

时钟1.时钟周期＝ 2000
_启动窗口.标题＝ “请到我们的精易论坛”

.子程序 _时钟3_周期事件

时钟1.时钟周期＝ 3000
_启动窗口.标题＝ “我们的网址是：http://www.3600gz.cn/”

麻烦事麻烦了点，但有利于新手学习

论坛ID：杜蕾斯.rar (1.04 KB, 下载次数: 1)

qq793359277 · 发表于 2011-4-29 09:34:17

一般来说楼上的代码应该不可能不行{:3_237:}

潮男好少 · 发表于 2011-4-29 16:48:46

QQ信息已回复

		自动登录	找回密码
密码			注册

[易语言] 问个简单问题