[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[特效代码] 刚做的滚动文字批处理,大家来看下

最近不知道要做什么批处理好,就做个滚动文字的批处理,发上来给大家看看,顺便问下大家感觉如何

再附上几个问题:
1. 除了用退格符,还有没有其他方法,可以达到同样的功能?(即去除一个空格)
2. 感觉文字有点闪,能做到更好么?

如果要运行,请下载这个sleep.com,放到批处理的目录下
  1. @echo off
  2. title My eye hurt when I done a program!
  3. mode con cols=80 lines=18
  4. color 08
  5. call :msg
  6. call :fadein
  7. :loop
  8. set time=0
  9. call :space
  10. set time=0
  11. call :despace
  12. goto loop
  13. :despace
  14. set /a time+=1
  15. set space=%space%
  16. call :msg
  17. if "%time%"=="17" exit /b
  18. goto despace
  19. :space
  20. set /a time+=1
  21. set space=%space%  
  22. call :msg
  23. if "%time%"=="17" exit /b
  24. goto space
  25. :msg
  26. cls
  27. echo.
  28. echo   %space%For my dream
  29. echo.
  30. echo      %space%For improving my program..
  31. echo.
  32. echo         %space%I alway need to stuck with these..
  33. echo.
  34. echo    %space%Hurting eye code.. I HATE IT! (╰_╯)#
  35. echo.
  36. echo.
  37. echo       %space%But I think it is worth.. for me..
  38. echo.
  39. echo         %space%As no pay, no get... right?
  40. echo.
  41. echo     %space%How about... you?   O(∩_∩)O
  42. sleep 200
  43. exit /b
  44. :fadein
  45. color 08
  46. sleep 200
  47. color 07
  48. sleep 200
  49. color 0f
  50. exit /b
复制代码
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

回复 3# garyng


    我要表达的意思的确是第一句的啊~ “每当完成一个程序,我的眼睛痛了”
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

回复 2# CUer


    ping的精简度只有一秒,放一秒太慢,放ping -n 1 127.1>nul太快,无奈就用sleep了
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

返回列表