說明採用Visual Basic 6.0

使用金錢卦方式(三枚錢幣擲連六次)

則同擲三個金錢情況下：

得一個正面及兩個反面有，正１反2反3、反１正2反3、反１反2正3：三種狀況。

得兩個正面及一個反面有，正１正2反3、正１反2正3、反１正2正3：三種狀況。

得三個正有，正１正2正3，　　　　　　　　　　　　　　　　　：一種狀況。

無正面(即三個反面)有，反１反2反3，　　　　　　　　　　　　：一種狀況。

共有八種狀況！



所以筮金錢卦時，擲得老陽的機率是八分之一，擲得老陰的機率也是八分之一，擲得少陽

的機率是八分之三，擲得少陰的機率也是八分之三！



部分程式碼請參考如下,程式寫的不好請多包函

我想最有爭議的部分可能是最後的取數我用數學冪的方法而沒採用卦數取法吧?



Randomize



'亂數產生六爻

For i = 1 To 6

For j = 1 To 3

RanGa(i, j) = (Int((10 * Rnd) + 1) Mod 2)

If RanGa(i, j) = 1 Then count = count + 1

Debug.Print "RanGa("; i; ","; j; ")="; RanGa(i, j)

Next j

Debug.Print "count"; i; "="; count '陽面計數



'老陽 1/8

If count = 3 Then

myGA(i, 1) = 1

myGA(i, 2) = 1

End If

'老陰 1/8

If count = 0 Then

myGA(i, 1) = 0

myGA(i, 2) = 1

End If



'少陽 3/8

If count = 2 Then

myGA(i, 1) = 1

myGA(i, 2) = 0

End If

'少陰 3/8

If count = 1 Then

myGA(i, 1) = 0

myGA(i, 2) = 0

End If



count = 0

Next i



'myga(i,2) 計算變爻 這是精采的Xor邏輯算變爻

For i = 1 To 6

myGA(i, 2) = (myGA(i, 1) Xor myGA(i, 2))

Next i



myvalue = 0

myvalue = myGA(1, 1) + (myGA(2, 1) * 2) + (myGA(3, 1) * 4)

'取下卦 一至三爻

Select Case myvalue

Case 0

ga_down = "坤"

Case 1

ga_down = "震"

Case 2

ga_down = "坎"

Case 3

ga_down = "兌"

Case 4

ga_down = "艮"

Case 5

ga_down = "離"

Case 6

ga_down = "巽"

Case 7

ga_down = "乾"

End Select

Text2.Text = ga_down

'取上卦 ga_up 四至六爻

myvalue = 0

myvalue = myGA(4, 1) + (myGA(5, 1) * 2) + (myGA(6, 1) * 4)

Select Case myvalue

Case 0

ga_up = "坤"

Case 1

ga_up = "震"

Case 2

ga_up = "坎"

Case 3

ga_up = "兌"

Case 4

ga_up = "艮"

Case 5

ga_up = "離"

Case 6

ga_up = "巽"

Case 7

ga_up = "乾"

End Select

小凱哥你好:



看了你的程式碼覺得很不錯喔!! 不過你提的 "數學冪的方法" 我想是指 XOR 的運算吧!?



一般位元運算 XOR 稱為互斥或, 是屬於 Bit 運算的一種, 效果好程式螞又簡潔. 國曆與農曆的換算, 較高明的程式設計師都會用到 Bit 運算, 而且也很多影像特殊效果的處理也都會用到 XOR 運算.



在取變爻時不一定要用 XOR , 用 NOT(~) 應該也可以.



謝謝你為大家努力寫程式,真是辛苦你了.

對了忘了告訴你, 寫程式盡量不要用 Case 指令, 通常為了可讀性較好才用,因 Case 的指令處理速度較慢, 用if 的巢狀結構速度快很多.不過現在電腦的運算速度已經很快(比起XP時代), 所以也無所謂了.不過你下面類似這種程式碼,寫得有點長了, 大概 2,3 行指令就可解決. 用字串搭配 1 個類似Copy 函數就好. 既簡單又清楚. 你參考看看. 祝你寫程式愉快. Bye, Wawa



例:(我用 Delphi 示範一下, 用 VB 也一樣, 換個函數就可)



var A:String;//此行為變數宣告,用VB連這行都可省略,故用VB只要2行指令就可

A:="坤震坎兌艮離巽乾";

ga_down:=Copy(A,myvalue*2+1,2);



是不是2,3行程式碼就解決了呢!!



在 Delphi 有下列函數,VB也有類似函數,我想你應該知道.

function Copy(S; Index, Count: Integer): string;



Select Case myvalue

Case 0

ga_down = "坤"

Case 1

ga_down = "震"

Case 2

ga_down = "坎"

Case 3

ga_down = "兌"

Case 4

ga_down = "艮"

Case 5

ga_down = "離"

Case 6

ga_down = "巽"

Case 7

ga_down = "乾"

End Select

Wawa:



你也是高手,何時把你的心得和大家分享啊?

>不過你提的 "數學冪的方法" 我想是指 XOR 的運算吧!?

我的意思是指

myvalue = myGA(1, 1) + (myGA(2, 1) * 2) + (myGA(3, 1) * 4)

也許表答的不好,因為我不是數學系的 數學沒學好



不過在這裡討論程式設計好像撈過界了,希望版主和站長大大不要扁我才好

Dear 小凱哥：



那「蓍草全筮法」的機率分析，adamyeh也貼出來了，是否可以考慮加進去？

Dear Adamyeh:



>那「蓍草全筮法」的機率分析，adamyeh也貼出來了，是否可以考慮加進去？



等我想到好方法以後會在下一次更新時加入,謝謝