[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]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

用ping来延时不好吗?为嘛要依赖sleep

TOP

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

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

看了那程序
只有一个字:赞
超帅地!

TOP

回复 3# garyng


My ladygaga,楼上两位的初中老师没有教过什么是被动语态?

TOP

回复 4# CUer


    那应该怎么写呢?

TOP

回复 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

回复 7# raymai97


    明白~明白~误解了~

TOP

pathping -n -h 1 -q 1 -p 毫秒数 127.0.0.1 >nul

TOP

本帖最后由 悬崖之树 于 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. :despace
  14. set /a time+=1
  15. set space=%space%
  16. call :msg
  17. if "%time%"=="22" sleep 400 & exit /b
  18. goto despace
  19. :space
  20. set /a time+=1
  21. set space=%space%  
  22. call :msg
  23. if "%time%"=="22"  sleep 400 & exit /b
  24. goto space
  25. :msg
  26. cls
  27. echo.
  28. echo %space%白日依山尽
  29. echo.
  30. echo   %space%黄河入海流  
  31. echo.
  32. echo     %space%欲穷千里目
  33. echo.
  34. echo       %space%更上一层楼
  35. echo.
  36. echo.
  37. echo %space%锄禾日当午
  38. echo.
  39. echo   %space%汗滴禾下土
  40. echo.
  41. echo      %space%谁知盘中餐
  42. echo.
  43. echo        %space%粒粒皆辛苦
  44. echo.
  45. echo.
  46. echo     ——悬崖之树
  47. sleep 400 >nul
  48. exit /b
  49. :fadein
  50. color a8
  51. sheep 400 >nul
  52. color d7
  53. sleep 400 >nul
  54. color c7
  55. exit /b
复制代码

TOP

回复 10# 悬崖之树

还有一个:
  1. @echo off & setlocal enabledelayedexpansion
  2. mode con cols=50 lines=2
  3. echo 大家好! hello world …… 菜鸟制作
  4. :main
  5. title 悬崖之树
  6. color b8
  7. sleep 200
  8. :ks
  9. for /l %%a in (1 1 5) do (
  10. set str=@!str!
  11. set /a n=n+1
  12. title !str!悬崖之树
  13. sleep 200
  14. if !n!==10 set n= & set str= & goto main
  15. )  
  16. sleep 200
  17. goto ks
复制代码
ps: 要用到 sleep.com 文件!!

TOP

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

TOP

返回列表