请教重复的问题

iycamtkg

功能 复选框10_点击()
    变量 状态=复选框获取状态("复选框10")

    循环(状态)
        如果(状态==真)            
            线程句柄=线程开启("刷精英","")
            跳出
        结束
    结束   
结束

我想要把刷精英的任务 重复10次,要怎样写,这样只能做一次

言术

iycamtkg 发表于 2015-11-24 20:50
我用记事本10秒一次写字母A,可行,可是做任务还是只有一次,不知哪出问题

我不知道原因，我试着精简了一下，供你参考。


功能 复选框10_点击()
    变量 状态=复选框获取状态("复选框10")
    如果(状态)
        线程句柄=线程开启("打怪","")
    结束
结束

功能 打怪()
    遍历(变量 i = 0; i < 10; i++)
        刷精英()
    结束
结束


功能 刷精英()
    //    找图点击("jy1.bmp")
    //    找图点击("jy2.bmp")
    //    找图点击("jy3.bmp")
    //    找图点击("jy4.bmp")
    //    找图点击("jy5.bmp")
    遍历(变量 i = 1; i <= 5; i++)
        找图点击("jy"&i&".bmp")
    结束
结束

功能 找图点击(图片名)
    变量 x,y
    等待(200)
    循环(真)        
        等待(200)
        dm.FindPic(0,0,2000,2000,图片名,"050505",0.9,0,x,y)
        如果(x>0)
            调试输出(图片名&x&","&y)
            点击(x,y)            
            跳出           
        结束
    结束
结束

iycamtkg

言术 发表于 2015-11-24 21:12
我不知道原因，我试着精简了一下，供你参考。

你好,上次用的挺顺的,我想把操作步骤变化一下,先找到JY1和JY2后,再循环再3,4,5,改来改去,一点复选框就卡死了

liuhaiyan008

功能 复选框10_点击()
      变量 状态=复选框获取状态("复选框10")         
            如果(状态)
             遍历(变量 i = 0; i < 10; i++)
               线程句柄=线程开启("刷精英","")
               线程等待（线程句柄，-1）
            结束
      结束   
结束

君凌天下

iycamtkg 发表于 2015-11-24 20:38
试过了,我用记事本记A,发现它会一下子把10个A都写出来

遍历里面最好不要用线程...

君凌天下

那就对了

iycamtkg

言术 发表于 2015-11-24 20:31

我用记事本10秒一次写字母A,可行,可是做任务还是只有一次,不知哪出问题

1. 功能 复选框10_点击()
   
2.     变量 状态=复选框获取状态("复选框10")
   
3.     如果(状态)
   
4.         线程句柄=线程开启("打怪","")
   
5.     结束
   
6. 结束
   
7. 
   
8. 功能 打怪()
   
9.     遍历(变量 i = 0; i < 10; i++)
   
10.         刷精英()
    
11.     结束
    
12. 结束
    
13. 
    
14. 
    
15. 功能 刷精英()
    
16.     变量 x,y
    
17.     //dm.KeyPress(76)   
    
18.     等待(200)
    
19.     循环(真)        
    
20.         等待(200)
    
21.         变量 dm_ret = dm.FindPic(0,0,2000,2000,"jy1.bmp","050505",0.9,0,x,y)
    
22.         如果(dm_ret>=0)
    
23.             调试输出(x&","&y)
    
24.             点击(x,y)            
    
25.             跳出           
    
26.         结束
    
27.     结束
    
28.    
    
29.     等待(200)
    
30.     循环(真)        
    
31.         等待(200)
    
32.         变量 dm_ret = dm.FindPic(0,0,2000,2000,"jy2.bmp","050505",0.9,0,x,y)
    
33.         如果(dm_ret>=0)
    
34.             调试输出(x&","&y)
    
35.             点击(x,y)            
    
36.             跳出           
    
37.         结束
    
38.     结束
    
39.    
    
40.     等待(200)
    
41.     循环(真)        
    
42.         等待(200)
    
43.         变量 dm_ret = dm.FindPic(0,0,2000,2000,"jy3.bmp","050505",0.9,0,x,y)
    
44.         如果(dm_ret>=0)
    
45.             调试输出(x&","&y)
    
46.             点击(x,y)            
    
47.             跳出           
    
48.         结束
    
49.     结束
    
50.     等待(200)
    
51.     循环(真)        
    
52.         等待(200)
    
53.         变量 dm_ret = dm.FindPic(0,0,2000,2000,"jy4.bmp","050505",0.9,0,x,y)
    
54.         如果(dm_ret>=0)
    
55.             调试输出(x&","&y)
    
56.             点击(x,y)            
    
57.             跳出           
    
58.         结束
    
59.     结束
    
60.     等待(200)
    
61.     循环(真)        
    
62.         等待(200)
    
63.         变量 dm_ret = dm.FindPic(0,0,2000,2000,"jy5.bmp","050505",0.9,0,x,y)
    
64.         如果(dm_ret>=0)
    
65.             调试输出(x&","&y)
    
66.             点击(x,y)
    
67.             跳出
    
68.         结束
    
69.     结束
    
70.    
    
71.    
    
72. 结束

复制代码

iycamtkg

君凌天下 发表于 2015-11-24 20:18
把那个跳出不要

试过了,我用记事本记A,发现它会一下子把10个A都写出来

言术

1. 功能 复选框10_点击()
   
2.     变量 状态=复选框获取状态("复选框10")
   
3.     如果(状态)
   
4.         线程句柄=线程开启("打怪","")
   
5.     结束
   
6. 结束
   
7. 
   
8. 功能 打怪()
   
9.     遍历(变量 i = 0; i < 10; i++)
   
10.         刷精英()
    
11.     结束
    
12. 结束

复制代码

君凌天下

把那个跳出不要