 
- 帖子
- 295
- 积分
- 1142
- 技术
- 2
- 捐助
- 0
- 注册时间
- 2008-2-4
|
画个矩形,自己玩
画个矩形,自己玩
作者: 未知
转载代码 :在这里向原作者表示感谢..........
========================================================================================================
自己复制代码自己测试下,看效果。呵呵。根据它的提示输入字符,别瞎输入,输入错了,说代码有问题。其实代码没有一点问题,别在楼下骂我就是了。我一点都不懂,只是帖出来,大家看下,玩一下而已。有兴趣的跟帖说明.
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
- @echo off
- color 0a
- ::::::::绘制矩形 {s11ss 2007-10-12}::::::::
- setlocal enabledelayedexpansion
- if "%1" equ "/?" (
- call :help
- echo 例如:%0 * 8 500
- goto :eof
- )
-
- ::设置变量:
- if "%1" equ "" (
- call :help
- echo 现在就输入参数,如* 8 500:
- set/p s=
- for /f "tokens=1,2* delims= " %%a in ("!s!") do (
- set c=%%a
- set n=%%b
- set w=%%c
- )
- ) else (
- set c=%1
- set n=%2
- set w=%3
- )
- set/a r=%n%-2
- for /l %%a in (1,1,%n%) do (
- set up=!up!%c%
- for /l %%i in (1,1,%%a) do set down%%a=!down%%a!%c%
- set/a t=%n%-%%a
- ::pause
- for /l %%z in (1,1,!t!) do set down%%a= !down%%a!
- if %%a leq %r% set space%r%= !space%r%!
- )
- set mid1=!space%r%! %c%
- set mid2=%c%!space%r%!%c%
-
- ::分四步绘制:
- ::1.上边的棱
- for /l %%a in (1,1,%n%) do (
- cls
- echo !up:~0,%%a!
- call :delay
- )
- ::2.右边的棱
- >t.x echo !up!
- for /l %%a in (1,1,%n%) do (
- if %%a leq %r% (
- echo !mid1!
- >>t.x echo !mid1!
- call :delay
- )
- )
- ::3.下边的棱
- for /l %%a in (1,1,%n%) do (
- cls
- type t.x
- echo !down%%a!
- call :delay
- )
- ::4.左边的棱
- for /l %%a in (1,1,%n%) do (
- if %%a leq %r% (
- cls
- echo !up!
- set/a t=%r%-%%a
- for /l %%i in (1,1,!t!) do (
- echo !mid1!
- )
- for /l %%z in (1,1,%%a) do (
- echo !mid2!
- )
- echo !up!
- call :delay
- )
- )
-
- ::结束:
- del t.x
- pause>nul
- goto :eof
-
- ::函数部分:
- :delay
- for /l %%x in (1,1,%w%) do (echo Waiting...>nul)
- goto :eof
-
- :help
- echo 参数一:用于显示的字符,如*。
- echo 参数二:一行字符的个数,如8。
- echo 参数三:字符之间的延时,如500。
复制代码
[ 本帖最后由 lixiaodaoaaa 于 2008-9-29 17:11 编辑 ] |
|