Board logo

标题: [特效代码] 刚做的滚动文字批处理，大家来看下 [打印本页]
作者: raymai97    时间: 2011-8-28 17:32     标题: 刚做的滚动文字批处理，大家来看下

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

再附上几个问题：
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. 

  14. :despace

  15. set /a time+=1

  16. set space=%space%

  17. call :msg

  18. if "%time%"=="17" exit /b

  19. goto despace

  20. 

  21. :space

  22. set /a time+=1

  23. set space=%space%  

  24. call :msg

  25. if "%time%"=="17" exit /b

  26. goto space

  27. 

  28. :msg

  29. cls

  30. echo.

  31. echo   %space%For my dream

  32. echo.

  33. echo      %space%For improving my program..

  34. echo.

  35. echo         %space%I alway need to stuck with these..

  36. echo.

  37. echo    %space%Hurting eye code.. I HATE IT! (╰_╯)#

  38. echo.

  39. echo.

  40. echo       %space%But I think it is worth.. for me..

  41. echo.

  42. echo         %space%As no pay, no get... right? 

  43. echo.

  44. echo     %space%How about... you?   O(∩_∩)O

  45. sleep 200

  46. exit /b

  47. 

  48. :fadein

  49. color 08

  50. sleep 200

  51. color 07

  52. sleep 200

  53. color 0f

  54. exit /b
复制代码
作者: CUer    时间: 2011-8-28 17:37

用ping来延时不好吗？为嘛要依赖sleep
作者: garyng    时间: 2011-8-28 18:29

本帖最后由 garyng 于 2011-8-28 18:32 编辑

My eye hurt when I done a program!
语法有点错误~
建议写为：
My eye hurt when I done this program!
第一个意思为：我的眼睛在写完一个程序后受伤
第二个意思为：我的眼睛在写完这个程序后受伤

看了那程序
只有一个字：赞
超帅地！
作者: CUer    时间: 2011-8-28 18:59

回复 3# garyng


My ladygaga，楼上两位的初中老师没有教过什么是被动语态？
作者: garyng    时间: 2011-8-28 19:01

回复 4# CUer


    那应该怎么写呢？
作者: raymai97    时间: 2011-8-28 19:07

回复 3# garyng


    我要表达的意思的确是第一句的啊~ “每当完成一个程序，我的眼睛痛了”
作者: raymai97    时间: 2011-8-28 19:08

回复 2# CUer


    ping的精简度只有一秒，放一秒太慢，放ping -n 1 127.1>nul太快，无奈就用sleep了
作者: garyng    时间: 2011-8-28 19:56

回复 7# raymai97


    明白~明白~误解了~
作者: xiaoyuanan2000    时间: 2012-8-2 14:55

pathping -n -h 1 -q 1 -p 毫秒数 127.0.0.1 >nul
作者: 悬崖之树    时间: 2012-8-4 19:20

本帖最后由 悬崖之树 于 2012-8-4 19:28 编辑

我也伪造了一个：
  1. @echo off

  2. title 悬崖之树

  3. mode con cols=62 lines=21

  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. 

  14. :despace

  15. set /a time+=1

  16. set space=%space%

  17. call :msg

  18. if "%time%"=="22" sleep 400 & exit /b

  19. goto despace

  20. 

  21. :space

  22. set /a time+=1

  23. set space=%space%  

  24. call :msg

  25. if "%time%"=="22"  sleep 400 & exit /b

  26. goto space

  27. 

  28. :msg

  29. cls

  30. echo.

  31. echo %space%白日依山尽 

  32. echo.

  33. echo   %space%黄河入海流  

  34. echo.

  35. echo     %space%欲穷千里目

  36. echo.

  37. echo       %space%更上一层楼

  38. echo.

  39. echo.

  40. echo %space%锄禾日当午

  41. echo.

  42. echo   %space%汗滴禾下土

  43. echo.

  44. echo      %space%谁知盘中餐

  45. echo.

  46. echo        %space%粒粒皆辛苦

  47. echo.

  48. echo.

  49. echo     ——悬崖之树

  50. 

  51. sleep 400 >nul

  52. exit /b

  53. 

  54. :fadein

  55. color a8

  56. sheep 400 >nul

  57. color d7

  58. sleep 400 >nul

  59. color c7

  60. exit /b
复制代码
作者: 悬崖之树    时间: 2012-8-4 19:24

回复 10# 悬崖之树

还有一个：
  1. @echo off & setlocal enabledelayedexpansion

  2. mode con cols=50 lines=2

  3. 

  4. echo 大家好！ hello world …… 菜鸟制作

  5. :main

  6. title 悬崖之树

  7. color b8

  8. sleep 200

  9. :ks

  10. for /l %%a in (1 1 5) do (

  11. set str=@!str!

  12. set /a n=n+1

  13. title !str!悬崖之树

  14. 

  15. sleep 200

  16. if !n!==10 set n= & set str= & goto main

  17. )  

  18. sleep 200

  19. goto ks
复制代码
ps： 要用到 sleep.com 文件！！
作者: wh1234567    时间: 2012-8-4 21:03

高手都在这里？咋不帮我伪造几个答案啊，哈哈哈，



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2