作者Jay915 (平静的心…看世界)
看板Visual_Basic
标题[VB6 ] 有关要设计一卜卦程式一问
时间Fri Aug 29 23:18:40 2008
各位大大好,小弟有一程式要设计…
因个人的一个心愿(想帮庙里的师兄写个卜卦程式供他们查阅)
但自已只懂得依书上的作法完成了VB表单制作…
程式流程是:
A表单..
从26个问题挑选一题出来(对应到ACCESS档的第A~Z行(26字母)的其中一行)
B表单..
选择 1.人工卜卦(C表单 = 输入六次硬币正反面资料再连结到ACCESS档的序号第某一行)
2.电脑卜卦 = 由电脑捉取当下的时间作运算(注)
注:在当下的时间为国历,全部需转变成农民历後作运算。
上卦求法为(年+月+日)除以8取余数0~7作上卦用 暂时假设:7
下卦求法为(年+月+日+时)除以8取余数0~7作下卦用 暂时假设:0
变数卦求法为(年+月+日+时)除以6取余数0~5作变数用 暂时假设:2
年是取生肖排列取1~12数、时是取12时辰排列取1~12数。
上卦及下卦作二进制排列为 111000 (位数排列:6~1)
经变数改变第二位数排列後 111010
再将上下卦拆开成为10进制的 7 2
然後对应到ACCESS档的序号第72列
D表单..
将ACCESS档内的该栏位内所有中文字显示出来。
ACCESS档:
里面为 如下所示意的矩阵
a b c d e f g h ..... z (共26行)
00 [坤为地]
01
.
.
12
13
.
.
17
.
.
77 [乾为天]
︵
共
64
列
︶
以上…
小弟已完成A~D表单的制作,ACCESS建档完成也自行打入3万多个中文字了。
只剩下 最关键的 时间运算跟连结到ACCESS档的程式码不会写...
请高手大大帮帮小弟,给小弟一些建议,感谢万分。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.114.44.230
1F:→ yauhh:农历可能没公式可算喔,要想办法做查表...如果有WebService 08/31 00:23
2F:→ yauhh:可以用一下,可能有帮助 08/31 00:23
3F:→ Jay915:本程式已完成,谢谢。 10/08 10:32