曲径通幽论坛

标题: 跑马灯 [打印本页]

---

作者: easy    时间: 2014-6-3 12:39
标题: 跑马灯
下面是一个跑马灯的演示程序：

1. @echo off
   
2. 
   
3. setlocal enabledelayedexpansion
   
4. color fc
   
5. set space=                                                            
   
6. set c=60
   
7. set b=-60
   
8. 
   
9. :loop1
   
10. set e=!space:~0,%b%!
    
11. echo %e%〓
    
12. ping /n 2 127.1>nul&cls
    
13. set /a b+=3
    
14. if %b% lss 0 (goto loop1) else set b=-60&goto loop2
    
15. 
    
16. 
    
17. :loop2
    
18. set /a c-=3
    
19. call set e=%%space:~0,%c%%%
    
20. echo %e%〓
    
21. ping /n 2 127.1>nul&cls
    
22. if %c% gtr 0 (goto loop2) else set c=60&goto loop1

复制代码

---

欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/)

Powered by Discuz! X3.2