易语言制作双色球随机选号工具的代码

双色球随机选号代码

.版本 2
.程序集 窗口程序集1
.子程序 _随机选号按钮_被单击
.局部变量 z, 逻辑型
.局部变量 随机号
随机号 = 取随机数 (1, 33)
.如果 (随机号 < 10)
 红球编辑框1.内容 = “0” + 到文本 (随机号)
.否则
 红球编辑框1.内容 = 到文本 (随机号)
 z = 假
.如果结束
.循环判断首 ()
 随机号 = 取随机数 (1, 33)
 .如果 (随机号 = 到数值 (红球编辑框1.内容))
  z = 真
 .否则
  .如果 (随机号 < 10)
   红球编辑框2.内容 = “0” + 到文本 (随机号)
  .否则
   红球编辑框2.内容 = 到文本 (随机号)
   z = 假
  .如果结束
 .如果结束
.循环判断尾 (z)
.循环判断首 ()
 随机号 = 取随机数 (1, 33)
 .如果 (随机号 = 到数值 (红球编辑框1.内容) 或 随机号 = 到数值 (红球编辑框2.内容) 或 随机号 = 到数值 (红球编辑框4.内容))
  z = 真
 .否则
  .如果 (随机号 < 10)
   红球编辑框3.内容 = “0” + 到文本 (随机号)
  .否则
   红球编辑框3.内容 = 到文本 (随机号)
   z = 假
  .如果结束
 .如果结束
.循环判断尾 (z)
.循环判断首 ()
 随机号 = 取随机数 (1, 33)
 .如果 (随机号 = 到数值 (红球编辑框1.内容) 或 随机号 = 到数值 (红球编辑框2.内容))
  z = 真
 .否则
  .如果 (随机号 < 10)
   红球编辑框4.内容 = “0” + 到文本 (随机号)
  .否则
   红球编辑框4.内容 = 到文本 (随机号)
   z = 假
  .如果结束
 .如果结束
.循环判断尾 (z)
.循环判断首 ()
 随机号 = 取随机数 (1, 33)
 .如果 (随机号 = 到数值 (红球编辑框1.内容) 或 随机号 = 到数值 (红球编辑框2.内容) 或 随机号 = 到数值 (红球编辑框4.内容) 或 随机号 = 到数值 (红球编辑框3.内容))
  z = 真
 .否则
  .如果 (随机号 < 10)
   红球编辑框5.内容 = “0” + 到文本 (随机号)
  .否则
   红球编辑框5.内容 = 到文本 (随机号)
   z = 假
  .如果结束
 .如果结束
.循环判断尾 (z)
.循环判断首 ()
 随机号 = 取随机数 (1, 33)
 .如果 (随机号 = 到数值 (红球编辑框1.内容) 或 随机号 = 到数值 (红球编辑框2.内容) 或 随机号 = 到数值 (红球编辑框4.内容) 或 随机号 = 到数值 (红球编辑框3.内容) 或 随机号 = 到数值 (红球编辑框5.内容))
  z = 真
 .否则
  .如果 (随机号 < 10)
   红球编辑框6.内容 = “0” + 到文本 (随机号)
  .否则
   红球编辑框6.内容 = 到文本 (随机号)
   z = 假
  .如果结束
 .如果结束
.循环判断尾 (z)
随机号 = 取随机数 (1, 16)
.如果 (随机号 < 10)
 蓝球编辑框.内容 = “0” + 到文本 (随机号)
.否则
 蓝球编辑框.内容 = 到文本 (随机号)
 z = 假
.如果结束

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言设置热键呼出窗口的代码

    设置热键呼出窗口的代码 .版本 2 .支持库 shellEx .程序集 窗口程序集1 .程序集变量 F3, 整数型 .子程序 __启动窗口_创建完毕 F3 = 注册热键 (_启动窗口.取窗口句柄 (), 热键呼出标签.取窗口句柄 (), 0, #F3键) .子程序 _热键呼出标签_反馈事件, 整数型 .参数 呼出, 整数型 .参数 参数二, 整数型 .如果真 (呼出 = F3) _启动窗口.位置 = 1 ' 1. 居中 2. 最小化 3. 最大化 _启动窗口.总在最前 = 真 处理事件 () _

  • 易语言获取随机数并且不重复的代码

    取随机数而且不重复的代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 数组, 整数型, , "0" .局部变量 计次变量, 整数型 .局部变量 随机位置, 整数型 .计次循环首 (50, 计次变量) 加入成员 (数组, 计次变量) .计次循环尾 () .计次循环首 (5, 计次变量) 置随机数种子 () 随机位置 = 取随机数 (1, 取数组成员数 (数组)) ' 取出的随机数是数组成员的位置 输出调试文本 (数组 [随机位置]) 删除成员 (数组

  • 易语言用代码体现如果、如果真和判断的区别

    如果.如果真.判断的区别 .版本 2 .程序集 窗口程序集1 .子程序 _如果按钮_被单击, , , 如果() .如果 (输入编辑框.内容 = 到文本 (1)) 提示标签.标题 = "[如果命令提示]你输入的是1号指令" .否则 .如果 (输入编辑框.内容 = 到文本 (2)) 提示标签.标题 = "[如果命令提示]你输入的是2号指令" .否则 .如果 (输入编辑框.内容 = 到文本 (3)) 提示标签.标题 = "[如果命令提示]你输入的是3号指令&qu

  • 易语言使用如果真命令判断编辑框内容是否正确的代码

    如果真判断代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 编辑框1.获取焦点 () .子程序 _显示内容按钮_被单击 .如果真 (编辑框1.内容 ≠ "中国队") 信息框 ("已修改为正确内容", 48, , ) 编辑框1.内容 = "中国队" .如果真结束 编辑框1.内容 = 编辑框1.内容 + "加油!" 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定

  • 易语言调用JS制作统计文本字数的代码

    调用统计字数js此功能由精易网页调试助手生成代码,配合精易模块使用. 常量数据表 .版本 2 .常量 字数统计js, "<文本长度: 269>" 统计文本字数的代码 .版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 文本_字数统计, 整数型, 公开, 用word方式计算正文字数,返回文本字数,汉字算一个,单词算一个,换行符和空格不算. .参数 文本, 文本型, , 需要统计的文本 .局部变量 c, 整数型 .局部变量 n, 整数型 .局部变量 z,

  • 易语言修改快捷方式进行微信多开的代码

    此功能配合精易模块使用,需要加载超级模块. 常量数据表 .版本 2 .常量 头, "<文本长度: 11>" .常量 尾, "<文本长度: 4>" .常量 头1, "<文本长度: 8>" .常量 尾1, "<文本长度: 12>" 微信多开的代码 .版本 2 .支持库 shell .支持库 eAPI .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _路径按钮_被单击 通

  • 易语言制作推箱子小游戏的代码

    DLL命令表 .版本 2 .DLL命令 写配置文件, 整数型, , "WritePrivateProfileStringA", , 如果配置文件不存在则将被创建 .参数 小节名, 文本型, , 就是用中括号括起来的内容 .参数 项目名, 文本型, , 就是等号前边的内容 .参数 项目值, 文本型, , 就是等号后面的内容 .参数 文件名, 文本型, , 就是你要写入的那个文件 .DLL命令 读配置整数, 整数型, , "GetPrivateProfileIntA"

  • 易语言获取计算机硬盘信息的代码

    常量数据表 .版本 2 .常量 GetDiskList, "<文本长度: 613>" 取磁盘信息代码 .版本 2 .程序集 窗口程序集1 .子程序 _取硬盘信息按钮_被单击 硬盘信息编辑框.内容 = 取硬盘列表 () .子程序 取硬盘列表, 文本型, 公开 .局部变量 Script, 对象 .局部变量 ret, 文本型 Script.创建 ("MSScriptControl.ScriptControl", ) Script.写属性 ("Lang

  • 易语言清空回收站的代码

    DLL命令代码 .版本 2 .DLL命令 清空回收站, 整数型, "shell32.dll", "SHEmptyRecycleBinA" .参数 hwnd, 整数型 .参数 lppath, 整数型 .参数 flag, 整数型 清空回收站代码 .版本 2 .程序集 窗口程序集1 .子程序 _清空按钮_被单击 .局部变量 风格, 整数型 .如果真 (显示清空选择框.选中) 风格 = 0 .如果真结束 .如果真 (显示清空选择框.选中 = 假) 风格 = 7 .如果真结束

  • 易语言获取任意按键对应的键代码

    获取任意键的键代码 .版本 2 .程序集 窗口程序集1 .子程序 _键代码编辑框_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 键代码编辑框.内容 = 到文本 (键代码) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言设置日期框禁止选择以前日期的代码

    禁止日期框选择小于当前日期的代码 .版本 2 .程序集 窗口程序集1 .子程序 _日期框_选择日期被改变 .如果真 (日期框.今天 < 取现行时间 ()) 信息框 ("不可选择以前的日期!", 16, "提示", ) 日期框.今天 = 取现行时间 () 返回 () .如果真结束 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言将日期时间转换成纯数字格式的代码

    将时间转换到纯数字格式的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 年, 文本型 .程序集变量 月, 文本型 .程序集变量 日, 文本型 .程序集变量 时, 文本型 .程序集变量 分, 文本型 .程序集变量 秒, 文本型 .子程序 获取时间 年 = 到文本 (取年份 (取现行时间 ())) .判断开始 (取月份 (取现行时间 ()) < 10) 月 = 到文本 ("0") + 到文本 (取月份 (取现行时间 ())) .默认 月 = 到文本 (取月份 (取现行时间 (

  • 易语言抽取幸运号控制子程序暂停与继续运行的代码

    控制子程序暂停与继续运行的代码 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 是否暂停, 逻辑型 .子程序 _开始按钮_被单击 .局部变量 i, 整数型 开始按钮.禁止 = 真 处理事件 () .判断循环首 (i < 100000) .如果真 (是否暂停 = 假) i = i + 1 随机数标签.标题 = 到文本 (i) .如果真结束 处理事件 () .判断循环尾 () 开始按钮.禁止 = 假 .子程序 _暂停按钮_被单击 是否暂停 = 真 .子程序 _继续按钮_被单击 是否暂停 =

  • 易语言随机生成MAC地址的代码

    实现思路 相信大家都了解mac地址的重要性,每块网卡被生产出来后,都会有一个全球唯一的编号来标识自己,不会重复,这个编号就是MAC地址,也就是网卡的物理地址. 查阅了一些资料,16进制中第一组第二个数字一定是个偶数(十进制概念,不知道恰不恰当).也就是说第二个数字一定是0.2.4.6.8.A.C.E其中的一个. 源码原理,取随机数字16-255,判断是否为偶数不是就+1,这样第一组就出来了,然后我们用取十六进制文本将10进制转换成16进制,再循环随机5组就实现了我们的取随机MAC地址. 随机生成

  • 易语言创建一组随机数并将其排序的代码

    创建随机数并将其排序的代码 .版本 2 .程序集 窗口程序集1 .子程序 _排序按钮_被单击 .局部变量 计次 .局部变量 寄存器, 整数型, , "20" .局部变量 N 置随机数种子 () .计次循环首 (取数组成员数 (寄存器), 计次) 寄存器 [计次] = 取随机数 (1, 100) .计次循环尾 () .计次循环首 (取数组成员数 (寄存器), 计次) .计次循环首 (取数组成员数 (寄存器) - 1, N) .判断开始 (寄存器 [N] > 寄存器 [计次]) .默

随机推荐