纯离线数据卜卦源码占卜吉凶

wh78845069

首先相信科学反对迷信，仅供乐了参考。
发这个主要是为了交流实现原理，大佬勿喷。
（我觉得写的软件越来越玄幻了。。。。。）


卦象为八卦上下各两个，我发现那个算命网站理论上一共有8*8=64种卦象，于是就写了个算法直接算了一千次（很快，一两分钟的事），然后返回的卦象1-64组进行了ini配置文件的整理，顺便还把图片一些保存到本地了。这样取一个1-64之间的随机数，直接查询配置文件就行了。出来素材问题费了些时间整理，其他的很简答啦，只有十来行。



没啥乱用，拿来娱乐还行，不过希望对新手有帮助，这种大批量查询然后整理保存本地作为数据库方式查询的原理，其实很简单，可以做很多有意义工作上的辅助，只是碰巧用在了着这娱乐上面。
纯代码没有任何模块，素材一起打包了。有无聊的小伙伴可以拿去集成到模块里。。。。出门看看黄历啦。

  

子程序名	返回值类型	公开	备 注
_求卦_被单击

变量名	类 型	静态	数组	备 注
临时数组	文本型		50
计次	整数型
卦号	整数型

卦号 ＝ 取随机数 (1, 64)
图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\img\” ＋ 到文本 (卦号) ＋ “.gif”)
临时数组 ＝ 分割文本 (读配置项 (取运行目录 () ＋ “\dat.ini”, “数据”, 到文本 (卦号), “”), “│”, 50)
编辑框1.内容 ＝ “”
计次循环首 (取数组下标 (临时数组, ), 计次)
如果真 (计次 ＝ 10)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符
如果真 (计次 ＝ 19)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符
编辑框1.内容 ＝ 编辑框1.内容 ＋ 临时数组 [计次] ＋ #换行符
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _求卦_被单击<br /> .局部变量 临时数组, 文本型, , "50"<br /> .局部变量 计次, 整数型<br /> .局部变量 卦号, 整数型<br /> <br /> 卦号 ＝ 取随机数 (1, 64)<br /> 图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\img\” ＋ 到文本 (卦号) ＋ “.gif”)<br /> 临时数组 ＝ 分割文本 (读配置项 (取运行目录 () ＋ “\dat.ini”, “数据”, 到文本 (卦号), “”), “│”, 50)<br /> 编辑框1.内容 ＝ “”<br /> .计次循环首 (取数组下标 (临时数组, ), 计次)<br />     .如果真 (计次 ＝ 10)<br />         编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符<br />     .如果真结束<br />     .如果真 (计次 ＝ 19)<br />         编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符<br />     .如果真结束<br />     编辑框1.内容 ＝ 编辑框1.内容 ＋ 临时数组 [计次] ＋ #换行符<br /> .计次循环尾 ()

补充内容 (2023-4-12 16:14):
新版源码在楼下回复，自己找。我也是无奈了

weihua2018

哈哈  真的

空竹

不需要这么复炸 直接扣网站js更好

weihua2018

截图跟你发的源码毫无关系啊？现在就这质量的源码？

wh78845069

空竹 发表于 2023-4-11 15:23
不需要这么复炸 直接扣网站js更好

我爬了一下，没找到哪个JS啊，索性就直接存配置文件了

亿万

开源精神必须支持~

wh78845069

weihua2018 发表于 2023-4-11 15:40
截图跟你发的源码毫无关系啊？现在就这质量的源码？

现在T6都这水平？这么简单看不懂

天空飞翔

上传的源码跟图片的不一致！

吃干饭的锅

支持月下旬

396384183

感谢分享 支持开源