TC官方合作论坛

标题: 双色球摇号器 求点出问题所在 [打印本页]
作者: qq394484635    时间: 2014-2-21 12:08
标题: 双色球摇号器 求点出问题所在
本帖最后由 qq394484635 于 2014-2-21 12:08 编辑

刚开始学习，看到教程做福彩3D，就试着做双色球和大乐透，但总是像死循环一样，求高手指点一二啊



空间 摇号器

功能 福彩3D摇号器(注数)
    变量 显示=""
    遍历(i=0;i<注数;i++)
        百位=辅助.随机数(0,9)
        十位=辅助.随机数(0,9)
        个位=辅助.随机数(0,9)
        显示=显示&百位&十位&个位&"\r\n"
    遍历结束
    返回 (显示)
功能结束

功能 双色球摇号()
   
    变量 显示=""
    变量 数据1,数据2,数据3,数据4,数据5,数据6
    变量 字符串1,字符串2,字符串3,字符串4,字符串5,字符串6
    数据1=辅助.随机数(0,33)
   
    循环(真)
        数据2=辅助.随机数(0,33)
        如果(!数据2==数据1)
            跳出
        如果结束
    循环结束
   
    循环(真)
        数据3=辅助.随机数(0,33)
        如果(!数据3==数据1||数据3==数据2)
            跳出
        如果结束
    循环结束
   
    循环(真)
        数据4=辅助.随机数(0,33)
        如果(!数据4==数据1||数据4==数据2||数据4==数据3)
            跳出
        如果结束
    循环结束
   
    循环(真)
        数据5=辅助.随机数(0,33)
        如果(!数据5==数据1||数据5==数据2||数据5==数据3||数据5==数据4)
            跳出
        如果结束
    循环结束
   
    循环(真)
        数据6=辅助.随机数(0,33)
        如果(!数据6==数据1||数据6==数据2||数据6==数据3||数据6==数据4||数据6==数据5)
            跳出
        如果结束
    循环结束
    字符串1=类型.转字符型(数据1)
    字符串2=类型.转字符型(数据2)
    字符串3=类型.转字符型(数据3)
    字符串4=类型.转字符型(数据4)
    字符串5=类型.转字符型(数据5)
    字符串6=类型.转字符型(数据6)
   
    显示=字符串1&"\\"&字符串2&"\\"&字符串3&"\\"&字符串4&"\\"&字符串5&"\\"&字符串6
    返回 (显示)
功能结束
功能 按钮0_点击()
    //这里添加你要执行的代码
    //注数 = 编辑框.获得文本("编辑框3")
    //遍历 (i=0;i<注数;i++)
   
    //三D号 = 摇号器.福彩3D摇号器()
    //编辑框.设置文本("编辑框0",三D号&"\r\n")
    //调试输出(三D号)
   
    //遍历结束
    注数 = 编辑框.获得文本("编辑框3")
    摇号结果 = 摇号器.福彩3D摇号器(注数)
    编辑框.设置文本("编辑框0",摇号结果)
   
   
功能结束
功能 开始_点击()
    //i=摇号器.求和(5,10)
    //辅助.消息框(i)
功能结束
//退出按钮_点击操作
功能 退出_点击()
   
    辅助.退出()
功能结束

功能 按钮2_点击()
    //这里添加你要执行的代码
    变量 摇号结果
    摇号结果=摇号器.双色球摇号()
    调试输出(摇号结果)
功能结束
空间结束
//空间结束语句


作者: qq394484635    时间: 2014-2-21 12:31
本帖最后由 qq394484635 于 2014-2-21 12:50 编辑

没人看么，我自己找到问题了，||变成&&就OK了，哈啊，用遍历
遍历(10)
        数据2=辅助.随机数(0,33)
        如果(!数据2==数据1)
            跳出
        如果结束
    遍历结束
   
    遍历(10)
        数据3=辅助.随机数(0,33)
        如果(!数据3==数据2&&!数据3==数据1)
            跳出
        如果结束
    遍历结束
   
    遍历(10)
        数据4=辅助.随机数(0,33)
        如果(!数据4==数据3&&!数据4==数据2&&数据4==数据1)
            跳出
        如果结束
    遍历结束
   
    遍历(10)
        数据5=辅助.随机数(0,33)
        如果(!数据5==数据4&&!数据5==数据3&&数据5==数据2&&数据5==数据1)
            跳出
        如果结束
    遍历结束
   
     遍历(10)
        数据6=辅助.随机数(0,33)
        如果(!数据6==数据5&&!数据6==数据4&&数据6==数据3&&数据6==数据2&&数据6==数据1)
            跳出
        如果结束
    遍历结束
   


要是十次都处相同的，我就可以去买彩票了

作者: 小西    时间: 2014-2-21 17:02
本帖最后由 小西 于 2014-2-21 17:05 编辑


  2. 功能 福彩3D摇号器(注数)   
  3.     变量 显示=""
  4.     遍历(i=0;i<注数;i++)
  5.         单注=null
  6.         遍历(3)
  7.             单注&=辅助.随机数(0,9)
  8.         遍历结束
  9.         显示&=单注&"\r\n"
  10.     遍历结束   
  11.     返回 显示   
  12. 功能结束


  15. 功能 福彩3D摇号器1(注数)
  16.    
  17.     显示=null
  18.     遍历(i=0;i<注数;i++)
  19.         显示&=字符串.右侧(辅助.随机数(1000,1999),3)&"\r\n"
  20.     遍历结束
  21.     返回 显示
  22.    
  23. 功能结束


  26. 功能 双色球摇号()   
  27.     显示=null,号码组=array[7],i=0
  28.     遍历(i=0;i<6;i++)
  29.         下一步=true
  30.         循环(下一步)
  31.             号码组[i]=辅助.随机数(1,33)
  32.             如果(i>0)
  33.                 遍历(j=0;j<i;j++)
  34.                     如果(号码组[i]==号码组[j])
  35.                         下一步=true
  36.                         break
  37.                     否则
  38.                         下一步=false
  39.                     如果结束
  40.                 遍历结束
  41.             否则
  42.                 下一步=false
  43.             如果结束
  44.         循环结束
  45.         显示&=号码组[i]&" "
  46.     遍历结束
  47.     号码组[i]=辅助.随机数(1,16)
  48.     显示&="+ "&号码组[i]
  49.    
  50.         
  51.     返回 显示
  52.    
  53. 功能结束
复制代码

合理使用循环与遍历将使代码更简洁.
作者: fang198118    时间: 2017-10-27 19:27




欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1