VBA

VBAメモ:BJ最低限の完成、アルファ版0.9くらい

VBA

出来た出来た。 これで大学の単位であれば「可」は間違いなくもらえるはずである。ちゃんとBJ VS 21の場合、BJが勝つようになってるし、プレイヤーのBJ勝利は2.5倍と表示されるし基本的な仕様はこれで全部か。(あとはカードが2デッキ以上という問題がある)…

VBAメモ:ディーラーの3枚目以降

VBA

正直、こんなに長くなるとは思わなかった。次からファイル名を変える。巷ではこういう時Gitというのを使うらしいが、チラと見たら難解な説明文でもう発狂しそうになった。 Sub BlackJack()Dim card(52) As IntegerDim i As IntegerDim j As IntegerDim temp …

VBAメモ:ブラックジャックでプレイヤーの3枚目以降

VBA

↑ちゃんとエースが1で判定されている ここに来て急にブラックジャックらしくなってきた。今回はテキストベースであるが、もし画像に置き換えればもうモノホンの雰囲気だ。ちょっと自分を褒めたくなった。配列の検索で関数を使ってないのが妙である。 なお、…

VBAメモ:ブラックジャックでディーラーが1枚引くまで

VBA

時間かかって仕方ない。暫定でエースを11にしてしまっているが、バーストしそうなときにエースから10をマイナスするのが厄介だ。 Sub BlackJack()Dim card(52) As IntegerDim i As IntegerDim j As IntegerDim temp As IntegerDim player(7) As IntegerDim d…

VBAメモ:ブラックジャックでプレイヤーが2枚引くまで

VBA

動作確認済み Sub BlackJack()Dim card(52) As IntegerDim i As IntegerDim j As IntegerDim temp As IntegerDim player(7) As IntegerDim dealer(7) As IntegerDim playertotal As IntegerDim dealertotal As Integertotal = 0'トランプの生成、1デッキ52枚…

VBAメモ:1デッキカード(トランプ)の生成とシャッフル

VBA

こんなことすらWeb上にまともな資料がなく、「どうなってんだ?」と何回口にしたかわからない。こんな簡単なことはいちいち説明するまでもないと言うことなのだろうか? いや、一応あるにはあるのだが変数の命名が意味不明な上にコメントが皆無なので何をや…

VBAメモ:とにかくサイコロを振りたい、すぐ振りたい。

VBA

Googleの怠慢なのか、authorの認知不足かはわからないが、Web上には超絶初歩からのドキュメントが異様に少ない感じがする。あったとしてもなぜか大学の授業用の問題(もちろん解答無し)ばかりが引っかかって全然役に立たない。 というわけで自身用の備忘録…