[VB6 ] 有關要設計一卜卦程式一問

看板Visual_Basic作者 (平靜的心…看世界)時間15年前 (2008/08/29 23:18), 編輯推噓0(003)
留言3則, 2人參與, 最新討論串1/1
各位大大好,小弟有一程式要設計… 因個人的一個心願(想幫廟裡的師兄寫個卜卦程式供他們查閱) 但自已只懂得依書上的作法完成了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

08/31 00:23, , 1F
農曆可能沒公式可算喔,要想辦法做查表...如果有WebService
08/31 00:23, 1F

08/31 00:23, , 2F
可以用一下,可能有幫助
08/31 00:23, 2F

10/08 10:32, , 3F
本程式已完成,謝謝。
10/08 10:32, 3F
文章代碼(AID): #18k1DKxu (Visual_Basic)