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

[游戏娱乐] 批处理娱乐测试-出生日期看天赋

学会批处理倒是可以写些基本的娱乐程序.
  1. @echO Off & cOlOr 57 & title 出生日期看天赋
  2. setlocal enabledelayedexpansion
  3. call :setresult
  4. :home
  5. for /l %%j in (1,1,9) do (set z%%j=0)
  6. set num=0
  7. echo\
  8. echo    从你出生年、月、日中,找出不同的数位。
  9. echo\
  10. echo    例如:1978年12月9日,就有(2个1)(1个2)(1个7)(1个8)和(2个9)。
  11. echo\
  12. echo    经过测试,就会知道你的感情表达能力、思维能力、失恋治疗能力等内在玄妙了.
  13. echo\
  14. echO    zjl根据 し●ひёˇ猪 空间日志编写.
  15. echo\
  16. for /l %%c in (1,1,80) do (set/p hx=※<nul)
  17. echo/
  18. (set max1=5)&(set max2=3)&(set max3=3)
  19. (set max4=2)&(set max5=3)&(set max6=3)
  20. (set max7=3)&(set max8=2)&(set max9=2)
  21. set/p dates=   输入你的生日(格式如:19860929):
  22. for /l %%a in (0,1,8) do (
  23.     set /a num+=1
  24.         for /l %%b in (0,1,7) do (
  25.             if "!dates:~%%b,1!"=="!num!" (
  26.             set /a z!num!+=1
  27.             call :ren
  28.             )
  29.         )
  30.     )
  31. cls
  32. echo.你的生日:%dates%.以下是你的测试结果.
  33. echo.
  34. for /l %%c in (1,1,80) do (set/p hx=※<nul)
  35. for %%d in (!%z1%1!,!%z2%2!,!%z3%3!,!%z4%4!,!%z5%5!,!%z6%6!,!%z7%7!,!%z8%8!,!%z9%9!) do (
  36. set yesorno=%%d
  37. call :yesorno)
  38. :quit
  39. echO.&echO.&echO.
  40. for /l %%c in (1,1,80) do (set/p hx=※<nul)
  41. echO.&echO.&echO.
  42. set/p quit=测试完成,是否重来[yes/nO]:
  43. if /i "%quit%"=="yes" cls&gOtO hOme
  44. if /i "%quit%"=="nO" eXit
  45. gOtO quit
  46. :yesorno
  47. if "%yesorno%"=="0" (goto :eof) else (
  48.     echo/&echo/
  49.     for /l %%k in (0,1,60) do (
  50.         call set/p cyc=!yesorno:~%%k,1!<nul
  51.         ping -n 1 127.1>nul
  52.     )
  53. )
  54. goto :eof
  55. :ren
  56. if !z%num%! geq !max%num%! set z!num!=!max%num%!
  57. goto :eof
  58. :setresult
  59. set 11=1个1:你属于固执而不懂表达感情的人,故经常暗恋人。由于你都算理智,甚少被情所伤。
  60. set 21=2个1:你善于表达感情,面对心仪对象,往往能大胆示爱。由于你喜怒形于色,恋爱过程亦见顺利。
  61. set 31=3个1:你不易透露心底秘密,往往经过深思熟虑,才会将事情告知他人,所以做你的情人要有十足耐性。
  62. set 41=4个1:你十分敏感,情绪起伏不定,毫不掩饰自己的喜怒哀乐,容易意志消沉,需要情人不时地鼓励。
  63. set 51=5个1:你极度情绪化,容易伤害别人,作为你的情人,一定要对你耐心关怀,才能彼此沟通无阻。
  64. set 12=1个2:你懂得顾及别人的感受,善于洞悉别人的想法,是一个可靠的朋友和情人。
  65. set 22=2个2:你善解人意,乐于助人,爱付出。对于异性来说,你的细心体贴甚具吸引力。
  66. set 32=3个2或以上:你的直觉一般,幸好反应能力强。你喜欢多姿多彩的生活,对神秘的爱情也心向往之。
  67. set 13=1个3:超强的想象力令你能散发独特的魅力,而你同时向往浪漫而甜蜜的恋爱。
  68. set 23=2个3:言行常超出常规,常胡思乱想。与爱侣相处时,经常云游太虚,令对方觉得无趣。
  69. set 33=3个3或以上:你智商很高,思维清晰,无法忍受单调的生活,若没机会发挥才能,会变得精神紧张。
  70. set 14=1个4:热情澎湃,言出必行,自信十足,你会大胆表露内心感情,性欲亦旺盛。
  71. set 24=2个4或以上:做人缺乏自信心,对于爱侣忠心耿耿。不会有越轨的念头,亦期望另一半对你专心不二。
  72. set 15=1个5:思想单纯,即使情人见异思迁,你亦不会放弃,希望有守得云开见月明的一日。
  73. set 25=2个5:你的意志并不坚定,容易半途而废,往往事倍功半,想好好发挥才能,最好将精力放在创意活动上。
  74. set 35=3个5或以上:内心有着无法克制的热情,做事冲动,决不会改变自己决定的事情,还要另一半听你指示。
  75. set 16=1个6:你天性敏感,喜欢被别人欣赏,只有这样,你才能感受到自己存在的价值。
  76. set 26=2个6:你多愁善感,缺乏自信,伴侣对你的爱护,是你发挥才能的推动力。
  77. set 36=3个6或以上:你有绝对的自信心,为了令自己与众不同,永远全力以赴,喜欢出风头。
  78. set 17=1个7:谈恋爱时,你会为对方周全考虑,失恋治疗能力亦强,对人欢笑,背人垂泪。
  79. set 27=2个7:由于你每次恋爱都很投入,故失恋时,往往伤得很深,需要向别人倾诉,才能解开郁结。
  80. set 37=3个7或以上:你不易爱上人,但一旦恋爱,会是十分专情的情人。如果被抛弃,你会对曾经的一切念念不忘。
  81. set 18=1个8:你聪明独立,表达能力强,有决断能力,有领导才华,做事往往得心应手。
  82. set 28=2个8或以上:你智力一般,但逻辑性强,做事喜欢循序渐进,不喜欢预期以外的变化。
  83. set 19=1个9:你尝试理解别人对感情的渴求,然后尽量配合。
  84. set 29=2个9或以上:无论智力或精力,你都非常旺盛,但缺点是经常沉醉于自己的想法中,令情人觉得你难以捉摸。
  85. goto :eof
复制代码

自己测过了没啊?,.,,,,
@echo off
@cls

TOP

呵呵
经测试
不准确
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

返回列表