因為 Destiny 網並沒有命理程式討論區,
所以就借用風水版張貼一下這個小模組了

當然這只是個最基本的原型, 單純輸入要入中宮的數字
然後排出順逆飛的九宮罷了,

至於要如何使用,並加工成站上的排盤程式,
則必須要網友們自己加工了,短時間內小凱哥大概沒空了,等有空再寫吧
反正目前站上的系統很完備,自己寫Client版本只是好玩和研究罷了.

這個VB模組只是核心碼,至於要起運盤亦或是判斷坐山立向起挨星盤,
用不用替,都會用到.程式寫的不好,僅供參考就是了.

按下附加檔案可以下載該檔案的 VB Source file

=================================================
把以下程式碼放入模組

Option Explicit

'九星順飛,Center為入中宮的數字
Public Function Fly9C(ByVal Center As Integer) As String
Dim A(9) As Integer
Dim C(9) As Integer
Dim i As Integer

'順飛次序為A(i),順飛方格次序為i
A(1) = 5: A(2) = 9: A(3) = 6
A(4) = 7: A(5) = 2: A(6) = 8
A(7) = 3: A(8) = 4: A(9) = 1

For i = 1 To 9
C(A(i)) = Center
Center = Center + 1
If Center = 10 Then Center = 1
Next i

'排盤
For i = 1 To 9
Fly9C = Fly9C & C(i) & " "
If i Mod 3 = 0 Then Fly9C = Fly9C + vbCr + vbLf
Next i

End Function


'九星逆飛,Center為入中宮的數字
Public Function Fly9R(ByVal Center As Integer) As String
Dim A(9) As Integer
Dim C(9) As Integer
Dim i As Integer

'逆飛次序為A(i),逆飛方格次序為i
A(9) = 1: A(8) = 4: A(7) = 3
A(6) = 8: A(5) = 2: A(4) = 7
A(3) = 6: A(2) = 9: A(1) = 5

For i = 1 To 9
C(A(i)) = Center
Center = Center - 1
If Center = 0 Then Center = 9
Next i

'排盤
For i = 1 To 9
Fly9R = Fly9R & C(i) & " "
If i Mod 3 = 0 Then Fly9R = Fly9R + vbCr + vbLf
Next i

End Function

===========================================================
使用範例
把以下程式放入表單的按鈕中

Private Sub Command1_Click()
Dim AA As String
AA = Fly9C(7)
Print AA

AA = Fly9C(2)
Print AA

AA = Fly9R(3)
Print AA

End Sub

多謝兄的努力呀

耿老師客氣了

小弟不過是做自己能作且想做的事罷了.

有機會還得向老師多請益.

本人有寫好的紫白飛星盤程式(vb)
但是是用.ocx方式寫的
如有需要可以互相參考
個人網址
http://home.pchome.com.tw/soho/alunetp/→無法下載程式
http://topia.yam.com/home/alunetp/pages/index.htm→可以下載程式
http://home.kimo.com.tw/alunekimo/→可以下載程式
內容都一樣
上面還有六壬神算
附上自做達摩一掌金程式
只是在解釋方面還未完成
太懶了
因為牽扯到八字
敝人沒學過sorry
參考參考
p.s.我網上的程式要有vbrun才能執行
可以到xyz軟體倉庫下載喔
另外如何附加檔案在此文章上呢

alune:

費了九牛二虎之力終於看到了您的程式執行的模樣.程式寫的不錯喔!

但是由於您的網頁沒有將此元件作成網頁散發封裝,所以雖然依照您在
網頁的說明下載執行檔與程式庫並放置在 c:\windows\system
目錄裡以後,仍然無法正確執行的.

因為光是這個樣子,即使有VBRUN 的環境也是無法順利執行的,
您開發的元件仍必須在使用者的系統裡註冊機碼.
故必須利用 Regsvr32.exe 註冊 youngjai.ocx
才能在使用者的本機產生關聯,
即使是這樣註冊完後也還是無法正確執行的.

因為註冊過的ocx元件必須要有執行的環境收容器,您在網頁上的語法
就是透過 MS explorer 作為執行收納的環境來開啟該元件的執行.

故而,使用者還必須將您的網頁下載,手動修改
object classid 的安裝的路徑才可以.

如果想要放在VB 6.0 裡面當作 userControl 來使用也缺了 tlb
所以看來只能在 explorer 裡面使用了.

只有一個字'懶'
而且當時在老家寫的
用撥接上網
所以用上傳比較快
另外
在這裡如何附加檔案？
我想將執行檔及程式附上去
一起研究

在回覆文章的時候
記得在貼文區的下方
把 "我要預覽我的文章 並且/或是 附加一個檔案"
的選項打勾,

然後按下 "繼續" 就會出現一個上傳檔案的輸入欄位了

但是 Destiny 網的上傳檔案好像有 200K 的限制.

因此編譯過的執行檔封裝可能會太大. 如果是原始VB程式 source code
就小很多了.

那我的達摩一掌金寫的太大了
有興趣告訴我
我e-mail給你
六壬神算也有執行檔格式
有興趣一起研究
就mail給我
檔案是用安裝程式的一般人也可以用
[email protected]

alune:

謝謝您的熱心.

我的e-mail是 [email protected]

短時間內我恐怕無法抽出時間作這方面的研究和投入.
但還是很高興有緣與您相互研究.