VBでのカードゲーム作成

質問

VB.netを使ったプログラムについての質問です。

某トランプゲームをみて私もつくろうと思い立ったのですが、分からない点が見つかったのでご教示願いたいです。
ソリューションエクスプローラー内にResourcesという
ファイルを作りカードの画像をジョーカー含め53枚入れました。（関係ないのかは不明です。）
手札ということで、カード53枚の中からランダム5枚入手するためにはどういった処理をすればいいのでしょうか？
配列に入れるにしてもどのように扱ったらいいかわからないですし、「山札から手札を配る」のようなアニメーションを加えるにもどうしたらいいかわからないです。
コード丸ごとでなくても「この書籍を見ればいい」「このサイトを見ればいい」などお教え頂く形でも構いません。一応ネットで調べたり、"逆引き大全"などは見たのですがわかりません。
作るものとしては、ポーカーをつくろうと思っています。役の判定アルゴリズムはできているのですが、そのほかがわからないので、お願いします。

□□□□□
□□
□□□□□
とありますが
中段右端を山札とした時、そこから手札配布といったアニメーションができるか、をお教えいただきたいです。
ですがあくまでメインは”乱数発生させて、ランダムで手札を作れるかどうか”です

回答No.2

anmochi · ベストアンサー

なるほど。だがしかしそれこそSystem.Drawing.Bitmapをリストかマップで保持しとけば良いのではないかな。当方シーシャーパーなのでVB風の書き方がこれであってるのかは不明。

・リスト（と言うかこれは配列だね）
Dim bmps As New System.Drawing.Bitmap()
bmps(0) = <ジョーカーの絵札の画像>
bmps(1) = <スペードのAの絵札の画像>
...
bmps(52) = <ダイヤのKの絵札の画像>

Dim hoge As Bitmap = bmps(1)

・マップ
Dim table As New System.Collections.Generic.Dictionary(Of Integer, System.Drawing.Bitmap)
table.Add(0, <ジョーカーの絵札の画像>)
table.Add(1, <スペードのAの絵札の画像>)
...
table.Add(52, <ダイヤのKの絵札の画像>)

Dim hoge As Bitmap = table(1)

どちらも登録後は配列から値を引っ張ってくるように使える。

結局、ここは「5がスペードの5を意味する」というアルゴリズム上の意味づけと、5という数値から絵柄を引っ張ってくるためにどうデータを持たせるかっちゅう事になるんじゃないかね。マップにしておくと、52枚のカード表絵とは別に-1とかそういう値をキーに裏絵のイメージも保持できるのでマップの方が良いかもね。

あなたのプログラムの中で14がハートのAを意味し、table(14)がハートのAの表柄の絵を意味するようになれば良いわけだ。

で、本題に戻ってランダムの方は0～52がカードを意味するんだから、普通にSystem.Random#Next(52)すればランダムが取れる。
さらに、
Dim yamafudas As Boolean(52)
で、「Falseが山札に臥せっている状態」で「Trueが山札以外の場所にある」というような意味づけでも良いし、
□□□□□　←相手の手札の１２３４５を11 12 13 14 15と定義
□□　←山札の右が山札でそれを1、（左は何？　とりあえず2で）
□□□□□　←自分の手札の１２３４５を21 22 23 24 25と定義
という風に場の各スロットにIDをつけて、
Dim cards As Integer(52)
として、cards(1) = 1とするとスペードのAは山札にある、cards(1) = 22として自分の手札の２番目にあるという風にするとか、とにかく「山札の中に何のカードが残っているか」が管理できるようになれば0～52でランダムに選ばれたカードがもう引かれているか山札の中にあるかが分かるので重複してカードが引かれないというところを実現できる。

オブジェクト指向風に考えるとカードクラスがあったりスロット（カードが置かれている場所）クラスがあったり場をあらわすクラスがあったりして、カードクラスにはBitmapがあってスロットクラスには今入っているカードが設定できたりして場クラスにはスロットがいくつか入っているのだろうね。

お礼

回答ありがとうございました！今日一日かけて自分なりに答えは見つけましたが、それは別としても大変参考となる回答でした。
また疑問点が見つかったので、それはまた別の機会に質問するとして、
今回はありがとうございました！
またつまづいたとき参考にさせていただきます

回答No.1

anmochi

> 手札ということで、カード53枚の中からランダム5枚入手するためにはどういった処理をすればいいのでしょうか？
とりあえずマルチメディア的な話（アニメーションとか）は置いておいて、トランプのカードをプログラム内で表現する方法を考えてみよう。まず、カードに連番を振っていこう。

0：ジョーカー
1：スペードのA
2：スペードの2
3：スペードの3
4：スペードの4
5：スペードの5
6：スペードの6
7：スペードの7
8：スペードの8
9：スペードの9
10：スペードの10
11：スペードのJ
12：スペードのQ
13：スペードのK
14：ハートのA
15：ハートの2
16：ハートの3
17：ハートの4
18：ハートの5
19：ハートの6
20：ハートの7
21：ハートの8
22：ハートの9
23：ハートの10
24：ハートのJ
25：ハートのQ
26：ハートのK
27：クローバーのA
28：クローバーの2
29：クローバーの3
30：クローバーの4
31：クローバーの5
32：クローバーの6
33：クローバーの7
34：クローバーの8
35：クローバーの9
36：クローバーの10
37：クローバーのJ
38：クローバーのQ
39：クローバーのK
40：ダイヤのA
41：ダイヤの2
42：ダイヤの3
43：ダイヤの4
44：ダイヤの5
45：ダイヤの6
46：ダイヤの7
47：ダイヤの8
48：ダイヤの9
49：ダイヤの10
50：ダイヤのJ
51：ダイヤのQ
52：ダイヤのK

こう定義しておくと、このなかからランダムに5枚選ぶのは乱数で普通に0～52のユニークな5個の数値を取ればよい。

で、次に先ほど定義した連番からカードを特定する方法だが、0だとジョーカーだし、1以上だと普通のカードになる。
1以上の場合にマークと番号を特定してみよう。マークは、番号をn As Integerとすると、(n - 1) Mod 13した時に0がA、1が2、2が3、～、10がJで11がQで12がKになる。次に(n - 1) / 13を切り捨てたものが0＝スペード、1＝ハート、2＝クローバー、3＝ダイヤだね。

で、こうすると何がうれしいかと言うと、カードを全部Integer 1つで表現できるようになる。
□□□□□
□□
□□□□□
のところで、
[1][3][7][10][32]
□□
[14][15][16][17][18]
とすると、相手はブタでこっちはハートのストレートフラッシュだね。Integer変数や配列を必要なだけ作ればゲームテーブルも簡単に表現できる。ユーザーインタフェースは別として。

とりあえずゲームのデータ構造が出来たので、後はアルゴリズムとアニメーションだね。がんばって！

お礼

ありがとうございます。とても丁寧に教えていただいて嬉しかったです。

補足

丁寧に教えていただいたのに申し訳ないのですが、そこは知っているところでした。
私の説明不足で申し訳ありません。
私が知りたいところは、その連番とカードの画像をどうリンクさせるか、です。
申し訳ございませんでした、そしてありがとうございました！