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

[其他] 读心术2 批处理版(不一样的哦!)

本帖最后由 garyng 于 2011-8-30 19:31 编辑

哈哈~我这只菜鸟有来发代码啦~
读心术批处理版(不一样的哦!)这个后
又在同一个原理上,写了这个与先前不同的读心术~
原理跟先前的差不多~
只是换了呈现的方式(我猜你答~)
透过大过/小过来猜测你想的数目~
原创的啦~
试试看吧~
有错误别骂我呀~

————————————————————————————————————
  1. @echo off&setlocal ENABLEDELAYEDEXPANSION
  2. color 0A
  3. :main
  4. echo                              ┌───────────────┐
  5. echo                              │      读心术批处理版          │
  6. echo                              │    GaryNg呕心沥血制作        │
  7. echo                              └───────────────┘
  8. echo 请想一个小于1000的数...
  9. echo 然后我会猜
  10. echo 你只要告诉我
  11. echo 我猜的数目大过还是小过你想的数
  12. set 退格键=
  13. for /l %%a in (5 -1 1) do (set /p =!退格键!%%a秒的时间... <nul&ping -n 2 127.1 >nul)
  14. cls&set num=0&set count=1&set power=9
  15. set /a num=1^<^<9
  16. :loop
  17. echo 第!count!次:我猜!num!
  18. echo 请问我猜大了,猜小了还是我猜对了?
  19. set /p ans=[猜大了=y,猜小了=n,猜对了!=d]
  20. if /i "!ans!" NEQ "y" if /i "!ans!" NEQ "n" if /i "!ans!" NEQ "d" cls&goto loop
  21. if /i "!ans!"=="d" cls&echo 你想的号码是:!num!&echo 哈哈!吓到了吧?&echo 原理想想吧~&echo 提示:还是二进制!&echo 按任意键重来...&pause>nul&cls&goto main
  22. set /a L=!power!-1
  23. set /a L=1^<^<L
  24. set /a m=1^<^<power
  25. if /i "!ans!"=="y" set /a num=!num!-!m!+!L!
  26. if /i "!ans!"=="n" set /a num=!num!+!L!
  27. if "!count!" NEQ "10" cls&set /a count=!count!+1&set /a power=!power!-1&goto loop
复制代码
原理:想想吧~靠二进制的~

首先,我按d并没有反映,而是继续往下执行
再有,如果我一直按y或者n也没有报错
还有,我输入yy、nn、yn、ny等等都没有报错

TOP

本帖最后由 garyng 于 2011-8-30 19:31 编辑

回复 2# 601997526


   问题解决了~楼上已经更新~

TOP

返回列表