TC官方合作论坛

标题: 多个类似的代码如何化简 [打印本页]

作者: ltays5800 时间: 2016-2-11 17:35
标题: 多个类似的代码如何化简
功能丢弃()
循环(真)

遍历(i=0;i<20;i++)
      鼠标窗口=窗口.鼠标所在窗口句柄()
      图片序号=图像.找图(2,1,784,594,"d:\\Program Files\\TC综合开发工具\\新建文件夹\\采集\\图片资源\\香草.bmp",#102030,1.0,0,x2,y2)
      如果(x2>0&&y2>0)
         鼠标.移动(x2,y2)
         鼠标.左键按下()
         鼠标.相对移动(1,0)
         辅助.等待(100)
         鼠标.相对移动(300,0)
         鼠标.左键弹起()
         辅助.等待(100)
         键盘.按键(13,1)
         调试输出("找图成功")
         跳出
      如果结束
      如果(i>=20)
         调试输出("找图超时")
      如果结束
      辅助.等待(100)
遍历结束

遍历(i=0;i<20;i++)
      鼠标窗口=窗口.鼠标所在窗口句柄()
      图片序号=图像.找图(2,1,784,594,"d:\\Program Files\\TC综合开发工具\\新建文件夹\\采集\\图片资源\\麝香.bmp",#102030,1.0,0,x2,y2)
      如果(x2>0&&y2>0)
         鼠标.移动(x2,y2)
         鼠标.左键按下()
         鼠标.相对移动(1,0)
         辅助.等待(100)
         鼠标.相对移动(300,0)
         鼠标.左键弹起()
         辅助.等待(100)
         键盘.按键(13,1)
         调试输出("找图成功")
         跳出
      如果结束
      如果(i>=20)
         调试输出("找图超时")
      如果结束
      辅助.等待(100)
遍历结束
循环结束
功能结束
功能热键0_热键()
线程句柄=线程.开启("采集.自动补体力","")
功能结束

如上述代码，丢弃的药材有很多种，代码类似，一个一个来有些麻烦，请问有简单一点的方法实现这个功能吗？
谢谢！一齐探讨探讨！

作者: tan0360 时间: 2016-2-11 19:28
把找图鼠标移动点击做成功能函数 .重复调用就不要在重写了 ,精简代码.

作者: 言术 时间: 2016-2-11 20:31
功能丢弃()
循环(真)
      采集.找图点击("d:\\Program Files\\TC综合开发工具\\新建文件夹\\采集\\图片资源\\香草.bmp")
      采集.找图点击("d:\\Program Files\\TC综合开发工具\\新建文件夹\\采集\\图片资源\\麝香.bmp")
循环结束
功能结束

功能找图点击(图片路径)
变量 x2,y2
遍历(i=0;i<20;i++)
      鼠标窗口=窗口.鼠标所在窗口句柄()
      图片序号=图像.找图(2,1,784,594,图片路径,#102030,1.0,0,x2,y2)
      如果(x2>0&&y2>0)
         鼠标.移动(x2,y2)
         鼠标.左键按下()
         鼠标.相对移动(1,0)
         辅助.等待(100)
         鼠标.相对移动(300,0)
         鼠标.左键弹起()
         辅助.等待(100)
         键盘.按键(13,1)
         调试输出("找图成功")
         返回真
      如果结束
      如果(i>=20)
         调试输出("找图超时")
         返回假
      如果结束
      辅助.等待(100)
遍历结束
功能结束

作者: ltays5800 时间: 2016-2-11 21:12

tan0360 发表于 2016-2-11 19:28
把找图鼠标移动点击做成功能函数 .重复调用就不要在重写了 ,精简代码.

谢谢

作者: ltays5800 时间: 2016-2-11 21:13

言术发表于 2016-2-11 20:31
功能丢弃()
循环(真)
采集.找图点击("d:\\Program Files\\TC综合开发工具\\新建文件夹\\采集\ ...

谢谢大神，我会继续努力

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