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

画个矩形,自己玩

画个矩形,自己玩
作者: 未知
转载代码 :在这里向原作者表示感谢..........
========================================================================================================

自己复制代码自己测试下,看效果。呵呵。根据它的提示输入字符,别瞎输入,输入错了,说代码有问题。其实代码没有一点问题,别在楼下骂我就是了。我一点都不懂,只是帖出来,大家看下,玩一下而已。有兴趣的跟帖说明.
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
  1. @echo off
  2. color 0a
  3. ::::::::绘制矩形 {s11ss 2007-10-12}::::::::
  4. setlocal enabledelayedexpansion
  5. if "%1" equ "/?" (
  6.         call :help
  7.         echo 例如:%0 * 8 500
  8.         goto :eof
  9. )
  10. ::设置变量:
  11. if "%1" equ "" (
  12.         call :help
  13.         echo 现在就输入参数,如* 8 500:
  14.         set/p s=
  15.         for /f "tokens=1,2* delims= " %%a in ("!s!") do (
  16.                 set c=%%a
  17.                 set n=%%b
  18.                 set w=%%c
  19.         )
  20. ) else (
  21.         set c=%1
  22.         set n=%2
  23.         set w=%3
  24. )
  25. set/a r=%n%-2
  26. for /l %%a in (1,1,%n%) do (
  27.         set up=!up!%c%
  28.         for /l %%i in (1,1,%%a) do set down%%a=!down%%a!%c%
  29.         set/a t=%n%-%%a
  30.         ::pause
  31.         for /l %%z in (1,1,!t!) do set down%%a= !down%%a!
  32.         if %%a leq %r% set space%r%= !space%r%!
  33. )
  34. set mid1=!space%r%! %c%
  35. set mid2=%c%!space%r%!%c%
  36. ::分四步绘制:
  37. ::1.上边的棱
  38. for /l %%a in (1,1,%n%) do (
  39.         cls
  40.         echo !up:~0,%%a!
  41.         call :delay
  42. )
  43. ::2.右边的棱
  44. >t.x echo !up!
  45. for /l %%a in (1,1,%n%) do (
  46.         if %%a leq %r% (
  47.                 echo !mid1!
  48.                 >>t.x echo !mid1!
  49.                 call :delay
  50.         )
  51. )
  52. ::3.下边的棱
  53. for /l %%a in (1,1,%n%) do (
  54.         cls
  55.         type t.x
  56.         echo !down%%a!
  57.         call :delay
  58. )
  59. ::4.左边的棱
  60. for /l %%a in (1,1,%n%) do (
  61.         if %%a leq %r% (
  62.                 cls
  63.                 echo !up!
  64.                 set/a t=%r%-%%a
  65.                 for /l %%i in (1,1,!t!) do (
  66.                         echo !mid1!
  67.                 )
  68.                 for /l %%z in (1,1,%%a) do (
  69.                         echo !mid2!
  70.                 )
  71.                 echo !up!
  72.                 call :delay               
  73.         )
  74. )
  75. ::结束:
  76. del t.x
  77. pause>nul
  78. goto :eof
  79. ::函数部分:
  80. :delay
  81. for /l %%x in (1,1,%w%) do (echo Waiting...>nul)
  82. goto :eof
  83. :help
  84. echo 参数一:用于显示的字符,如*。
  85. echo 参数二:一行字符的个数,如8。
  86. echo 参数三:字符之间的延时,如500。
复制代码



[ 本帖最后由 lixiaodaoaaa 于 2008-9-29 17:11 编辑 ]

我不认识啊,我是随便转转看到的

我不认识啊,我是随便转转看到的
我没有罪,youxi01,不要判我刑啊。。怕怕怕

TOP

返回列表