[ 新手习题 小结 ] 批处理随机显示俄罗斯方块中一种图案

wxcute

[ 新手习题 小结 ] 随机显示俄罗斯方块中一种图案

目的：学会怎么将变量转化为图案，以达到格式化输出的目的。

要求：随机显示其中一种图案。

评分：代码可读性 1 分，思路新颖独特 2 分；
　　　首个新方法 6 分，第二个 4 分，依次类推，最少 2 分；
　　　图案有旋转变形另加 2 分；
　　　一人多种方法，新方法追加 3 分，已经出现过的方法追加 1 分。

■■■■

■■■　■■■
■　　　　　■

　■
■■■

■■　　　■■
　■■　■■

■■
■■

[ 本帖最后由 wxcute 于 2009-3-8 13:00 编辑 ]

dongdong

@echo off
setlocal enabledelayedexpansion
set dst=■■■■
set /a x=%random%%%4
set /a num=4-%X%
if not %x%==0 (goto :_get) else (goto :_next)
: _get
if not %num%==0  (
for %%c in (%dst%) do (
set mm=%%c
echo !mm:~0,%x%!  
echo. &&echo !mm:~0,%num%! 2>nul
pause>nul )  
) else (echo !mm:~0,%x%!)
goto :end
: _next
echo !mm:~0,%num%!
:end

dongdong

我新手  只能做到这样了  期待高手指点了

stuqx

1. @echo off
   
2. :begin
   
3. set /a num=%RANDOM%%%8
   
4. if !num!==1 (goto 1)
   
5. if !num!==2 (goto 2)
   
6. if !num!==3 (goto 3)
   
7. if !num!==4 (goto 4)
   
8. if !num!==5 (goto 5)
   
9. if !num!==6 (goto 6)
   
10. if !num!==7 (goto 7)
    
11. if !num!==0 (goto begin)
    
12. 
    
13. :1
    
14. echo ■■■■
    
15. goto :eof
    
16. 
    
17. :2
    
18. echo ■■■
    
19. echo ■
    
20. goto :eof
    
21. 
    
22. :3
    
23. echo ■■■
    
24. echo   ■
    
25. goto :eof
    
26. 
    
27. :4
    
28. echo  ■
    
29. echo ■■■
    
30. goto :eof
    
31. 
    
32. :5
    
33. echo ■■　
    
34. echo  ■■
    
35. goto :eof
    
36. 
    
37. :6
    
38. echo  ■■
    
39. echo ■■
    
40. goto :eof
    
41. 
    
42. :7
    
43. echo ■■
    
44. echo ■■
    
45. goto :eof

复制代码

不好意思  没注意到

[ 本帖最后由 stuqx 于 2009-3-8 20:24 编辑 ]

stuqx

学习2楼的  将我的随机数改一下  呵呵 这样可以少个步骤

结果如下

1. @echo off
   
2. set /a num=%RANDOM%%%7
   
3. set /a num=7-%num%
   
4. 
   
5. if !num!==1 (goto 1)
   
6. 
   
7. if !num!==2 (goto 2)
   
8. 
   
9. if !num!==3 (goto 3)
   
10. 
    
11. if !num!==4 (goto 4)
    
12. 
    
13. if !num!==5 (goto 5)
    
14. 
    
15. if !num!==6 (goto 6)
    
16. 
    
17. if !num!==7 (goto 7)
    
18. 
    
19. :1
    
20. echo ■■■■
    
21. goto :eof
    
22. 
    
23. :2
    
24. echo ■■■
    
25. echo ■
    
26. goto :eof
    
27. 
    
28. :3
    
29. echo ■■■
    
30. echo   ■
    
31. goto :eof
    
32. 
    
33. :4
    
34. echo  ■
    
35. echo ■■■
    
36. goto :eof
    
37. 
    
38. :5
    
39. echo ■■　
    
40. echo  ■■
    
41. goto :eof
    
42. 
    
43. :6
    
44. echo  ■■
    
45. echo ■■
    
46. goto :eof
    
47. 
    
48. :7
    
49. echo ■■
    
50. echo ■■
    
51. goto :eof

复制代码

[ 本帖最后由 stuqx 于 2009-3-8 20:25 编辑 ]

dongdong

学习了 看来我把问题复杂化了

dongdong

发错了 抱歉

─────────────────　版主回复　─────────────────
执行：wxcute [2009-03-08]
回复：发现发错了帖子可以进行删除，参考如下帮助
　　　http://bbs.bathome.net/thread-2850-1-4.html
　　　如何编辑（修改）帖子
─────────────────　版主回复　─────────────────

stuqx

7楼的什么意思

输出这个有什么意思么

stuqx

不知道7楼发的是做什么用的   不过我也写一个

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for %%a in (0,1,7) do （
   
4. set b=%%a
   
5. b=b+b
   
6. echo !b! >>a.txt
   
7. )

复制代码

[ 本帖最后由 stuqx 于 2009-3-8 19:03 编辑 ]

keen

我看了二楼的代码，自己写的，但感觉整个代码繁琐，请大大赐教！

1. @echo off
   
2. 
   
3. set /a x=%random%%%3
   
4. set /a y=3-%x%
   
5. set d1=■■■■
   
6. set d2=■■■■
   
7. 
   
8. if %y% equ 3 goto 3
   
9. if %y% equ 2 goto 2
   
10. if %y% equ 1 goto 1
    
11. 
    
12. :3
    
13. echo %d1% &pause>nul &&exit
    
14. 
    
15. :2
    
16. call :suiji
    
17. if %z%==0 echo %d1:~0,2% &echo. &echo %d2:~0,2% &pause>nul &&exit
    
18. if %z%==1 echo %d1:~0,2% &echo. &echo   %d2:~1,2% &pause>nul &&exit
    
19. if %z%==2 echo   %d1:~1,2% &echo. &echo %d2:~0,2% &pause>nul &&exit
    
20. 
    
21. :1
    
22. call :suiji
    
23. if %z%==0 echo   %d1:~1,1% &echo. &echo %d2:~0,3% &pause>nul &&exit
    
24. if %z%==1 echo %d1:~0,3% &echo. &echo %d2:~0,1% &pause>nul &&exit
    
25. if %z%==2 echo %d1:~0,3% &echo. &echo     %d2:~2,1% &pause>nul &&exit
    
26. 
    
27. :suiji
    
28. set /a z=%random%%%3
    
29. goto :eof

复制代码

绿地流年

是否则是丝毫无法

netbenton

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set a1=■■■■
   
4. set a2=■■ ■■
   
5. set a3=■■ @■■
   
6. set a4=■ ■ ■ ■
   
7. set a5=■ ■■ @■
   
8. set a6=■■ @■ @■
   
9. set a7=■■■ @■
   
10. set a8=@■ ■■ ■
    
11. set a9=@■■ ■■
    
12. set a0=@■ ■■■
    
13. :lp
    
14. for %%a in (!a%random:~-1%!) do (set str=%%a&echo;!str:@=  !)
    
15. pause&goto :lp
    

复制代码

[ 本帖最后由 netbenton 于 2009-5-18 22:42 编辑 ]

caruko

纯数字随机生成，翻转功能没做，但是在此基础实现不难,个位跟十位对换就可以了...

1. @echo off
   
2. title 俄罗斯方块
   
3. color 0a
   
4. setlocal enabledelayedexpansion
   
5. :main
   
6. call :go
   
7. ping -n 2 127.1 >nul
   
8. goto :main
   
9. 
   
10. :go
    
11. call :rdvar 4
    
12. set /a value=var*10
    
13. call :rdvar 4
    
14. set /a value=value+var
    
15. set /a _xy_1=value
    
16. set /a _%value%=1
    
17. for /l %%a in (2,1,4) do (
    
18.       call :fd !value!
    
19.       set _xy_%%a=!value!
    
20. )
    
21. rem set _
    
22. call :display
    
23. goto :eof
    
24. 
    
25. 
    
26. ::::::产生随机数,如果是cal:rdvar2,就同时返回0,1:::::::
    
27. :rdvar
    
28. set /a var=%RANDOM%*%1/32768+1
    
29. if %1 equ 2 (
    
30.     set /a rt=var-1
    
31.     exit /b !rt!
    
32. )
    
33. goto :eof
    
34. 
    
35. 
    
36. ::::::::产生指定坐标周围4个坐标,并去除不合格坐标,从中随机得到一个::::::::::::
    
37. :fd
    
38. set /a x=%1 / 10 & set /a y=%1 %% 10
    
39. set /a xy_1=^(x+1^)*10+y & set /a xy_2=^(x-1^)*10+y &set /a xy_3=x*10+y+1 & set /a xy_4= x*10+y-1
    
40. if %x% LEQ 1 set "xy_2="
    
41. if %x% GEQ 4 set "xy_1="
    
42. if %y% LEQ 1 set "xy_4="
    
43. if %y% GEQ 4 set "xy_3="
    
44. set /a n=0
    
45. for /l %%i in (1,1,4) do (
    
46.       set xy=!xy_%%i!
    
47.       if !xy!.==. set /a n-=1
    
48.       if defined _!xy! ( set "xy_%%i=" ) else ( set /a n+=1 )
    
49.    )   
    
50. set vstr=%xy_1% %xy_2% %xy_3% %xy_4%
    
51. if %n% EQU 1 (
    
52.       set /a value=vstr
    
53.       set /a _!value!=1
    
54.       goto :eof
    
55.    )
    
56. call :rdvar %n%
    
57. for /f "tokens=%var%" %%c in ("!vstr!") do (
    
58.       set /a value=%%c
    
59.       set /a _!value!=1
    
60.    )
    
61. goto :eof
    
62. 
    
63. 
    
64. :display
    
65. for /l %%c in (1,1,4) do (
    
66.       echo;
    
67.       for /l %%l in (1,1,4) do (
    
68.             if defined _%%c%%l (set/p "=■"<nul) else (set/p "=  "<nul)
    
69.             set _%%c%%l=
    
70.         )
    
71.     )
    
72. echo;

复制代码

[ 本帖最后由 caruko 于 2010-4-1 16:09 编辑 ]

honeybat

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. :begin
   
4. set n=■
   
5. set /a x=%random%%%4+1
   
6. if !x!==4 cls&echo %n%%n%%n%%n%
   
7. if !x!==3 (set /a y=%random%%%3+1)&echo !y!&(if !y!==1 cls&echo %n%%n%%n%&echo %n%)&(if !y!==2 cls&echo %n%%n%%n%&echo   %n%)&(if !y!==3 cls&echo %n%%n%%n%&echo     %n%)
   
8. if !x!==2 (set /a y=%random%%%5+1)&(if !y!==1 cls&echo %n%%n%&echo %n%%n%)&(if !y!==2 cls&echo %n%%n%&echo   %n%%n%)&(if !y!==3 cls&echo   %n%%n%&echo %n%%n%)&(if !y!==4 cls&echo %n%%n%&echo %n%&echo %n%)&(if !y!==5 cls&echo %n%%n%&echo   %n%&echo   %n%)
   
9. if !x!==1 (set /a y=%random%%%8+1)&(if !y!==1 cls&echo %n%&echo %n%&echo %n%&echo %n%)&(if !y!==2 cls&echo %n%&echo %n%%n%&echo   %n%)&(if !y!==3 cls&echo   %n%&echo %n%%n%&echo %n%)&(if !y!==4 cls&echo   %n%&echo %n%%n%%n%)&(if !y!==5 cls&echo %n%&echo %n%%n%&echo %n%)&(if !y!==6 cls&echo   %n%&echo %n%%n%&echo   %n%)&(if !y!==7 cls&echo %n%&echo %n%&echo %n%%n%)&(if !y!==8 cls&echo   %n%&echo   %n%&echo %n%%n%)
   
10. pause>nul
    
11. goto begin

复制代码

634175535

这个可以用%RANDOM%这个生成1-7七个随机数来控制，如果生成1就是显示第一个图形，2就是第二个图形
·······