Board logo

标题: [数值计算] 双色球幸运抽奖 [打印本页]

作者: jiavip    时间: 2018-12-16 03:31     标题: 双色球幸运抽奖

关于 RANDOM 随机数一直是个比较争议的写法,
昨天在
http://bbs.bathome.net/thread-51616-1-1.html

回帖的时候,关于数值范围的选定个人认为不够严谨,于是写下了自己的想法、
打了会游戏太无聊了,一时兴起以那个思路为基础,写个双色球抽奖脚本。
希望大家给个意见。
----------------
数值范围1~33
  1. IF %红球1% LSS 1 GOTO 红球1
  2. IF %红球1% GTR 33 GOTO 红球1
复制代码
当随机数为个位数,则在前面补个0
  1. IF "%红球1:~1,1%"=="" SET 红球1=0%红球1%
复制代码
检索前面数值,如有重复则GOTO 再次随机。
  1. @ECHO %红球6%|FINDSTR /I "%红球1% %红球2% %红球3% %红球4% %红球5%">NUL 2>NUL&&GOTO 红球6
复制代码
完整程序。
  1. @ECHO OFF&COLOR 0E&MODE CON: COLS=60 LINES=3&TITLE 双色球随机抽号,祝君好运!
  2. :红球1
  3. SET 红球1=%RANDOM%
  4. IF %红球1% LSS 1 GOTO 红球1
  5. IF %红球1% GTR 33 GOTO 红球1
  6. IF "%红球1:~1,1%"=="" SET 红球1=0%红球1%
  7. :红球2
  8. SET 红球2=%RANDOM%
  9. IF %红球2% LSS 1 GOTO 红球2
  10. IF %红球2% GTR 33 GOTO 红球2
  11. IF "%红球2:~1,1%"=="" SET 红球2=0%红球2%
  12. @ECHO %红球2%|FINDSTR /I "%红球1%">NUL 2>NUL&&GOTO 红球2
  13. :红球3
  14. SET 红球3=%RANDOM%
  15. IF %红球3% LSS 1 GOTO 红球3
  16. IF %红球3% GTR 33 GOTO 红球3
  17. IF "%红球3:~1,1%"=="" SET 红球3=0%红球3%
  18. @ECHO %红球3%|FINDSTR /I "%红球1% %红球2%">NUL 2>NUL&&GOTO 红球3
  19. :红球4
  20. SET 红球4=%RANDOM%
  21. IF %红球4% LSS 1 GOTO 红球4
  22. IF %红球4% GTR 33 GOTO 红球4
  23. IF "%红球4:~1,1%"=="" SET 红球4=0%红球4%
  24. @ECHO %红球4%|FINDSTR /I "%红球1% %红球2% %红球3%">NUL 2>NUL&&GOTO 红球4
  25. :红球5
  26. SET 红球5=%RANDOM%
  27. IF %红球5% LSS 1 GOTO 红球5
  28. IF %红球5% GTR 33 GOTO 红球5
  29. IF "%红球5:~1,1%"=="" SET 红球5=0%红球5%
  30. @ECHO %红球5%|FINDSTR /I "%红球1% %红球2% %红球3% %红球4%">NUL 2>NUL&&GOTO 红球5
  31. :红球6
  32. SET 红球6=%RANDOM%
  33. IF %红球6% LSS 1 GOTO 红球6
  34. IF %红球6% GTR 33 GOTO 红球6
  35. IF "%红球6:~1,1%"=="" SET 红球6=0%红球6%
  36. @ECHO %红球6%|FINDSTR /I "%红球1% %红球2% %红球3% %红球4% %红球5%">NUL 2>NUL&&GOTO 红球6
  37. :蓝球
  38. SET 蓝球=%RANDOM%
  39. IF %蓝球% LSS 1 GOTO 蓝球
  40. IF %蓝球% GTR 16 GOTO 蓝球
  41. IF "%蓝球:~1,1%"=="" SET 蓝球=0%蓝球%
  42. ECHO 本次双色球【%红球1%,%红球2%,%红球3%,%红球4%,%红球5%,%红球6%,蓝色号码:%蓝球%】祝君好运!&PAUSE>NUL&CLS
  43. GOTO 红球1
复制代码
敬言:如果想知道什么是希望请买"一张彩票",如果想知道什么是绝望请买"一大堆彩票"!
不过如果,各位老板要是用这个脚本中大奖了记得回馈作者我啊。
作者: hlzj88    时间: 2018-12-16 05:47

希望 和 绝望
这么多年我都没有希望过,真是很无趣了。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2