[已解决]求帮忙在while循环里面显示倒计时之后继续while循环

xz00311

求帮忙在while循环里面显示倒计时之后继续while循环，通过ToolTip来提示

1. 
   
2. Global $Paused
   
3. HotKeySet("{F2}", "TogglePause")
   
4. HotKeySet("{ESC}", "Terminate")
   
5. HotKeySet("{F1}", "MouseC")
   
6. 
   
7. 
   
8. While 1
   
9.    Sleep(500)
   
10. WEnd
    
11. 
    
12. Func TogglePause()
    
13.     $Paused = NOT $Paused
    
14.     While $Paused
    
15.         sleep(100)
    
16.         ToolTip('脚本暂停中',0,0)
    
17.     WEnd
    
18.     ToolTip("")
    
19. EndFunc
    
20. 
    
21. Func Terminate()
    
22.     Exit 0
    
23. EndFunc
    
24. 
    
25. Func MouseC()
    
26. while 1
    
27. 
    
28.         这里是通过sleep延时的，延时1分钟之后继续while循环，不知道能不能通过倒计时的方式来实现呢
    
29. 
    
30. WEnd
    
31. EndFunc
    

复制代码

guoguo188

用 for 循环

for $sj=60 to 0 step -1
ToolTip('倒计时：'&$sj,0,0)
sleep(1000)
next


while 也行 但增加个 函数记次数

$sj=60
while 1
ToolTip('倒计时：'&$sj,0,0)
sleep（1000）
$sj=$sj -1
if $sj=0 then exitloop
wend

xz00311

不退出循环一直循环啊你看看我上面那个代码就知道了.倒数完成之后重新倒数,还有倒数到1的时候就不减下去了

xz00311

谢谢用for可以实现了

afan

xz00311 发表于 2019-8-13 11:07
不退出循环一直循环啊你看看我上面那个代码就知道了.倒数完成之后重新倒数,还有倒数到1的时候就不减下去了
...

他那个只是倒计时的循环体，除了应该是 60 to 1 外没毛病~
如有问题那就是你的描述有问题

Dontang2018

guoguo188 发表于 2019-8-12 14:45
用 for 循环

for $sj=60 to 0 step -1

Yes.學習,學習.