Dim card(52), keta(10), yaku(5), z, tokuten, start_flag
Private Sub CommandButton1_Click()
start_flag = 0
TextBox1 = "カードを切っています"
y = 1
Do While y < 10
Rem y<52
x = Int(Rnd() * 52 + 1)
flag = 0
For z = 1 To 10
Rem z<52
If card(z) = x Then flag = 1
Next z
If flag = 0 Then
card(y) = x
y = y + 1
End If
Loop
For y = 1 To 52
Cells(y, 1) = card(y)
Next y
For y = 1 To 52
If card(y) > 13 And card(y) <= 26 Then card(y) = card(y) + 100 - 13
If card(y) > 26 And card(y) <= 39 Then card(y) = card(y) + 200 - 26
If card(y) > 39 And card(y) <= 52 Then card(y) = card(y) + 300 - 39
Cells(y, 2) = card(y)
Next y
Image54.Picture = Image53.Picture
Image55.Picture = Image53.Picture
Image56.Picture = Image53.Picture
Image57.Picture = Image53.Picture
Image58.Picture = Image53.Picture
TextBox1 = "ゲームができます"
start_flag = 1
End Sub
Private Sub card_hai()
If z = 1 Then Image59.Picture = Image1.Picture
If z = 2 Then Image59.Picture = Image2.Picture
If z = 3 Then Image59.Picture = Image3.Picture
If z = 4 Then Image59.Picture = Image4.Picture
If z = 5 Then Image59.Picture = Image5.Picture
If z = 6 Then Image59.Picture = Image6.Picture
If z = 7 Then Image59.Picture = Image7.Picture
If z = 8 Then Image59.Picture = Image8.Picture
If z = 9 Then Image59.Picture = Image9.Picture
If z = 10 Then Image59.Picture = Image10.Picture
If z = 11 Then Image59.Picture = Image11.Picture
If z = 12 Then Image59.Picture = Image12.Picture
If z = 13 Then Image59.Picture = Image13.Picture
If z = 101 Then Image59.Picture = Image14.Picture
If z = 102 Then Image59.Picture = Image15.Picture
If z = 103 Then Image59.Picture = Image16.Picture
If z = 104 Then Image59.Picture = Image17.Picture
If z = 105 Then Image59.Picture = Image18.Picture
If z = 106 Then Image59.Picture = Image19.Picture
If z = 107 Then Image59.Picture = Image20.Picture
If z = 108 Then Image59.Picture = Image21.Picture
If z = 109 Then Image59.Picture = Image22.Picture
If z = 110 Then Image59.Picture = Image23.Picture
If z = 111 Then Image59.Picture = Image24.Picture
If z = 112 Then Image59.Picture = Image25.Picture
If z = 113 Then Image59.Picture = Image26.Picture
If z = 201 Then Image59.Picture = Image27.Picture
If z = 202 Then Image59.Picture = Image28.Picture
If z = 203 Then Image59.Picture = Image29.Picture
If z = 204 Then Image59.Picture = Image30.Picture
If z = 205 Then Image59.Picture = Image31.Picture
If z = 206 Then Image59.Picture = Image32.Picture
If z = 207 Then Image59.Picture = Image33.Picture
If z = 208 Then Image59.Picture = Image34.Picture
If z = 209 Then Image59.Picture = Image35.Picture
If z = 210 Then Image59.Picture = Image36.Picture
If z = 211 Then Image59.Picture = Image37.Picture
If z = 212 Then Image59.Picture = Image38.Picture
If z = 213 Then Image59.Picture = Image39.Picture
If z = 301 Then Image59.Picture = Image40.Picture
If z = 302 Then Image59.Picture = Image41.Picture
If z = 303 Then Image59.Picture = Image42.Picture
If z = 304 Then Image59.Picture = Image43.Picture
If z = 305 Then Image59.Picture = Image44.Picture
If z = 306 Then Image59.Picture = Image45.Picture
If z = 307 Then Image59.Picture = Image46.Picture
If z = 308 Then Image59.Picture = Image47.Picture
If z = 309 Then Image59.Picture = Image48.Picture
If z = 310 Then Image59.Picture = Image49.Picture
If z = 311 Then Image59.Picture = Image50.Picture
If z = 312 Then Image59.Picture = Image51.Picture
If z = 313 Then Image59.Picture = Image52.Picture
End Sub
Private Sub disp()
z = card(1)
Call card_hai
Image54.Picture = Image59.Picture
z = card(2)
Call card_hai
Image55.Picture = Image59.Picture
z = card(3)
Call card_hai
Image56.Picture = Image59.Picture
z = card(4)
Call card_hai
Image57.Picture = Image59.Picture
z = card(5)
Call card_hai
Image58.Picture = Image59.Picture
End Sub
Private Sub CommandButton2_Click()
If start_flag = 1 Then
TextBox1 = ""
Call disp
start_flag = 2
End If
End Sub
Private Sub CommandButton3_Click()
If start_flag = 2 Then
TextBox1 = "ブタです"
x = 6
If CheckBox1 = False Then
card(1) = card(x)
x = x + 1
End If
If CheckBox2 = False Then
card(2) = card(x)
x = x + 1
End If
If CheckBox3 = False Then
card(3) = card(x)
x = x + 1
End If
If CheckBox4 = False Then
card(4) = card(x)
x = x + 1
End If
If CheckBox5 = False Then
card(5) = card(x)
End If
Call disp
Rem 役解析
Rem フラッシュ
clab = 0
daiya = 0
harto = 0
supedo = 0
flash = 0
For x = 1 To 5
If card(x) > 0 And card(x) <= 13 Then clab = clab + 1
If card(x) > 100 And card(x) <= 113 Then daiya = daiya + 1
If card(x) > 200 And card(x) <= 213 Then harto = harto + 1
If card(x) > 300 And card(x) <= 313 Then supedo = supedo + 1
Next x
If clab = 5 Then
TextBox1 = "クラブのフラッシュ"
flash = 1
tokuten = tokuten + 509
End If
If daiya = 5 Then
TextBox1 = "ダイヤのフラッシュ"
flash = 1
tokuten = tokuten + 509
End If
If hart = 5 Then
TextBox1 = "ハートのフラッシュ"
flash = 1
tokuten = tokuten + 509
End If
If supedo = 5 Then
TextBox1 = "スペードのフラッシュ"
flash = 1
tokuten = tokuten + 509
End If
Rem ペアー
For x = 6 To 10
keta(x) = 0
Next x
For x = 1 To 5
y = card(x)
Cells(x, 3) = y
If card(x) > 100 Then y = card(x) - 100
If card(x) > 200 Then y = card(x) - 200
If card(x) > 300 Then y = card(x) - 300
Cells(x, 4) = y
keta(x) = y
Next x
For x = 1 To 5
yaku(x) = 0
For w = 1 To 5
If keta(x) = keta(w) Then yaku(x) = yaku(x) + 1
Next w
Cells(x, 5) = yaku(x)
Next x
twopai = 0
threepai = 0
For x = 1 To 5
If yaku(x) = 2 Then twopai = twopai + 1
If yaku(x) = 3 Then threepai = 1
If yaku(x) = 4 Then
TextBox1 = "フォーカード"
tokuten = tokuten + 4165
End If
Next x
If twopai = 2 Then
TextBox1 = "ワンペーア"
tokuten = tokuten + 3
End If
If twopai = 4 Then
TextBox1 = "ツーペーア"
tokuten = tokuten + 21
End If
If threepai = 1 Then
TextBox1 = "スリーカード"
tokuten = tokuten + 47
End If
If twopai = 2 And threepai = 1 Then
TextBox1 = "フルハウス"
tokuten = tokuten + 694
End If
Rem ストレート
For x = 1 To 5
For y = 1 To 5
If keta(x) < keta(y) Then
oitoku = keta(x)
keta(x) = keta(y)
keta(y) = oitoku
End If
Next y
Next x
For x = 1 To 5
Cells(x, 6) = keta(x)
Next x
If keta(1) = 1 Then
For x = 1 To 5
If keta(x) = x Then
keta(x + 5) = keta(x) + 13
Cells(x + 5, 7) = keta(x) + 13
End If
Next x
End If
flag = 0
For x = 1 To 9
If keta(x) = keta(x + 1) - 1 Then flag = flag + 1
Next x
If flag >= 4 Then
TextBox1 = " ストレート"
tokuten = tokuten + 255
If flash = 1 Then
tokuten = tokuten + 72193 - 255
TextBox1 = " ストレート"
End if
End If
If flash = 1 And flag >= 4 And keta(1) = 1 And keta(5) = 13 Then
TextBox1 = "ローヤルストレートフラッシュ"
tokuten = tokuten + 649740
End If
TextBox2 = tokuten
start_flag = 3
End If
End Sub
Private Sub CommandButton4_Click()
card(1) = 1
card(2) = 11
card(3) = 12
card(4) = 13
card(5) = 2
End Sub
|
配列宣言
コマンドボタン１を押した場合のプログラム【ゲーム開始】
カード配布の秩序を制御する変数０
テキストボックス1に表示
５２枚をだぶらないように配布
y = 1
y < 52に成るまでＬＯＯＰの間を繰り返す 本来は52であるが
トラブルを起こすため10とした
Rnd() ０から０．９９９の乱数
Rnd() * 52 ０から５１．９９の乱数
Int(Rnd() * 52 + 1)
１から５２までの乱数
旗変数を０とする
ｚを１から５２まで繰り返す
トラブルを起こすため10とした
card(z)の中に発生させた乱数と同じ数が含まれていたら旗を１とする
５２回繰り返す【今は10】
旗が０の場合、すなわち発生した乱数と配列５２card(z)の中に保存されている数と異なっている場合
配列card(z)に乱数を保存する
ｌｏｏｐ数ｙを１増加させる
If flag = 0 Thenの終了
Do While y < 52の終了
結果をセルＡ列に表示
１から５２まで繰り返す
セルＡ列にカードを入れる
繰り返し終了
１から５２のカードをわかりやすく
１−１３ １０１−１１３ ２０１−２１３ ３０１−３１３に変更
１３以下はクラブ
card(y) > 13の場合card(y)に１００を足し１３を引く たとえば １４の場合１０１となる。ダイヤとする
card(y) > ２６の場合card(y)に２００を足し２６を引く たとえば ２７の場合２０２となる。ハートとする
card(y) > ３９の場合card(y)に３００を足し３９を引く たとえば ４１の場合３０３となる。スペードとする
セルＢ列に表示し確認する
５２の繰り返し終了
ﾃｷｽﾄﾎﾞｯｸｽ１を消す
５枚のトランプをイメージ53裏のカードとする
テキストボックス１に表示
ここが通過したトランプを切ったことになるその準備が完了したのでstart_flag = 1とした
コマンドボタン１を押した場合プログラム
終了
カード補助表示ルーチン
５枚のカードをうまく表示するため一旦、イメージ５９に保存する
ｚ＝１の時、Image59.Pictureにクラブの１を置く
ｚ＝２の時、Image59.Pictureにクラブの２を置く
ｚ＝１３の時、Image59.Pictureにクラブのキングを置く
ｚ＝１０１の時、Image59.Pictureにダイヤの１を置く
ｚ＝１１３の時、Image59.Pictureにダイヤのキングを置く
ｚ＝２０１の時、Image59.Pictureにハートの１を置く
ｚ＝２１２の時、Image59.Pictureにハートのクイーンを置く
ｚ＝３０３の時、Image59.Pictureにスペードの３を置く
ｚ＝３１１の時、Image59.Pictureにスペードのジャックを置く
トランプ補助表示ルーチン終わり
カード表示ルーチン
５枚のカードを表示する
zに配列の１番目を入れ
カード補助表示ルーチンを呼ぶ
カード補助表示ルーチンで設定された
Image59.Pictureを右上１枚目のカードとして表示する
zに配列の２番目を入れ
カード補助表示ルーチンを呼ぶ
カード補助表示ルーチンで設定された
Image59.Pictureを右上２枚目のカードとして表示する
zに配列の３番目を入れ
カード補助表示ルーチンを呼ぶ
カード補助表示ルーチンで設定された
Image59.Pictureを右上３枚目のカードとして表示する
zに配列の４番目を入れ
カード補助表示ルーチンを呼ぶ
カード補助表示ルーチンで設定された
Image59.Pictureを右上４枚目のカードとして表示する
zに配列の５番目を入れ
カード補助表示ルーチンを呼ぶ
カード補助表示ルーチンで設定された
Image59.Pictureを最後の５枚目のカードとして表示する
カード表示ルーチン終了
コマンドボタン２を押した場合のプログラム【カード配布】
start_flag = 0のときは実行されないすなわちまだカードが配布されていない
テキストボックス１の表示を消す
カード表示ルーチンを呼ぶ
start_flag = 2としてトランプヲ表示したことを告げる
コマンドボタン２を押した場合の
プログラム【カード配布】終了
コマンドボタン３を押した場合のプログラム【カード交換】
トランプが表示されたならばstart_flag = 2になっているので
次を実行
テキストボックス1にブダを入れておく【下記の実行速度が速いため表示が見えない】役がなかった場合
ブタが最後に見える
x = 6
チェックボク１にチェックが付いていない場合［カード交換となる］
card(６) 配列６番目を１枚目とする
x = ７
If CheckBox1 = False Then終わり
チェックボク２にチェックが付いていない場合［カード交換となる］
card(７) 配列７番目を２枚目とする
x = ８
If CheckBox２ = False Then終わり
チェックボク３にチェックが付いていない場合［カード交換となる］
card(８) 配列８番目を３枚目とする
x = ９
If CheckBox３ = False Then終わり
チェックボク４にチェックが付いていない場合［カード交換となる］
card(９) 配列９番目を４枚目とする
x = １０
If CheckBox４ = False Then終わり
チェックボク４にチェックが付いていない場合［カード交換となる］
card(１０) 配列１０番目を５枚目とする
If CheckBox４ = False Then終わり
x = x + 1とした理由は ２回以上カードを交換できるように臨機応変にした。今回は１回だけ交換なので特に意味がなくｘ＝９と書いても同じ
カード表示ルーチンを呼び交換したカードを表示する。
Rem 実行しないコメント
役解析
フラッシュの処理
色が同じか判断する
変数クラブ、ダイヤ、ハート、スペードを０とする
変数フラッシュを０とする
ｘを１から５まで繰り返す
card(x)が０より大きく１３以下の場合
クラブなので変数クラブを１増加する。
card(x)が１００より大きく１１３以下の場合ダイヤなので変数ダイヤを１増加する。
card(x)が２００より大きく２１３以下の場合ハートなので変数ハートを１増加する。
card(x)が３００より大きく３１３以下の場合クラブなので変数クラブを１増加する。
ｘを１から５まで繰り返し終了
もし変数クラブが５になっている場合５枚ともクラブとの判断でフラッシュとなる
ﾃｷｽﾄﾎﾞｯｸｽ１にクラブのフラッシュと表示する
変数フラッシュを１とする。後でストレートとこの変数を比較しストレートフラッシュか判断するため
フラッシュの確率は５０９のため得点に５０９を増加させる。
If clab = 5 Thenの終了
もし変数ダイヤが５になっている場合５枚ともダイヤとの判断でフラッシュとなる
ﾃｷｽﾄﾎﾞｯｸｽ１にダイヤのフラッシュと表示する
変数フラッシュを１とする。後でストレートとこの変数を比較しストレートフラッシュか判断するため
フラッシュの確率は５０９のため得点に５０９を増加させる。
If daiya = 5 Thenの終了
もし変数ハートが５になっている場合５枚ともハートとの判断でフラッシュとなる
ﾃｷｽﾄﾎﾞｯｸｽ１にハートのフラッシュと表示する
変数フラッシュを１とする。後でストレートとこの変数を比較しストレートフラッシュか判断するため
フラッシュの確率は５０９のため得点に５０９を増加させる。
If hart = 5 Then の終了
もし変数スペードが５になっている場合５枚ともクラブとの判断でフラッシュとなる
ﾃｷｽﾄﾎﾞｯｸｽ１にスペードのフラッシュと表示する
変数フラッシュを１とする。後でストレートとこの変数を比較しストレートフラッシュか判断するため
フラッシュの確率は５０９のため得点に５０９を増加させる。
If supedo = 5 Thenの終了
コメント ペアー
keta(x)のxは1から5までは毎回代入されるが6から10は前のものが残るので0に初期化する
５枚のカードを順次読む
xが１から５まで繰り返す
ｙに順次５枚のカードを入れていく
確認すすためセルＣ列に表示する
ペアーの確認をするため
下一桁にする
１００より大きい場合１００を引く
２００より大きい場合２００を引く
３００より大きい場合３００を引く
確認すすためセルＤ列に表示する
この５枚を配列keta(x)に代入し
解析に使う
For x = 1 To 5繰り返しの終了
解析開始
同じカードがないか判断する
xが１から５まで繰り返す
５個の配列yaku(x)を０にする
ｗが１から５まで繰り返す
同じカードが有ればyaku(x)を１増加する
※ア欄外に解説あり
For ｗ = 1 To 5繰り返しの終了
確認すすためセルＥ列に表示する
For x = 1 To 5繰り返しの終了
ツーペアー変数を０に
スリカード変数を０に
For x = 1 To 5繰り返し
yaku(x)が２の場合同じカードが２枚有ったのでツーペアー変数を１増加
yaku(x)が３の場合同じカードが３枚有ったのでスリカード変数を１にして通知
yaku(x)が４の場合同じカードが４枚有ったのでﾃｷｽﾄﾎﾞｯｸｽ１にフォーカードを表示
フォーカードなので得点に４１６５点を足す
If yaku(x) = 4 Then終了
For x = 1 To 5繰り返し終了
ツーペアー変数が２の場合
ﾃｷｽﾄﾎﾞｯｸｽ１にワンペーアを表示
ワンペーアなので得点に３点を足す
If twopai = 2 Thenの終了
ツーペアー変数が４の場合
ﾃｷｽﾄﾎﾞｯｸｽ１にツーペーアを表示
ツーペーアなので得点に２１点を足す
If twopai =４ Thenの終了
スリカード変数が１の場合
ﾃｷｽﾄﾎﾞｯｸｽ１にスリーカードを表示
スリーカードなので得点に４７点を足す
If threepai = 1 Thenの終了
ツーペアー変数が２でかつスリカード変数が１の場合
ﾃｷｽﾄﾎﾞｯｸｽ１にフルハウスを表示
フルハウスなので得点に６９４点を足す
If twopai = 2 And threepai = 1 Then終了
コメント ストレート
小さい順に並び替えをする
For x = 1 To 5繰り返し
For ｙ = 1 To 5繰り返し
小さいか比較
オイトク変数に小さいカードを入れる
大き方に小さいものを代入
小さい方にオイトク変数を代入
比較終了
For ｙ = 1 To 5繰り返し
For x = 1 To 5繰り返し
結果をセルで確認
For x = 1 To 5繰り返し
セルＦ列に並び替えたものを表示
For x = 1 To 5繰り返し終了
ストレート１がある場合の処理
最初に１がある場合
セル６行目に１４として収納
繰り返すことにより
次の２はセル７行目に１５として収納
旗変数を０とする
１がある場合５枚ではなく追加された４枚も見るため９回繰り返す
今のカードと次のカードが連番になっている場合旗変数を１増加する
繰り返し終了
旗変数が４以上の場合はストレートとなる
ﾃｷｽﾄﾎﾞｯｸｽ１に表示する
得点を２５５点増加させる
役としてすでにフラッシュがある場合
得点に７２１９３−２５５を増加させる
ストレートフラッシュ処理終了
ストレートフラッシュで最初１になっていて５番目が１３の時
ﾃｷｽﾄﾎﾞｯｸｽ１にローヤルストレートフラッシュと表示する
得点に６４９７４０点を増加する
得点をテキストボックス2に表示
ここが通過したらstart_flag = 3にして証拠を残す
ローヤルストレートフラッシュ終了
コマンドボタン3の終了
カード交換および役の解析終了
確認ルーチン 好きな数を入れる
４枚目のカードをクラブの１２にしてみる
5枚目のカードをスペードのキングにしてみる
終
|
