說明:此程式使用Visual Basic 6.0 myGa(6,2)陣列係另外處理



Private Sub OKButton_Click()

Dim left As Integer '左手筮竹數

Dim Right As Integer '右手筮竹數

Dim LC As Integer

Dim RC As Integer

Dim Pick_Left As Integer '開始時左手所分竹籤數

Dim Pick_LS As String

Dim All As Integer

Dim Sum(6, 3) As Integer '存放卦爻餘數之用



Dim i As Integer

Dim j As Integer

Dim CHint As String



For i = 1 To 6



Text1.Text = i '顯示進度第幾爻



All = 49 '最初49支竹籤



For j = 1 To 3

Text2 = j '顯示進度第幾變

Text3(j) = All '顯示取籤總數



CHint = "請輸入第 " & i & " 爻第 " & j & " 變時" & vbLf & vbLf & "分竹籤時左手所持籤數：(不得大於" & All & "支)"



Pick_LS = InputBox(CHint, "不輸入將由電腦為您取數", "0")

If Pick_LS = "" Then Pick_LS = "0"

Pick_Left = CInt(Pick_LS)

If (Pick_Left = 0) Then

Randomize

Pick_Left = Int((All * Rnd) + 1)

End If



LC = (Pick_Left - 1) Mod 4

If LC = 0 Then LC = 4



Text4(j) = Pick_Left '顯示左手持籤總數

Text7(j) = LC '顯示左手持竹餘數



RC = (All - Pick_Left) Mod 4

If RC = 0 Then RC = 4



Text5(j) = (All - Pick_Left) '顯示右手持籤總數

Text8(j) = RC '顯示右手持竹餘數



Sum(i, j) = LC + RC + 1

All = All - Sum(i, j)



'Debug.Print i; "all"; j; "="; All

'Debug.Print "Sum("; i; ","; j; ")="; Sum(i, j)



Next j

CHint = "完成第 " & i & " 爻第 " & (j - 1) & " 變"

MsgBox CHint, vbInformation, "周易大衍筮法程序訊息"



Next i



For i = 1 To 6



If (49 - Sum(i, 1) - Sum(i, 2) - Sum(i, 3)) = 36 Then '老陽

myGA(i, 1) = 1

myGA(i, 2) = 1

End If



If (49 - Sum(i, 1) - Sum(i, 2) - Sum(i, 3)) = 32 Then '少陰

myGA(i, 1) = 0

myGA(i, 2) = 0

End If



If (49 - Sum(i, 1) - Sum(i, 2) - Sum(i, 3)) = 28 Then '少陽

myGA(i, 1) = 1

myGA(i, 2) = 0

End If



If (49 - Sum(i, 1) - Sum(i, 2) - Sum(i, 3)) = 24 Then '老陰

myGA(i, 1) = 0

myGA(i, 2) = 1

End If



Debug.Print (49 - Sum(i, 1) - Sum(i, 2) - Sum(i, 3))



Next i



Unload Me

End Sub