ポーカーゲーム
１年 組 番
＿＿＿＿
５２枚のカードを作成
Rnd * 13 * 4
↑０．０・・～５１．９・・までの数値を発生させて
Int(
nc1 =
)
↑整数部分を取り出す（０～５１）
↑それをｎｃ１に代入する
nc1 = Int(Rnd * 13 * 4)
１～１３までのカードに変換
Cells(7, i) / 4
↑(７，ｉ)に入っている値（０～５１）を４で割る
（=0,0.25,0.5,0.75,・・・,12.5,12.75)
+1
１を足す（=1,1.25,1.5,1.75,・・・,13.5,13.75)↑
Int(
)
整数化する(=1,1,1,1,・・・,13,13)↑
Cells(3, i) =
↑それを（３，ｉ）に代入する
Cells(3, i) = Int(Cells(7, i) / 4 + 1)
４種類のマークをつける
• さっき作った０～５１までのカードを４で割る
•
（0.0,0.25,0.5,0.75,1.0,1.25・・・）
• 小数点以下が
• .0 → スペード
• .25 → ハート
• .5 → クローバー
• .75 → ダイヤ
に変換すると４種類のマークがつけれる
ポーカーゲームのルール
•
•
•
•
同じ数字が２枚そろえば｢ワンペア｣
ペアが２つあれば｢ツーペア｣
同じ数字が３枚あれば｢スリーカード｣
１２３４５のように階段になっていれば｢スト
レート｣
• 全部同じマークなら｢フラッシュ｣
• ワンペアとスリーカードが同時に起きれば
｢フルハウス｣
ポーカーゲームのルール２
• ストレートとフラッシュが同時に起きれば
｢ストレートフラッシュ｣
• 同じ数字が４枚あれば｢フォーカード」
• 全部スペード かつ １，１０，１１，１２，１３
なら｢ロイヤルストレートフラッシュ｣
• ※下に行くほど強い役になります。
ゲーム開始!
• 実際にゲームを体験してみよう!
• 強い役はなかなか出ません!
START

festival - 南海放送