Board logo

标题: [经验交流] 蛋疼的随机皮肤选择程序 [打印本页]

作者: OrochiZ    时间: 2010-5-7 05:13     标题: 蛋疼的随机皮肤选择程序

本帖最后由 OrochiZ 于 2010-5-7 05:15 编辑

易语言随便写写

  1. .版本 2
  2. .程序集 窗口程序集1
  3. .子程序 __启动窗口_创建完毕
  4. .局部变量 TW目录, 文本型
  5. .局部变量 皮肤目录, 文本型
  6. .局部变量 皮肤列表, 文本型, , "0"
  7. .局部变量 皮肤数量, 整数型
  8. .局部变量 皮肤编号, 整数型
  9. .局部变量 TW配置, 文本型
  10. .局部变量 TW程序, 文本型
  11. ' TW目录 = “C:\Program Files\TheWorld”  ' 指定TW目录
  12. ' 编辑框1.加入文本 (“指定的TW目录” + 字符 (#Tab键) + TW目录 + #换行符)
  13. TW目录 = 取当前目录 ()  ' 必须放于TW目录运行才会正常
  14. 编辑框1.加入文本 (“当前TW目录” + 字符 (#Tab键) + TW目录 + #换行符)
  15. 皮肤目录 = 寻找文件 (TW目录 + “\Skin” + “\*.*”, #子目录)
  16. .判断循环首 (皮肤目录 ≠ “”)
  17.     .如果真 (皮肤目录 ≠ “.” 且 皮肤目录 ≠ “..”)
  18.         加入成员 (皮肤列表, 皮肤目录)
  19.         编辑框1.加入文本 (“皮肤目录” + 字符 (#Tab键) + 皮肤目录 + #换行符)
  20.     .如果真结束
  21.     皮肤目录 = 寻找文件 (, #子目录)
  22. .判断循环尾 ()
  23. 皮肤数量 = 取数组成员数 (皮肤列表)
  24. .如果 (皮肤数量 < 1)
  25.     ' 编辑框1.加入文本 (“没有发现皮肤,指定正确的TW目录” + #换行符 + “程序终止” + #换行符)
  26.     编辑框1.加入文本 (“没有发现皮肤,把本程序放入TW目录运行” + #换行符 + “程序终止” + #换行符)
  27. .否则
  28.     编辑框1.加入文本 (“皮肤数量” + 字符 (#Tab键) + 到文本 (皮肤数量) + #换行符)
  29.     置随机数种子 ()
  30.     皮肤编号 = 取随机数 (1, 皮肤数量)
  31.     编辑框1.加入文本 (“随机皮肤” + 字符 (#Tab键) + 皮肤列表 [皮肤编号] + #换行符)
  32.     TW配置 = TW目录 + “\TheWorld.ini”
  33.     写配置项 (TW配置, “Main”, “UseSkin”, “1”)
  34.     写配置项 (TW配置, “Path”, “Skin”, 皮肤列表 [皮肤编号])
  35.     编辑框1.加入文本 (“写入配置” + #换行符)
  36.     TW程序 = TW目录 + “\TheWorld.exe”
  37.     运行 (TW程序, 假, )
  38.     编辑框1.加入文本 (“启动TW” + #换行符)
  39.     定时退出.时钟周期 = 8000
  40.     编辑框1.加入文本 (“延时” + 到文本 (定时退出.时钟周期) + “毫秒后退出” + #换行符)
  41. .如果结束

  42. .子程序 _定时退出_周期事件
  43. 结束 ()
复制代码

作者: catrgb88    时间: 2010-5-7 08:09

第一次见易语言程序,看着好累
作者: OrochiZ    时间: 2010-5-7 08:12

本帖最后由 OrochiZ 于 2010-5-7 08:14 编辑

就和论坛编辑帖子有 代码模式 和 所见即所得 两种模式一样
复制出来 就是 代码模式
复制回易语言 就是 所见即所得 模式了
看起来完全不一样的

易语言有点搭积木的感觉
C语言之类就好像手工雕刻东西了
作者: jiashie    时间: 2010-5-7 08:22

怀疑是不是vb的关键字汉化版本。虽然是国人的,但是,BS之。
作者: OrochiZ    时间: 2010-5-7 08:24

和VB完全不同的
比VB要积木的多
作者: hhzxedu    时间: 2010-5-7 08:46

易语言,确实不敢恭维,蛋疼
作者: pader    时间: 2010-5-7 08:51

以前见过易语言,我是PHP程序员,但看这个觉得比较蛋疼,真的看的很累。
作者: 01471550    时间: 2010-5-8 11:21

程序不蛋疼,但是易语言看着蛋疼
作者: 明年    时间: 2010-5-13 08:45

随即选啊我试试
作者: lxgnet2    时间: 2010-5-13 13:24

拿来用用




欢迎光临 世界之窗论坛 (http://bbs.theworld.cn/) Powered by Discuz! 7.2