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

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

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

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

動作確認済み 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枚…

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

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