Dim a, b, c, d, e, f, x, y, kane, kake, flag, aa, bb, cc, dd, ee, ff
Private Sub CommandButton1_Click()
kane = 1000
kake = 100
TextBox8 = kane
TextBox9 = kake
End Sub
Private Sub CommandButton2_Click()
a = Int(Rnd() * 13 + 1)
b = Int(Rnd() * 13 + 1)
c = Int(Rnd() * 13 + 1)
d = Int(Rnd() * 13 + 1)
e = Int(Rnd() * 13 + 1)
f = Int(Rnd() * 13 + 1)
aa = a
bb = b
cc = c
dd = d
ee = e
ff = f
If a > 9 Then aa = 0
If b > 9 Then bb = 0
If c > 9 Then cc = 0
If d > 9 Then dd = 0
If e > 9 Then ee = 0
If f > 9 Then ff = 0
x = 0
y = 0
TextBox1 = a
TextBox2 = b
TextBox3 = "???"
TextBox4 = "???"
TextBox5 = e
TextBox6 = "???"
flag = 1
kake = TextBox9
End Sub
Private Sub CommandButton3_Click()
If flag = 1 Then
TextBox1 = a
TextBox2 = b
TextBox3 = "カードはいらない"
TextBox4 = d
TextBox5 = e
x = aa + bb
y = dd + ee
If x > 9 Then x = x - 10
If y > 9 Then y = y - 10
If y < 6 Then
TextBox6 = f
y = y + ff
If y > 9 Then y = y - 10
End If
If x > y Then
TextBox7 = "あなたの勝ち"
kane = kane + kake
End If
If x < y Then
TextBox7 = "あなたの負け"
kane = kane - kake
End If
If x = y Then TextBox7 = "引き分け"
TextBox8 = kane
TextBox9 = kake
flag = 0
End If
End Sub
Private Sub CommandButton4_Click()
If flag = 1 Then
TextBox1 = a
TextBox2 = b
TextBox3 = c
TextBox4 = d
TextBox5 = e
x = aa + bb + cc
y = dd + ee
If x > 9 Then x = x - 10
If x > 9 Then x = x - 10
If y > 9 Then y = y - 10
If y < 6 Then
TextBox6 = f
y = y + ff
If y > 9 Then y = y - 10
End If
If x > y Then
TextBox7 = "あなたの勝ち"
kane = kane + kake
End If
If x < y Then
TextBox7 = "あなたの負け"
kane = kane - kake
End If
If x = y Then TextBox7 = "引き分け"
TextBox8 = kane
TextBox9 = kake
flag = 0
End If
End Sub
|
共通で使用する変数を定義
コマンドボタン１を押したとき
持ち金１０００とする
掛け金１００とする
テキストボックス８に持ち金
テキストボックス９に掛け金表示
コマンドボタン２を押したとき
【カードの配布】
aに乱数１から１３を代入
ｂに乱数１から１３を代入
ｃに乱数１から１３を代入
ｄに乱数１から１３を代入
ｅに乱数１から１３を代入
fに乱数１から１３を代入
aaとａを同じにする
aaで10以上の��������を0とするため
同様に
ｂｂ ｃｃ ｄｄ ｅｅ ffをfのように同じにする。
もし aの値が9より大きければａａを０とする
もし bの値が9より大きければｂｂを０とする
もし ｃの値が9より大きければｃｃを０とする
もし ｄの値が9より大きければ０とする
もし ｅの値が9より大きければ０とする
もし ｆの値が9より大きければ０とする
Ｘ＝０ 人間のカードの合計初期化
ｙ＝０ コンピュータのカードの合計初期化
テキストボックスに人間の１枚目と２枚目のカードを表示
コンピュータの１枚目のカードを表示
通過フラッグを１とする 次に進めるように
テキストボックス９の値を掛け金に入れる
コマンドボタン２終了
コマンドボタン３を押したとき
【３枚目カードが不要なとき】
通過フラッグが１の時だけ実行
テキストボックスに人間の１枚目と２枚目のカードを表示
コンピュータの１枚目と２枚目のカードを表示
Ｘ 人間のカードの合計を計算
ｙ コンピュータのカードの合計計算
Ｘ 合計値が１０を超えた場合１０を引く
Ｙ 合計値が１０を超えた場合１０を引く
Ｙの値が６以下の時
コンピュータの３枚目のカードを表示
ｙ コンピュータのカードの合計に３枚目を足す
Ｙ 合計値が１０を超えた場合１０を引く
勝ち負けの判断
勝った場合 テキストボックス７に表示
得点に賭点を足す
負けた場合 テキストボックス７に表示
得点に賭点を引く
引き分け表示
テキストボックスに得点表示
テキストボックスに賭点表示
通過フラッグを初期化
コマンドボタン３の終了
コマンドボタン４を押したとき
【３枚目カードが不要なとき】
通過フラッグが１の時だけ実行
テキストボックスに人間の１枚目と２枚目のカードを表示
コンピュータの１枚目と２枚目のカードを表示
Ｘ 人間のカードの合計を計算
ｙ コンピュータのカードの合計計算
Ｘ 合計値が１０を超えた場合１０を引く
Ｙ 合計値が１０を超えた場合１０を引く
Ｙの値が６以下の時
コンピュータの３枚目のカードを表示
ｙ コンピュータのカードの合計に３枚目を足す
Ｙ 合計値が１０を超えた場合１０を引く
勝ち負けの判断
勝った場合 テキストボックス７に表示
得点に賭点を足す
負けた場合 テキストボックス７に表示
得点に賭点を引く
引き分け表示
テキストボックスに得点表示
テキストボックスに賭点表示
通過フラッグを初期化
コマンドボタン３の終了
|
