Board logo

标题: [游戏娱乐] 福利彩票双色球自动选号器之批处理彩色版 [打印本页]

作者: Batcher    时间: 2009-1-18 02:11     标题: 福利彩票双色球自动选号器之批处理彩色版

  1. @echo off
  2. ::Batcher@bbs.bathome.net
  3. ::2009-01-18
  4. ::福利彩票双色球自动选号器之批处理彩色版@CMD@XP
  5. ::http://bbs.bathome.net/thread-3109-1-1.html
  6. title 福利彩票双色球自动选号器之批处理彩色版@%date%@bbs.bathome.net
  7. :begin
  8. set DstFolder=%temp%\ColorFolder
  9. md "%DstFolder%" 2>nul
  10. del /f /a /q "%DstFolder%\*.*" 2>nul
  11. cd /d "%DstFolder%"
  12. set RedNum=
  13. set NumCnt=
  14. set NumStr=
  15. call :RandNum 1 11 2
  16. set NumCnt=
  17. set NumStr=
  18. call :RandNum 12 22 2
  19. set NumCnt=
  20. set NumStr=
  21. call :RandNum 23 33 2
  22. set NumCnt=
  23. set NumStr=
  24. call :RandNum 1 16 1
  25. set /p=<nul>"%RedNum:~1%"
  26. call :ColorPrint 0c "%RedNum:~1%"
  27. set /p= <nul
  28. set /p=<nul>%BlueNum:~1%
  29. call :ColorPrint 09 "%BlueNum:~1%"
  30. set /p= 买一注双色球,你就为中国彩票的千亿元年销售额做出了贡献!<nul
  31. echo.
  32. pause
  33. cls
  34. del /f /a /q "%DstFolder%\*.*" 2>nul
  35. goto :begin
  36. :RandNum
  37. set /a n=%random%%%(%2-%1+1)+%1
  38. for %%a in (%NumStr%) do (
  39. if %n% equ %%a (
  40. goto :RandNum
  41. )
  42. )
  43. set NumStr=%NumStr% %n%
  44. set /a NumCnt+=1
  45. if %NumCnt% lss %3 (
  46. goto :RandNum
  47. ) else (
  48. if %3 equ 2 (
  49. set RedNum=%RedNum% %NumStr:~1%
  50. ) else if %3 equ 1 (
  51. set BlueNum=%NumStr%
  52. )
  53. )
  54. goto :eof
  55. :ColorPrint
  56. findstr /a:%1 .* "%~2*"
复制代码
[attach]1281[/attach]
作者: tireless    时间: 2009-1-18 14:03     标题: 凑热闹

  1. @echo off
  2. title 福利彩票《双色球》机选
  3. :Input
  4. set 注数=1
  5. set /p 注数=请输入投注注数:
  6. cls
  7. set /a "1/注数" 2>nul || (
  8.   echo.&echo  请输入纯数字 !
  9.   goto :Pause
  10. )
  11. :Repeat
  12. setlocal
  13. :Loop
  14. set /a Red=%random%%%33+1
  15. if defined %Red% goto :Loop
  16. set /p=%Red% <nul
  17. set /a n+=1
  18. set %Red%=.
  19. if %n% lss 6 goto :Loop
  20. set /a Blue=%random%%%16+1
  21. echo - %Blue%
  22. endlocal
  23. set /a 注数-=1,1/注数 2>nul && goto :Repeat
  24. :Pause
  25. echo. & set/p=请按任意键返回. . . <nul
  26. pause>nul & cls & goto :Input
复制代码

[ 本帖最后由 tireless 于 2009-1-22 11:29 编辑 ]
作者: zjhuzi    时间: 2009-1-19 00:19

为什么出现6个蓝色的号码?
作者: yslyxqysl    时间: 2009-1-19 09:47

在findstr的后面加一句:
  1. del "%~2"
复制代码
试试
作者: Batcher    时间: 2009-1-19 13:38     标题: 回复 3楼 的帖子

代码已更新,请重新测试。
作者: 523066680    时间: 2009-1-21 10:28

batcher一定很帅的.....有GF了。。。羡慕
想起精华帖有个人这么问:GF是不是GrandFather
作者: 随风    时间: 2010-6-16 12:51

似乎有个bug
3 7 18 20 26 31 3 7 18 20 26 313 买一注双色球,你就为中国彩票的千亿元年销售额做
出了贡献!
请按任意键继续. . .
作者: Gentleman    时间: 2010-6-16 13:48     标题: 回复 5楼 的帖子

测试了,还是有那种情况,期待进一步改进!
作者: 随风    时间: 2010-9-4 02:22

凑热闹
  1. ::随机选双色球
  2. :: @随风 @bbs.bathome.net @2010-09-04
  3. @echo off & setlocal enabledelayedexpansion
  4. ::初始化数列
  5. for /l %%i in (1 1 33) do set sj%%i=%%i
  6. ::获取随机红色球
  7. for /l %%L in (1 1 5) do (
  8.    call :Loop
  9.    set "str="
  10.    set /a w=!random! %% 16+101
  11.    for /l %%i in (1 1 6) do (
  12.       set n=0!sj%%i!
  13.       set n=!n:~-2!
  14.       set str=!str! !n!
  15.     )
  16.     call :sort0 "!str!" ok
  17.     echo !ok! + !w:~-2!
  18. )
  19. pause
  20. exit
  21. ::给红球排序
  22. :sort0 排除法 可排序200位以内整数、0、负数、重复数(封装)
  23. ::位数越少速度越快默认20位 by 随风 @bbs.bathome.net @2009-02-28
  24. setlocal enabledelayedexpansion&set w=20&set k=&set m=%~1
  25. set lin=$$$$$$$$$$&set "lin=!lin!!lin!!lin!!lin!"
  26. set lin=!lin!!lin!!lin!!lin!!lin!&set kf=&set "h="
  27. for %%a in (!m!)do (set f=%%a&(if "!f:~0,1!"=="-" (
  28. set f=!lin!!f:~1!&set "h=!h! a!f:~-%w%!"
  29. ) else (set f=!Lin!%%a&set h=!h! $!f:~-%w%!)))
  30. (for %%a in (!m!)do (set n=$&set s=&(for %%i in (!h!)do (
  31. if "%%i" geq "!n!" (set s=%%i !s!&set n=%%i)else set s=!s! %%i))
  32. set h=!s:* =!&set n=!n:$=!&if "!n:~0,1!"=="a" (
  33. set kf=!kf! !n:a=-!) else set k=!n! !k!))&set "k=!kf! !K!"
  34. endlocal&set %~2=%k:~1,-1%&goto :EOF
  35. :loop
  36. :: 对数列进行随机交换
  37. for /l %%i in (1,1,33) do (
  38.     set /a x=!random! %% 33+1
  39.     for %%j in (!x!) do set tmp=!sj%%j!
  40.     set sj!x!=!sj%%i!
  41.     set sj%%i=!tmp!
  42. )
  43. goto :EOF
复制代码

作者: cjiabing    时间: 2010-9-5 09:25

我顶~虽然基本上不会买
——想学学显示颜色


——最好再补充一个历史号码,也就是往期中奖号码,避免本期号码与上期号码有两个以上重复,与前十期中每期有三个以上重复,与前五十期有五个以上重复……主要是红色球的,——实际上是否如此不清楚。
不过,估计六位的随机数很难会全部重复,而以人工去推理随机数“买菜”似乎很愚蠢!……

[ 本帖最后由 cjiabing 于 2010-9-5 09:37 编辑 ]




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