请高手帮忙做一个六爻起卦程序

kevin_cn306

Zamyi 发表于 2013-7-23 10:07
只知道起卦用的铜钱都很讲究，没有铜钱，可用55年老毛的5分硬币，才准，随便再个电脑随机，不也太随机了？电 ...

Zamyi，你好！其实用什么起卦只是周易六爻的一种手段，古人占筮用蓍草演卦，后来是以钱代蓍，其实铜钱的出现比周易出现的年代要往很多，至于你说的55年老毛的5分硬币，那就更迟了。
我认为只要原理上忠实于周易，用什么起卦不必强求，时间起卦也好，摇钱也好，应该都可以，梅花易的起卦就更随意，社会在进步，起卦方法也可以随着进步，当然不能异想天开的来起卦，必须忠实于周易的初衷。个人意见，仅供交流。

kevin_cn306

zm0115 发表于 2013-7-23 09:55
其实3个0，1随机，好像和8个卦象随机是一样的吧，2^3=8，也就是在8种情况中随机。
当然还是尊重楼主的意 ...

再次感谢zm0115版主，这个很好用的。
请问能不能再做一下修改：
“开始”和“结束”两个按钮不隐藏，但是把开始按钮上的“开始”二字前同步加上“第 x 掷开始”，这就完美了。

zm0115

kevin_cn306 发表于 2013-7-23 10:12
多谢版主！
三个“0”、“1”随机和八个卦象随机，在原理上是完全不同的，如果要忠实于周易六爻的起卦方 ...

学习了.什么时候能教教我们启蒙知识啊.老祖宗的这个东西应该比excel还要博大精深哦，呵呵。

Zamyi

kevin_cn306 发表于 2013-7-23 10:39
再次感谢zm0115版主，这个很好用的。
请问能不能再做一下修改：
“开始”和“结束”两个按钮不隐藏，但 ...

既然是手段，何须过程？

1. Sub test()
   
2. Dim a(1 To 2, 1 To 24)
   
3. For i = 1 To 6
   
4.   Randomize Timer
   
5.   t = Int(Rnd * 8)
   
6.   a(1, 3 * i - 2) = "第" & Application.Text(i, "[DBNum1]") & "掷"
   
7.   a(2, 3 * i - 2) = Application.Dec2Bin(t, 3)
   
8. Next
   
9. [b1].Resize(2, 18) = a
   
10. End Sub

复制代码

kevin_cn306

Zamyi 发表于 2013-7-23 11:46
既然是手段，何须过程？

谢谢！
所谓手段也就是某种方法，而如何对待一个过程那是做事的态度，我遵循“力所能及，精益求精”。
不注重过程，不可能有好的结果，哪怕偶尔有一次，那也是巧遇；
注重每一个过程的细节，纵使没有好的结果，那也是你已经尽力而为了，问心无愧，也说明你只有这么大的能力！

hjqiang888

kevin_cn306 发表于 2013-7-23 12:19
谢谢！
所谓手段也就是某种方法，而如何对待一个过程那是做事的态度，我遵循“力所能及，精益求精”。
...

Sub 清除()
if Range("r2")<>"" then Range("B1:S3").ClearContents '清除单元格内容
End Sub
这样的话  开始后“清空”是不是就会无效了呢

jiangdong110

哈哈，不错的想法！

彭希仁

能算出“你今天有血光之灾不”

lee1892

kevin_cn306 发表于 2013-7-23 10:12
多谢版主！
三个“0”、“1”随机和八个卦象随机，在原理上是完全不同的，如果要忠实于周易六爻的起卦方 ...

有区别吗？

1. Sub Test()
   
2.     Dim i&, nRnd%, k%, arr&(1 To 8), brr&(1 To 8), nTotal&
   
3.     nTotal = 10 ^ 6
   
4.    
   
5.     Randomize
   
6.     For i = 1 To nTotal
   
7.         nRnd = Int(8 * Rnd) + 1
   
8.         arr(nRnd) = arr(nRnd) + 1
   
9.     Next
   
10.    
    
11.     Randomize
    
12.     For i = 1 To nTotal
    
13.         nRnd = Int(2 * Rnd) + 2 * Int(2 * Rnd) + 4 * Int(2 * Rnd) + 1
    
14.         brr(nRnd) = brr(nRnd) + 1
    
15.     Next
    
16.    
    
17.     For k = 1 To 8
    
18.         Debug.Print k & ": " & Format(arr(k) / nTotal, "0.00%") & ", " & Format(brr(k) / nTotal, "0.00%")
    
19.     Next
    
20. End Sub

复制代码

lee1892

kevin_cn306 发表于 2013-7-23 10:22
Zamyi，你好！其实用什么起卦只是周易六爻的一种手段，古人占筮用蓍草演卦，后来是以钱代蓍，其实铜钱的出 ...

要复古，一定要够古

拿乌龟壳在火上烤烤，看裂纹，分析之~~

LOL