通过程序看清赌博机的本质

2011/07/28 2 条评论 11.85k 次阅读 0 人点赞

这是我用易语言编的一个揭示赌博机本质的简单程序，本程序的目的是劝那些玩赌博机的人立即戒赌，而不是提供赌博软件。

很多人沉湎于赌博机，经常输得七荤八素。究其原因，就是因为赌博机是由程序运行的，而程序则是人为编写的，编写赌博程序的人要给购买赌博机的人留下修改参数的接口，就是这个可以任意修改参数的接口让那些赌博的人永远是输远大于赢。道理很简单，老板买赌博机就是为了赚钱，他会为了所谓“公平”从而把金钱拒之门外吗？看看这个程序就知道了，赌博程序有很多手段可以做，不但赌博机可以这样，其他什么网络赌博等等都可能被人操纵！所以奉劝那些赌博的人一句——赶紧戒赌吧！

该程序升级了一下，可以运行测试，请查看：http://www.hystudio.net/?p=177

  1. .程序集 程序集1 
  2. .程序集变量 输赢,整数型 
  3. .程序集变量 赚次,整数型,,"0" 
  4. .程序集变量 玩次,整数型 
  5. .程序集变量 轮次,整数型 
  6. .程序集变量 首赚,整数型 
  7. 　　
  8. .子程序 _窗口1_创建完毕 
  9. 轮次 ＝ 10
  10. 首赚 ＝ 2 ' 刚开始让你赚的次数
  11. ' ==================================== 我做的手脚之一，让你一开始先赚赚！
  12. 　　
  13. .子程序 _按钮1_被单击 
  14. .局部变量 是否,逻辑型 
  15. .局部变量 i 
  16. 标签1.标题 ＝ “点击看输赢”
  17. 标签1.文本颜色 ＝ #灰绿
  18. 　　
  19. .如果真 (玩次 ＝ 0 或 玩次 ％ 轮次 ＝ 0)
  20. 　　随机赚 (4) ' 一个轮次内让你赚的次数
  21. 　　.如果真结束
  22. ' ==================================== 我做的手脚之二，你输赢的次数已经由我控制！
  23. 　　
  24. 玩次 ＝ 玩次 ＋ 1
  25. .计次循环首 (取数组成员数 (赚次), i)
  26.  .如果真 (玩次 ％ 轮次 ＝ 赚次 [i] 或 轮次 ＝ 赚次 [i] 且 玩次 ％ 轮次 ＝ 0)
  27. 　　　　是否 ＝ 真 ' 赚
  28. 　　　　跳出循环 ()
  29. 　　　　.如果真结束
  30. .计次循环尾 ()
  31. 　　
  32. .如果 (是否)
  33. 　　赌 (真, 随机率 (10, 200)) ' 当你赚的时候给你的赔率范围
  34. .否则
  35. 　　赌 (假, 随机率 (30, 300)) ' 当你赔的时候给我的赔率范围
  36. 　　.如果结束
  37. ' ==================================== 我做的手脚之三，你输赢的多少早就在我的掌握中！
  38. 　　
  39. .子程序 随机赚,,,在一个轮次内根据次数随机获取让你赚的次序,不让你觉察到我做了手脚 
  40. .参数 次数,整数型,,每轮次赚几次，根据我的需要设置 
  41. .局部变量 f,逻辑型 
  42. .局部变量 i 
  43. .局部变量 j 
  44. .局部变量 k 
  45. 清除数组 (赚次)
  46. .如果真 (玩次 ＝ 0 且 首赚 ＞ 0)
  47.  .计次循环首 (首赚, i)
  48. 　　　　加入成员 (赚次, i)
  49.  .计次循环尾 ()
  50. 　　.如果真结束
  51. i ＝ 0
  52. 置随机数种子 (取启动时间 ())
  53. .判断循环首 (i ＜ 次数)
  54. 　　f ＝ 真
  55. 　　i ＝ i ＋ 1
  56. 　　k ＝ 取随机数 (1, 轮次)
  57.  .计次循环首 (取数组成员数 (赚次), j)
  58. 　　 .如果真 (赚次 [j] ＝ k)
  59. 　　　　　　f ＝ 假
  60. 　　　　　　i ＝ i － 1
  61. 　　　　　　跳出循环 ()
  62. 　　　　　　.如果真结束
  63.  .计次循环尾 ()
  64.  .如果真 (f)
  65. 　　　　加入成员 (赚次, k)
  66. 　　　　.如果真结束
  67. .判断循环尾 ()
  68. 　　
  69. 数组排序 (赚次, 真)
  70. 调试输出 (赚次)
  71. 　　
  72. .子程序 随机率,双精度小数型,,根据赚赔设置不同的赔率，根据我的需要 
  73. .参数 低值,整数型 
  74. .参数 高值,整数型 
  75. .局部变量 结果,双精度小数型 
  76. 置随机数种子 (取启动时间 ())
  77. 结果 ＝ 取随机数 (低值, 高值) ÷ 100 ' 从低到高随机获取赔率，不让你觉察到我做了手脚
  78. 返回 (结果)
  79. 　　
  80. .子程序 赌,,,你所要做的事情就是这个“赌”，但是程序在“赌”的背后还做了很多你看不到的事情 
  81. .参数 赚赔,逻辑型,,根据我的需要让你赚还是赔，一个轮次内让你赚几次 
  82. .参数 赔率,双精度小数型,,根据我的需要设置的赔率，你赢的时候赔率小，输的时候赔率大 
  83. .局部变量 结果,整数型 
  84. 结果 ＝ 到整数 (编辑框1.内容)
  85. 结果 ＝ 结果 × 赔率
  86. .如果真 (赚赔 ＝ 假)
  87. 　　结果 ＝ －结果
  88. 　　.如果真结束
  89. 编辑框2.内容 ＝ 到文本 (结果)
  90. .如果 (结果 ＜ 0)
  91. 　　编辑框2.文本颜色 ＝ #红色
  92. .否则
  93. 　　编辑框2.文本颜色 ＝ #蓝色
  94. 　　.如果结束
  95. 输赢 ＝ 输赢 ＋ 结果
  96. 　　
  97. .子程序 _按钮2_被单击 
  98. 玩次 ＝ 0
  99. 输赢 ＝ 0
  100. 编辑框1.内容 ＝ “1000”
  101. 编辑框2.内容 ＝ “”
  102. 标签1.标题 ＝ “点击看输赢”
  103. 标签1.文本颜色 ＝ #灰绿
  104. 　　
  105. .子程序 _按钮1_按下某键,逻辑型 
  106. .参数 键代码,整数型 
  107. .参数 功能键状态,整数型 
  108. .如果真 (键代码 ＝ #回车键)
  109. 　　_按钮1_被单击 ()
  110. 　　.如果真结束
  111. .子程序 _标签1_鼠标左键被放开,逻辑型 
  112. .参数 横向位置,整数型 
  113. .参数 纵向位置,整数型 
  114. .参数 功能键状态,整数型 
  115. .如果 (输赢 ＜ 0)
  116. 　　标签1.标题 ＝ “输了： ” ＋ 到文本 (取绝对值 (输赢)) ＋ “元”
  117. 　　标签1.文本颜色 ＝ #红色
  118. .否则
  119. 　　标签1.标题 ＝ “赢了： ” ＋ 到文本 (输赢) ＋ “元”
  120. 　　标签1.文本颜色 ＝ #蓝色
  121. 　　.如果结束
  122. 标签1.标题 ＝ “你总共玩了： ” ＋ 到文本 (玩次) ＋ “次，” ＋ 标签1.标题
  123. #鸿言_易代码格式化模块 HyStudio.Net

推荐阅读：

  1. 赌博机的本质——戒赌软件 之前发了一个《通过程序看清赌博机的本质》，地址：http://www.hystudio.net/?p=171，主要是通过程序代码来警醒那些沉湎于赌博机的人。此次更改了一下代码，将参数设为可调，编译成可执行文件。希望那些热衷赌博机的人用一下这...
  2. 获取注册码－鸿言物品管理软件 注意：本页为 鸿言物品管理软件 的注册方法！ 如果要注册其他软件，请点击这里。 获取注册码： 1、进入购买页面：鸿言软件淘宝店铺  (获取优惠码) 2、在淘宝购买后，记住您的订单号，与店铺联系索取注册码，或者联系QQ：7...
  3. 鸿言物品管理使用方法－选项管理 鸿言物品管理软件中，有些选项可以自定义，可以修改默认的选项名称或者添加新选项。比如“物品状态”，默认的是“使用”、“封存”、“报废”三个选项，用户可以根据需要把这三个选项名称修改为实际所需，或者添加一些新的物品状态选项上去。 1、点击“系统...
  4. 鸿言事务管理使用方法－查找数据 鸿言事务管理软件在查找数据时，预置了等于、不等于、大于、小于、大于等于、小于等于、包含、不包含、左包含、右包含等查找条件。点击主栏目的“查找事务”，或者子栏目的“查找”按钮，即可调出查找事务界面，如图： 可以看到，查找界面中从左到右包含：选...
  5. 鸿言事务管理使用方法－列表排序、记录移动、数值合计 鸿言事务管理软件中的列表可以按照任意字段排序，排序的顺序可以是降序也可以是升序。降序是从大到小排列，升序是从小到大排列。如果是中文，会按照拼音顺序排列；如果有英文有中文，那么英文排在中文前面（升序）或后面（降序）；如果是数字则按照数字大小排...
  6. 批量下载贴吧图片的方法，一次性抓取所有帖子 通常手动下载，或者通过插件下载贴吧图片，都是一个页面一个页面下，比较费时费力。这里介绍一种批量下载贴吧所有帖子图片的方法。首先下载本站的“鸿言图片批量下载”软件，安装运行。然后按照下面的步骤一步步操作。 1、用浏览器打开对应的贴吧，复制网址...
人脉管理软件
© 著作权归作者所有

鸿言

鸿言软件工作室

文章评论（2）

  • yulon

    如果能出个wp的插件就好了 :roll:

    2011/07/29
    回复
    • 渺孤鸿

      @yulon 你指的是易代码格式化模块吧。目前还存在一些缺陷，如果直接做成插件可能会导致格式化后的代码混乱，不如在本地格式化并检查正常后再粘贴到内容里面，反正也不费事。

      2011/07/29
      回复

    • 点击发消息