TC官方合作论坛

标题: 第2部作品----传参之读写配置 [打印本页]

---

作者: shadow    时间: 2012-6-20 13:08
标题: 第2部作品----传参之读写配置
话不多说，面对复杂的控件，如何简化代码保存读取配置？

1. 空间 读写配置
   
2. 真或假
   
3. 功能  写配置(状态,配置)
   
4. 如果(状态==真)
   
5.           辅助.写配置("写配置",配置,"真","D:\\abc.ini")
   
6. 否则
   
7.           辅助.写配置("写配置",配置,"假","D:\\abc.ini")   
   
8. 如果结束
   
9. 返回 真
   
10. 功能结束
    
11. 功能 读配置(配置)
    
12. 字符串=辅助.读配置("写配置",配置,"D:\\abc.ini")
    
13. 如果(字符串=="真")
    
14.         真或假=真   
    
15. 否则
    
16.         真或假=假
    
17. 如果结束
    
18. 返回 真
    
19. 功能结束
    
20. 功能 开始_点击()
    
21. 读写配置.写配置(复选框.获得状态("复选框0"),"配置1")
    
22. 读写配置.写配置(复选框.获得状态("复选框1"),"配置2")
    
23. 读写配置.写配置(复选框.获得状态("复选框2"),"配置3")
    
24. 读写配置.写配置(复选框.获得状态("复选框3"),"配置4")
    
25. 返回 真
    
26. 功能结束
    
27. 功能 退出_点击()
    
28. 辅助.退出()
    
29. 返回 真
    
30. 功能结束
    
31. 功能 初始化()
    
32. 读写配置.读配置("配置1")
    
33. 复选框.选中("复选框0",真或假)
    
34. 读写配置.读配置("配置2")
    
35. 复选框.选中("复选框1",真或假)
    
36. 读写配置.读配置("配置3")
    
37. 复选框.选中("复选框2",真或假)
    
38. 读写配置.读配置("配置4")
    
39. 复选框.选中("复选框3",真或假)
    
40. 返回 真
    
41. 功能结束
    
42. 空间结束
    

复制代码

感谢糖果老师的视频，感谢ゞ隨夢而安灬 的帮助！
[attach]3905[/attach]

---

作者: zouhua1123    时间: 2012-6-20 13:18
我顶·

---

作者: 板桥    时间: 2012-6-20 13:54
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: c724211922    时间: 2012-6-20 14:48
我还不懂继续学习

---

作者: xinguang01    时间: 2012-7-24 13:03
这个好像看的明白点。谢谢了

---

作者: ycmdk    时间: 2012-10-13 11:38
空间 dxc
//定义默认空间
字符型[] sz
整型[] jz
逻辑型[] zj
功能 逻辑型 aa(字符型 aa)
循环(真)
辅助.等待(1000)
列表框.插入文本("列表框0","窗口句柄为"+aa+"运行中",0)
辅助.等待(1000)
循环结束
返回 真
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
整型 i
重复(5)
如果(jz!=0)
线程.关闭(jz)
辅助.等待(1000)
如果结束
重复结束
辅助.退出()
返回 真
//函数返回语句
功能结束

功能 逻辑型 dk()//开启
字符型 jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
整型 i
循环(i<=4)
如果(jb==sz)
列表框.插入文本("列表框1",sz+"窗口已开启线程",0)
跳出
否则
如果(sz=="")
jz=线程.开启("dxc.aa",jb)
sz=jb
列表框.插入文本("列表框1","线程句柄"+转换.整型转字符型(jz),0)
跳出
如果结束
如果结束
i=i+1
循环结束
返回 真
功能结束

功能 逻辑型 gb()//关闭
字符型 jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
整型 i
循环(i<=4)
如果(jb==sz)
列表框.插入文本("列表框1","关闭线程"+转换.整型转字符型(jz),0)
线程.关闭(jz)
sz=""
jz=0
辅助.等待(1000)
跳出
如果结束
i=i+1
循环结束
返回 真
功能结束

功能 逻辑型 tz()//暂停
字符型 jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
整型 i
循环(i<=4)
如果(jb==sz&&jz!=0)
选择(zj)
条件 真:
线程.恢复(jz)
列表框.插入文本("列表框1","恢复线程"+转换.整型转字符型(jz),0)
zj=假
条件 假:
线程.暂停(jz)
列表框.插入文本("列表框1","暂停线程"+转换.整型转字符型(jz),0)
zj=真
默认:
辅助.消息框("如果没有满足的条件执行默认语句")
选择结束 //执行完一条匹配的条件即跳到选择结束
辅助.等待(1000)
跳出
如果结束
i=i+1
循环结束
返回 真
功能结束


功能 逻辑型 热键0_热键()
//这里添加你要执行的代码
线程.开启("dxc.dk","")
返回 真
功能结束

功能 逻辑型 热键1_热键()
//这里添加你要执行的代码
线程.开启("dxc.tz","")
返回 真
功能结束

功能 逻辑型 热键2_热键()
//这里添加你要执行的代码
线程.开启("dxc.gb","")
返回 真
功能结束

功能 逻辑型 初始化()
//这里添加你要执行的代码
sz=字符型[5]
jz=整型[5]
zj=逻辑型[5]
返回 真
功能结束
空间结束
//空间结束语句

==============================
空间 dxc
//定义默认空间
字符型[] sz
整型[] jz
逻辑型[] zj
功能 逻辑型 aa(字符型 aa)
循环(真)
辅助.等待(1000)
列表框.插入文本("列表框0","窗口句柄为"+aa+"运行中",0)
辅助.等待(1000)
循环结束
返回 真
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
整型 i
重复(5)
如果(jz!=0)
线程.关闭(jz)
辅助.等待(1000)
如果结束
重复结束
辅助.退出()
返回 真
//函数返回语句
功能结束

功能 逻辑型 dk()//开启
字符型 jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
整型 i
循环(i<=4)
如果(jb==sz)
列表框.插入文本("列表框1",sz+"窗口已开启线程",0)
跳出
否则
如果(sz=="")
jz=线程.开启("dxc.aa",jb)
sz=jb
列表框.插入文本("列表框1","线程句柄"+转换.整型转字符型(jz),0)
跳出
如果结束
如果结束
i=i+1
循环结束
返回 真
功能结束

功能 逻辑型 gb()//关闭
字符型 jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
整型 i
循环(i<=4)
如果(jb==sz)
列表框.插入文本("列表框1","关闭线程"+转换.整型转字符型(jz),0)
线程.关闭(jz)
sz=""
jz=0
辅助.等待(1000)
跳出
如果结束
i=i+1
循环结束
返回 真
功能结束

功能 逻辑型 tz()//暂停
字符型 jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
整型 i
循环(i<=4)
如果(jb==sz&&jz!=0)
选择(zj)
条件 真:
线程.恢复(jz)
列表框.插入文本("列表框1","恢复线程"+转换.整型转字符型(jz),0)
zj=假
条件 假:
线程.暂停(jz)
列表框.插入文本("列表框1","暂停线程"+转换.整型转字符型(jz),0)
zj=真
默认:
辅助.消息框("如果没有满足的条件执行默认语句")
选择结束 //执行完一条匹配的条件即跳到选择结束
辅助.等待(1000)
跳出
如果结束
i=i+1
循环结束
返回 真
功能结束


功能 逻辑型 热键0_热键()
//这里添加你要执行的代码
线程.开启("dxc.dk","")
返回 真
功能结束

功能 逻辑型 热键1_热键()
//这里添加你要执行的代码
线程.开启("dxc.tz","")
返回 真
功能结束

功能 逻辑型 热键2_热键()
//这里添加你要执行的代码
线程.开启("dxc.gb","")
返回 真
功能结束

功能 逻辑型 初始化()
//这里添加你要执行的代码
sz=字符型[5]
jz=整型[5]
zj=逻辑型[5]
返回 真
功能结束
空间结束
//空间结束语句

==============================

---

作者: cjrcc    时间: 2013-3-25 00:42
学习，谢分享~！

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1