[游戏娱乐] 批处理顺时针描点正方形

myzwd

@echo off&setlocal enabledelayedexpansion&cls&color 1a
for /l %%1 in (1 1 80) do set "space= !space!"
set /p side=请输入边长(默认值10，最大值38，最小值2)---
set /a "y.center.min=%side%/2+4"
set /a "x.center.max=79-%side%"
set /a "y.center.max=42-%y.center.min%"
set /p x.center=%side%^<"中心x坐标"^<%x.center.max%--请输入[默认值40]--
set /p y.center=%y.center.min%^<"中心y坐标"^<%y.center.max%--请输入[默认值21]--
set /a "side1=%side%-1"
set /a "byte=%side%*2"
set /a "side2=%side%-2"
set /a "side3=%byte%-4"
set /a "x.left=%x.center%-%byte%/2" 
set /a "x.right=%x.center%+%byte%/2" 
set /a "y.up=%y.center%-%side%/2" 
set /a "md=%side%%%2"
if  %md%==0 (set /a "y.up=%y.up%+1") 
set /a "y.down=%y.center%+%side%/2" 
mode con cols=80 lines=42
:up
for /l %%i in (1 1 !side2!) do (
  cls
  set /a "y.echo=!y.down!-%%i"
  for /l %%j in (1 1 !y.echo!) do echo.
  for /l %%k in (1 1 %%i) do (call echo %%space:~-!x.left!%%■)
  for /l %%1 in (1 1 30) do (call echo.>nul)
)

:right
for /l %%i in (1 1 !side1!) do (
   cls
   for /l %%i in (1 1 !y.up!) do echo.
   set square.right=■!square.right!
   call set /p=%%space:~-!x.left!%%!square.right!<nul
   echo.
   for /l %%1 in (1 1 !side2!) do (call echo %%space:~-!x.left!%%■)
   for /l %%1 in (1 1 30) do (call echo.>nul)
)
:down
for /l %%i in (1 1 !side1!) do (
   cls
   for /l %%j in (1 1 !y.up!) do echo.
   call set /p=%%space:~-!x.left!%%<nul
   for /l %%1 in (1 1 !side!) do set /p=■<nul
   echo.
   set /a "high=%%i-1"
   set /a "high1=!side2!-!high!"
   for /l %%k in (1 1 !high!) do (
      call echo %%space:~-!x.left!%%■%%space:~-!side3!%%■
   )
   for /l %%k in (1 1 !high1!) do (call echo %%space:~-!x.left!%%■)
   for /l %%1 in (1 1 30) do (call echo.>nul)
)

:left
for /l %%i in (1 1 !side!) do (
cls
for /l %%j in (1 1 !y.up!) do echo.
call set /p=%%space:~-!x.left!%%<nul
for /l %%1 in (1 1 !side!) do set /p=■<nul
echo.
for /l %%2 in (1 1 !side2!) do (call echo %%space:~-!x.left!%%■%%space:~-!side3!%%■)
call set sp=%%space:~-!x.right!%%
set /a "ll=%%i*2"
call set /p=%%sp:~!ll!%%<nul
set square1=!square1!■
set /p=!square1!<nul
for /l %%1 in (1 1 30) do (call echo.>nul)
echo.
)
echo.
set rr="%space:~-17%---顺时针描点%side%x%side%正方形by myzwd------------"
echo  >%rr%
findstr /a:cb .* %rr%*
del %rr%
pause >nul
复制代码

myzwd

这么好的作品你早该发了。谢谢。

523066680

全屏居中： 注意上面空行数，和左边空格数就是了
一般取偶数，方便除2  。  

我来打广告好了  
曾经的作品：中间变大变小的方形筐筐
http://www.cn-dos.net/forum/viewthread.php?tid=40711

那张帖子有vkill 的回贴，以后就再没见过vkill了~

Batcher

默认一行80个
但我的就改成100个了呵呵

myzwd

1个方块占2个字节，cmd一行是80个字节，这个小方块的2个字节要分居在40，41号位置上。如果是2个小方块那到好办。居中到总是可以，但要奇偶分类，麻烦。。懒得改了。管它的。就算是一个实习作业，下次在做作业时再让它居中。呵呵。

[ 本帖最后由 myzwd 于 2009-3-15 16:35 编辑 ]

defanive

我这边完全没有居中。。。
应该很简单的吧，算一下就好了。。。

myzwd

我本来就没说要让它居中，绝对居中有点麻烦。只是基本居中。呵呵

namejm

　　楼主还是用[code] 和 [/code]把代码部分括起来吧，以方便大家复制。

defanive

上下两边，没有居中。。。

myzwd

我又检查了一次 ，没见到错误啊。能说一下描点错在那一边吗

defanive

描点错误，鉴定完毕～
一会自己也写一个。。。