[经验交流] 蛋疼的随机皮肤选择程序 随机, 程序, 选择, 皮肤

OrochiZ

易语言随便写写

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. .子程序 _定时退出_周期事件
    
44. 结束 ()

复制代码

catrgb88

第一次见易语言程序，看着好累

OrochiZ

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

易语言有点搭积木的感觉
C语言之类就好像手工雕刻东西了

jiashie

怀疑是不是vb的关键字汉化版本。虽然是国人的，但是，BS之。

OrochiZ

和VB完全不同的
比VB要积木的多

hhzxedu

易语言，确实不敢恭维，蛋疼

pader

以前见过易语言，我是PHP程序员，但看这个觉得比较蛋疼，真的看的很累。

01471550

程序不蛋疼，但是易语言看着蛋疼

明年

随即选啊我试试

lxgnet2

拿来用用