大神们,如何用编辑框写重复次数.

ligancai

不会写.麻烦求教.



功能 逻辑型 测试2()
//这里添加你要执行的代码
整型 窗口句柄
窗口句柄=窗口.鼠标所在窗口句柄()
如果(窗口句柄==0) //判断是否获取到了窗口句柄
                辅助.消息框("没有获取到窗口句柄!")
否则
窗口.激活(窗口句柄)
辅助.等待(200)
窗口.还原(窗口句柄)
辅助.等待(200)
//窗口.还原(窗口句柄字符串)
//窗口.设置位置(窗口句柄,0,0)
辅助.等待(200)
整型 是否绑定成功
是否绑定成功=dm.BindWindow(窗口句柄,"normal","windows","windows",0)
如果(是否绑定成功==0)
辅助.消息框("绑定失败！")
如果结束
如果结束
字符型 内容 = 编辑框.获得文本("编辑框1")         // 获取到的内容
整型 次数 = 转换.字符型转整型(内容,0)
重复()
        如果(单选框.获得状态("单选框0"))
            辅助.等待(200)
            dm.MoveTo(418,197)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(200)
            dm.MoveTo(263,174)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(300)
            dm.MoveTo(356,478)
            辅助.等待(5)
            dm.LeftClick()
            dm.KeyPress(27)
            dm.KeyPress(27)
            dm.KeyPress(27)
             如果结束
        如果(单选框.获得状态("单选框1"))
            辅助.等待(200)
            dm.MoveTo(550,199)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(200)
            dm.MoveTo(263,174)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(300)
            dm.MoveTo(356,478)
            辅助.等待(5)
            dm.LeftClick()
            dm.KeyPress(27)
            dm.KeyPress(27)
            dm.KeyPress(27)
             如果结束
        如果(单选框.获得状态("单选框2"))
            辅助.等待(200)
            dm.MoveTo(686,191)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(200)
            dm.MoveTo(263,174)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(300)
            dm.MoveTo(356,478)
            辅助.等待(5)
            dm.LeftClick()
            dm.KeyPress(27)
            dm.KeyPress(27)
            dm.KeyPress(27)
             如果结束
        如果(单选框.获得状态("单选框3"))
            辅助.等待(200)
            dm.MoveTo(420,375)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(200)
            dm.MoveTo(263,174)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(300)
            dm.MoveTo(356,478)
            辅助.等待(5)
            dm.LeftClick()
            dm.KeyPress(27)
            dm.KeyPress(27)
            dm.KeyPress(27)
             如果结束
        如果(单选框.获得状态("单选框4"))
            辅助.等待(200)
            dm.MoveTo(552,372)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(200)
            dm.MoveTo(263,174)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(300)
            dm.MoveTo(356,478)
            辅助.等待(5)
            dm.LeftClick()
            dm.KeyPress(27)
            dm.KeyPress(27)
            dm.KeyPress(27)
             如果结束
        如果(单选框.获得状态("单选框5"))
            辅助.等待(200)
            dm.MoveTo(686,371)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(200)
            dm.MoveTo(263,174)
            辅助.等待(5)
            dm.LeftClick()
            辅助.等待(300)
            dm.MoveTo(356,478)
            辅助.等待(5)
            dm.LeftClick()
            dm.KeyPress(27)
            dm.KeyPress(27)
            dm.KeyPress(27)
        如果结束
重复结束
返回 真
功能结束

jrflsh

使用循环命令就可以实现了
代码如下

1. 整型 次数=0
2. 字符型 获取次数
3. 获取次数=编辑框.获得文本("编辑框0")
4. 循环(真)
5. //这里是要循环的代码
6. 次数=次数+1
7. 如果(次数==(转换.字符型转整型(获取次数,0)))
8. 跳出
9. 如果结束

复制代码

78933489

回复 7楼ligancai的帖子

你不会直接复制的吧     注意符号    我打的中文符号

ligancai

回复 9楼jrflsh的帖子

选择可以了。谢谢。

jrflsh

回复 6楼jrflsh的帖子

怎么不行.在编辑框输入数量只循环一次.
ligancai 发表于 2012-9-13 15:28:44

你还是先把代码看懂再说吧按照这个来执行的话，除非你自己设置的是一次或者你没有填写次数

ligancai

回复 6楼jrflsh的帖子

怎么不行.在编辑框输入数量只循环一次.

ligancai

回复 5楼78933489的帖子

大神，错误信息。
遍历未定义的函数。

78933489

整型 次数=转换.字符型转整型（编辑框.获得文本（“编辑框0”））
遍历（整型 i=0;i<次数；i++）
//以下为需要重叠执行的代码

遍历结束

shine宝宝

看错了。。。

shine宝宝

状态=单选框获得状态
如果状态==   
     ~~~