- 99 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 02:01:51.64 ]
- ガチ初心者です。考えすぎて頭が爆発しそうです。
麻雀のシミュレーションソフトを作ろうと試行錯誤しています。
Dim hai(135) As String
hai(0) = "萬1"
hai(1) = "萬1"
hai(2) = "萬1"
hai(3) = "萬1"
hai(4) = "萬2"
・・略・・
hai(135) = "中"
というような配列を作っています。
手牌はDim tehai1, tehai2, tehai3, tehai4, tehai5, tehai6, tehai7, tehai8, tehai9, tehai10, tehai11, tehai12, tehai13 As Stringという風においてあります。
この136個の中からランダムに手牌に13個持ってきてなおかつ1種類の牌につき4つまでしかでないという様に設定するにはどうすれば良いでしょうか。
最終的にtehai1に持ってきた牌を設置してあるボタンtehaib1にテキスト状態で表示させたいです。
Randomize（）を使うのでしょうか？
|
 |
