因為 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