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

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):
新版源码在楼下回复，自己找。我也是无奈了

wh78845069

訫向荣 发表于 2023-10-6 16:50
取随机数，这个并不能随机，你多试几次都知道了，总是取固定的数，看似随机并不随机。 ...

发现了  一起写的 好像要之随机数种子啥的 没深入研究

訫向荣

取随机数，这个并不能随机，你多试几次都知道了，总是取固定的数，看似随机并不随机。

huli

性感法师，在线算命

wh78845069

天地予 发表于 2023-4-16 19:51
批八字····

我另一个帖子有啊  不过不是离线的，他用的应该是干支纪年法，然后根据天干确定金木水火土，算法其实简单，只是网上资料乱七八糟没个准的

天地予

wh78845069 发表于 2023-4-14 19:47
加啥日期

批八字····

wh78845069

天地予 发表于 2023-4-14 08:06
求楼主继续优化 懂算命的 不多 也就无法写···  写一个算的  日期加上 ...

加啥日期

sanclyj

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

WSW120

谢谢分享

天地予

求楼主继续优化 懂算命的 不多 也就无法写···  写一个算的  日期加上

wh78845069

天空飞翔 发表于 2023-4-12 12:44
上传的源码跟图片的不一致！

源码都贴上。。。。。我无奈了，来，这个是