【VBA】ボウリングスコア自動計算
目次
スコアの計算について
どうも。天丼のご飯は小盛にしがちのjimです😋
今回は、VBAで『ボウリングスコア自動計算』するヤーツを作ったって記事です。
というか、ボウリングのスコアを計算できる人なんて、結構年いってる人しかいないよね？
皆さんは、スコアを計算できますか？
手書きのスコア表を置いてるボウリング場あるのかな？多分、一応あるか😅
ビリヤードの『ボウラード』ってゲームをやる人は計算できるよね。
ビリヤード場は、ペーパーしかないもん。
もう10年以上撞いてないけど、アベレージ160～180ありましたよ。（ビリヤードね）
連マスとかもする感じ♪
あ、それで作った自動計算ってのが↓
ボウリングスコアの計算はね、、、
通常は、足し算するだけ。
ストライクをとると、２投先まで点数の対象になります。
例えば、ストライク⇒１ピン倒⇒１ピン倒だったら、12点になります。（１０＋１＋１＝１２）
要するに、ストライク取ったら、２投先まで気合を入れろってこと👊
何故、ターキー（３連続ストライク）をとると『ざわざわ』するのかっていうと、僅か３投で６０点以上が（３０＋２０＋１０＝６０点）保証されるからです。すごい😝
そして、スペアは１投先まで点数の対象になります。
そうそう、要するに、スペア取ったら、１投先まで気合を入れろってこと👊
画像（ユーザーフォーム）
スコアの計算くらいスプレッドシートでやればよいのだけど、それだと絵面がショボい😖
今の時代、「ばえ～」なのだから🍹
といっても、ただのスコア計算なのだから、頑張ったところでショボい。。。
スコア表の上に数値用のラベルを置いて、更にスペア＆ストライクのマーク（画像）を非表示にして置きました。
んで、ラベルに数値入れたり、色を変えたり、表示したりと、、、
実は、まあまあ面倒なことやってます😝
あと、少しでも「ばえ～」と思って用意したアニメーションの一部。
いつものように図形を組み合わせて作りました。
『シュウォッチ』や『ジャンケンマン』ほどではないが結構手間😓
計算
これも、スプレッドシートを使った方が簡単にできるが、ラベルのみで計算しました。
ゲームのようにループを作って、その中でごにょごにょする感じ。まあ、ゲームと一緒かな🤔
①ラベルに数値を入れる関数を用意。
②ラベルの数値を計算する関数を用意。
③Doの中にSelectを２１投分用意して①を呼び出す。
④Selectを抜けたら②を呼び出す。
Private Sub スコア()
Dim 投 As Long
投 = 1
Do While 投 < 22
Select Case 投
Case 1
Call ラベル(投)
Case 2
Call ラベル(投)
Case 3
Call ラベル(投)
Case 4
Call ラベル(投)
Case 5
Call ラベル(投)
Case 6
Call ラベル(投)
Case 7
Call ラベル(投)
Case 8
Call ラベル(投)
Case 9
Call ラベル(投)
Case 10
Call ラベル(投)
Case 11
Call ラベル(投)
Case 12
Call ラベル(投)
Case 13
Call ラベル(投)
Case 14
Call ラベル(投)
Case 15
Call ラベル(投)
Case 16
Call ラベル(投)
Case 17
Call ラベル(投)
Case 18
Call ラベル(投)
Case 19
Call ラベル(投)
Case 20
Call ラベル(投)
Case 21
Call ラベル(投)
End Select
Call 計算(投)
DoEvents
Loop
End Sub
ちなみに、①の中にもループがあって、数値の入力があるまで抜けない仕組み。
その数値は、パブリックの変数。マウス操作かキーボード操作で数値を変更といった感じ。
③⇒①⇒④⇒②の繰り返しで、変数『投』が１ずつ増えていく（ストライクの場合は＋２＆アニメーション）っていう。
うん、そんな感じ🙂
最後に
VBAで、『ボウリングスコア自動計算』を作ったという記事でしたが、どうでしたか？
実は、まあまあ手間がかかってるっていうね😆
『こいつ暇だな～』と思いました？
違う違う。いや、暇か？
まあ、その話は置いておいて、、
手間なこともサクサクできるから、そういう発想ができるから、SEができるわけで。。。
仕事では、もっと複雑なこと考えることもある、、、
し、ゲームより簡単なものもあります。
大体、ゲームより簡単なんですけどねヽ(・ω・)/ｽﾞｺｰ
んじゃ、またねぇ✋