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

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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
复制代码
收藏 分享
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

CUer

Rank: 5Rank: 5

帖子
522 
积分
1037 
技术
61  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2011-8-28 17:37 | 只看该作者
用ping来延时不好吗？为嘛要依赖sleep

TOP

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
3楼
发表于 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!
第一个意思为：我的眼睛在写完一个程序后受伤
第二个意思为：我的眼睛在写完这个程序后受伤

看了那程序
只有一个字：赞
超帅地！
http://garyngzhongbo.blogspot.com

TOP

CUer

Rank: 5Rank: 5

帖子
522 
积分
1037 
技术
61  
捐助
0  
注册时间
2010-4-30 
4楼
发表于 2011-8-28 18:59 | 只看该作者
回复 3# garyng


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

TOP

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
5楼
发表于 2011-8-28 19:01 | 只看该作者
回复 4# CUer


    那应该怎么写呢？
http://garyngzhongbo.blogspot.com

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
6楼
发表于 2011-8-28 19:07 | 只看该作者
回复 3# garyng


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

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
7楼
发表于 2011-8-28 19:08 | 只看该作者
回复 2# CUer


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

TOP

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
8楼
发表于 2011-8-28 19:56 | 只看该作者
回复 7# raymai97


    明白~明白~误解了~
http://garyngzhongbo.blogspot.com

TOP

xiaoyuanan2000

Rank: 1

帖子
4 
积分
25 
技术
0  
捐助
0  
注册时间
2012-1-13 
9楼
发表于 2012-8-2 14:55 | 只看该作者
pathping -n -h 1 -q 1 -p 毫秒数 127.0.0.1 >nul

TOP

悬崖之树

Rank: 5Rank: 5

帖子
226 
积分
1298 
技术
9  
捐助
0  
注册时间
2012-7-4 
10楼
发表于 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
复制代码

TOP

悬崖之树

Rank: 5Rank: 5

帖子
226 
积分
1298 
技术
9  
捐助
0  
注册时间
2012-7-4 
11楼
发表于 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 文件！！

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
12楼
发表于 2012-8-4 21:03 | 只看该作者
高手都在这里？咋不帮我伪造几个答案啊，哈哈哈，

TOP

返回列表