【VBA】ボウリングスコア自動計算

2020年8月21日

1 スコアの計算について
2 画像（ユーザーフォーム）
3 計算
4 最後に

スコアの計算について

どうも。天丼のご飯は小盛にしがちのjimです😋

今回は、VBAで『ボウリングスコア自動計算』するヤーツを作ったって記事です。

というか、ボウリングのスコアを計算できる人なんて、結構年いってる人しかいないよね？

皆さんは、スコアを計算できますか？

手書きのスコア表を置いてるボウリング場あるのかな？多分、一応あるか😅

ビリヤードの『ボウラード』ってゲームをやる人は計算できるよね。

ビリヤード場は、ペーパーしかないもん。

もう10年以上撞いてないけど、アベレージ160～180ありましたよ。（ビリヤードね）

連マスとかもする感じ♪

あ、それで作った自動計算ってのが↓

ボウリングスコア自動計算（ツイッターup動画）

ボウリングスコアの計算はね、、、

通常は、足し算するだけ。

ストライクをとると、２投先まで点数の対象になります。

例えば、ストライク⇒１ピン倒⇒１ピン倒だったら、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

ちなみに、①の中にもループがあって、数値の入力があるまで抜けない仕組み。

その数値は、パブリックの変数。マウス操作かキーボード操作で数値を変更といった感じ。

③⇒①⇒④⇒②の繰り返しで、変数『投』が１ずつ増えていく（ストライクの場合は＋２＆アニメーション）っていう。

うん、そんな感じ🙂