私のブログは最低でも毎日50くらいのアクセスをいただいており、ありがたく思っています。
先日病み上がりにオラクルカードとちょっとだけエスパーをブログに載せたところ、びっくりというか興味深いのですがアクセスが30ほどに減りました。
ブログの話題に応じてこんなにもアクセス数が違うのですね。
面白い! じゃあ、今度はプログラミングを載せてみよう、です。実は今占いにパソコンを用いるプロジェクトに参加していて、周易もその中で開発中なのですが、今回載せるのはそれとはうーむ、遠いマクロです。Excelのマクロという点では同じですが...ということで、使うのはマイクロソフトのExcelです。versionは特に気にしておらず、現在流通しているExcelならなんでもいいでしょう。
使う関数はRnd関数です。これを使って、以下の式から特定の範囲の整数(lowerbound～upperbound)をランダムに生み出すことができます(とマイクロソフトの解説に書いてあります)。
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
つまりInt((64 - 1 + 1) * Rnd + 1) で1～64の整数をランダムに生むことができるのです。この場合、あらかじめRandomizeというコマンドで初期化しておく必要があります。易では64の要素がありますので、Collectionオブジェクトに64の要素を入れ込みます。以下の例ではmyColをCollectionオブジェクトとして登録しています。
更に問題があって、64の要素名のうち火雷噬嗑の嗑と、火沢睽の睽と、天風姤の姤 はユニコードの文字なのでそのままCollectionに組み込めません。ChrW関数を用いて十進法表記のユニコードを文字化する必要があります。例えば嗑なら ChrW(21969) その前の+はこれまた表記上の問題で実際にはアンパサンド & ですが、まあ+でもプログラミングは動くようです。
――――――――――――――――――――――――――
Sub Uranau()
Dim myCol As Collection
Dim Rm%
Randomize
Rm = Int((64 - 1 + 1) * Rnd + 1)
Set myCol = New Collection
'要素の追加(初期化)
With myCol
.Add "乾為天"
.Add "坤為地"
.Add "水雷屯"
.Add "山水蒙"
.Add "水天需"
.Add "天水訟"
.Add "地水師"
.Add "水地比"
.Add "風天小畜"
.Add "天沢履"
.Add "地天泰"
.Add "天地否"
.Add "天火同人"
.Add "火天大有"
.Add "地山謙"
.Add "雷地予"
.Add "沢雷隨"
.Add "山風蠱"
.Add "地沢臨"
.Add "風地観"
.Add "火雷噬" + ChrW(21969)
.Add "山火賁"
.Add "山地剥"
.Add "地雷復"
.Add "天雷无妄"
.Add "山天大畜"
.Add "山雷頤"
.Add "沢風大過"
.Add "坎為水"
.Add "離為火"
.Add "沢山咸"
.Add "雷風恒"
.Add "天山遯"
.Add "雷天大壮"
.Add "火地晋"
.Add "地火明夷"
.Add "風火家人"
.Add "火沢" + ChrW(30589)
.Add "水山蹇"
.Add "雷水解"
.Add "山沢損"
.Add "風雷益"
.Add "沢天夬"
.Add "天風" + ChrW(23012)
.Add "沢地萃"
.Add "地風升"
.Add "沢水困"
.Add "水風井"
.Add "沢火革"
.Add "火風鼎"
.Add "震為雷"
.Add "艮為山"
.Add "風山漸"
.Add "雷沢帰妹"
.Add "雷火豊"
.Add "火山旅"
.Add "巽為風"
.Add "兌為沢"
.Add "風水渙"
.Add "水沢節"
.Add "風沢中孚"
.Add "雷山小過"
.Add "水火既済"
.Add "火水未済"
End With
' MsgBox myCol(Rm)
Range("A1").Value = myCol(Rm)
End Sub
――――――――――――――――――――――――――
' MsgBox myCol(Rm)として、メッセージボックスによる表記をあきめ(MsgBoxはユニコードと相性が悪い)A1セルに占いの答えが出るようにしてあります。1～6爻については上記を少し手直しすることにより簡単に導入可能でしょう。
上のプログラミングでは、周易の外卦、内卦とかを全く無視しているとお叱りの方もいらっしゃるでしょう。それならば上のプログラミングは易カードをめくるのを自動化したものとお考えください。
易カード64枚のうち１枚を開くのと遜色ないことがおわかりいただけると思います。参考までに、私が開発中の周易マクロはこんな感じです。
――――――――――――――――――――――――――
よだっちのスピリチュアル記録やよだっちの食べログも適宜更新中です。よろしかったら、ご覧下さい。
出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHPをご覧下さい。YouTubeでも画像を公開しています)、こもれびヒーリングで出店します。→詳細はこちら。
12月7日(日) 10:30～16:30 白岡駅から徒歩6分のカフェオランジェルさんで「こもれびフェスタ」。原則、毎月第１日曜日に開催です。チラシを見るにはここをクリックしてください。
12月20日(土) 10:30～16:30 白岡駅から徒歩6分のカフェオランジェルさんで 「癒しフェスタ＆パン祭り」。原則、毎月第３土曜日に開催です。セラピストが未定のためまだチラシは造られてません。