因為 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
附加檔案
186370-9star.zip (126 )
_________________________
玄空風水數位門 玄空風水數位門是新時代應運之新風水學派,秉承三元派風水之精義,
另創特色之數位學理架構詮釋天地人三才風水系統架構,
數即一切之理,位即一切之時間與空間.數位亦是陰陽生化萬法由此生生造化.
陰陽協調三才互動,實踐人間淨土工程.
風水職業班新台幣50萬元整(港幣或人民幣10萬元整)
三元風水秘訣面授點訣(限有基礎者)
教學與進一步詳論者,潤金收費,請聯絡Mail下址
victor.chung@msa.hinet.net
拙著:六爻易斷精要講義下載 中醫藥保健資訊網 易經六十四卦占卜大衍版_打包新安裝(繁體中文版)
AI算命大師
前一個議題
索引
