Excel Gamer - Shadow Slash Ｃｈａｐｔｅｒ.１１５ [ ブロック崩しゲーム１０：ボールの処理 ]

ExcelVBAゲームプログラミング？

初心者でもきっとできる！Ｅｘｃｅｌさえ持っていれば特別なソフトは不要！すぐにでも始められる簡単ゲームプログラミング！今すぐ始めよう！サンプルやゲームのダウンロードができる別館も好評運営中です。ご意見やご質問、ゲームの感想等は掲示板までお気軽に。是非、皆さんの声を聞かせてください。運営、開発の励みになります。

`各種ダウンロードはコチラ ↓`	`意見・感想・質問はコチラ ↓`
影倉庫 Shadow warehouse	サポート掲示板
`ブログの全体像はコチラ ↓`	`リンクのページはコチラ ↓`
サイトマップ	自分本位なリンク

Ads by Google

上記の広告は１ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Ｃｈａｐｔｅｒ.１１５ [ ブロック崩しゲーム１０：ボールの処理 ]

■ボールの処理に組み込む

前回と前々回、ちょっと数学的な話が続きました。少し難解な内容ではありましたが、大事なのはそれをプログラムにどう活用するかです。今回は、前回までで作成した線分が関係する処理を、それぞれボールの処理に組み込んでいきます。

今回作成するボールの処理は、かなり規模の大きなプロシージャになります。ポイントとしては、前回までに作成している線分関係の処理が、それぞれどのような意味のプロシージャなのか、それをよく理解して作成していくことです。ボール処理の様々なところで登場しますので、その都度どういう意味合いでプロシージャが呼び出されているのかを理解していないと、わけがわからなくなると思います。

前もって、再度前回までに作成しているプロシージャを確認しておきましょう。

CrossLine …… 線分の交差を判定しBool型で結果を返す
CrossPoint …… 線分の交点をVector型で返す

これが前回までに作成したふたつのプロシージャでしたね。交差を判定する CrossLine と、交点の座標を算出する CrossPoint のふたつを活用しながら、ブロック崩しの核となるボールの処理を作成していきます。CrossPoint のほうは、ユーザー定義型である Vector 型で結果を返してきますので、注意しましょう。

■ボール処理の概要

さて、それではボール処理を実際に見ていきます。

ボールを処理する際は、必要な情報をひとつひとつ取得しながら、様々なケースを想定して処理を組んでいきます。おおまかな手順で言うと、まずはボールの現在の座標(移動する前の位置)と、移動したあとの座標を明確にします。ここまでは、どんな場合でも必ず同じように行う必要がありますね。

移動後の座標が明確になると、今度はそこに壁やブロックが存在するのかどうかを判断します。もし、壁やブロックがそこにあって、ボールを反射させる必要があるなら、ボールの移動する向きを反転させたりしなければなりませんね。

このように考えると、ボールの処理のおおまかな流れは次のようになります。

ボールの現在位置と移動後の位置を明確にする
    ▼
そこに壁があるかを調べる
    ▼
壁があるならボールの移動方向を反転する
    ▼
ボールが画面上の上半分にあるか下半分にあるか調べる
    ▼
上半分にあるならブロックと衝突しているかもしれない
    ▼
ブロックとの衝突があるのかどうか調べる
    ▼
ブロックと衝突しているならボールの移動方向を反転する
    ▼
下半分にあるならバーと衝突しているかもしれない
    ▼
バーとの衝突があるのかどうか調べる
    ▼
バーと衝突しているならボールの移動方向を反転する
    ▼
最終的にボールがどこに置かれるのか決定する

こんな感じになりますね。

■ボールの処理

このプロシージャは大別してみっつのブロックから成り立っています。それぞれのブロックの役割をしっかり理解していくことが大切です。

各ブロックはコードを色分けして表示しています。それを参考にしながら考えてみてください。

Sub Ball_Move()

    Dim L As Long
    Dim S As Single
    Dim SS As Single

    Dim fX As Boolean
    '横方向での衝突があったかどうかを保持するフラグ

    Dim fY As Boolean
    '縦方向での衝突があったかどうかを保持するフラグ

    Dim oX As Single
    '線分の処理に利用するX座標

    Dim oY As Single
    '線分の処理に利用するY座標

    Dim CP As Vector
    '線分の交点座標を保持するためのVector型変数
    
    With Ball
        fX = False 'フラグを初期化する
        fY = False 'フラグを初期化する
        .aX = .bX + .vX * .Sp '移動後のボールのX座標を求める
        .aY = .bY + .vY * .Sp '移動後のボールのY座標を求める
        CP.X = .aX
        CP.Y = .aY
        If .aX < W_Ball / 2 Then
            fX = True
            CP = CrossPoint(.aX, .aY, _
                            .bX, .bY, _
                            W_Ball / 2, 0, _
                            W_Ball / 2, H_Field)
        End If
        If .aX > W_Field - W_Ball / 2 Then
            fX = True
            CP = CrossPoint(.aX, .aY, _
                            .bX, .bY, _
                            W_Field - W_Ball / 2, 0, _
                            W_Field - W_Ball / 2, H_Field)
        End If
        If .aY < W_Ball / 2 Then
            fY = True
            CP = CrossPoint(.aX, .aY, _
                            .bX, .bY, _
                            0, W_Ball / 2, _
                            W_Field, W_Ball / 2)
        End If
        If .aY > H_Field Then
            .Vis = False
        End If
        If .aY <= H_Field / 2 Then
            For L = 1 To 25
                If Block(L).Vis Then
                    If Not fX Then
                        SS = W_Ball / 2
                        fX = False
                        If .vX < 0 Then
                            S = Block(L).X + W_Block / 2
                            oX = S + SS
                        Else
                            S = Block(L).X - W_Block / 2
                            oX = S - SS
                        End If
                        fX = CrossLine(.aX, .aY, _
                                       .bX, .bY, _
                                       oX, Block(L).Y - H_Block / 2 - SS, _
                                       oX, Block(L).Y + H_Block / 2 + SS)
                        If fX Then
                            CP = CrossPoint(.aX, .aY, _
                                            .bX, .bY, _
                                            oX, Block(L).Y - H_Block / 2 - SS, _
                                            oX, Block(L).Y + H_Block / 2 + SS)
                            Block(L).Vis = False
                            If .Sp < 12.5 Then .Sp = .Sp + 0.5
                        End If
                    End If
                    If Not fY Then
                        SS = W_Ball / 2
                        fY = False
                        If .vY < 0 Then
                            S = Block(L).Y + H_Block / 2
                            oY = S + SS
                        Else
                            S = Block(L).Y - H_Block / 2
                            oY = S - SS
                        End If
                        fY = CrossLine(.aX, .aY, _
                                       .bX, .bY, _
                                       Block(L).X - W_Block / 2 - SS, oY, _
                                       Block(L).X + W_Block / 2 + SS, oY)
                        If fY Then
                            CP = CrossPoint(.aX, .aY, _
                                            .bX, .bY, _
                                            Block(L).X - W_Block / 2 - SS, oY, _
                                            Block(L).X + W_Block / 2 + SS, oY)
                            Block(L).Vis = False
                            If .Sp < 12.5 Then .Sp = .Sp + 0.5
                        End If
                    End If
                End If
                UserForm1.Controls("Label" & L).Visible = Block(L).Vis
            Next
            If fX Then
                .vX = -.vX
                .aX = CP.X
                .aY = CP.Y
            End If
            If fY Then
                .vY = -.vY
                .aX = CP.X
                .aY = CP.Y
            End If
        Else
            If .vY > 0 Then
                If Not fX And Not fY Then
                    SS = W_Ball / 2
                    fX = False
                    If .vX < 0 Then
                        S = Bar.X + W_Bar / 2
                        oX = S + SS
                    Else
                        S = Bar.X - W_Bar / 2
                        oX = S - SS
                    End If
                    fX = CrossLine(.aX, .aY, _
                                   .bX, .bY, _
                                   oX, Bar.Y - H_Bar / 2 - SS, _
                                   oX, Bar.Y + H_Bar / 2 + SS)
                    If fX Then
                        CP = CrossPoint(.aX, .aY, _
                                        .bX, .bY, _
                                        oX, Bar.Y - H_Bar / 2 - SS, _
                                        oX, Bar.Y + H_Bar / 2 + SS)
                    End If
                    fY = False
                    S = Bar.Y - H_Bar / 2
                    oY = S - SS
                    fY = CrossLine(.aX, .aY, _
                                   .bX, .bY, _
                                   Bar.X - W_Bar / 2 - SS, oY, _
                                   Bar.X + W_Bar / 2 + SS, oY)
                    If fY Then
                        CP = CrossPoint(.aX, .aY, _
                                        .bX, .bY, _
                                        Bar.X - W_Bar / 2 - SS, oY, _
                                        Bar.X + W_Bar / 2 + SS, oY)
                    End If
                End If
            End If
            If fX Then
                .vX = -.vX
                .aX = CP.X
                .aY = CP.Y
            End If
            If fY Then
                .vY = -.vY
                .aX = CP.X
                .aY = CP.Y
                S = Bar.X - W_Bar / 2
                SS = Bar.X + W_Bar / 2
                If .aX >= S Then
                    If .aX <= S + (W_Bar / 3) Then .vX = -Abs(.vX)
                End If
                If .aX <= SS Then
                    If .aX >= SS - (W_Bar / 3) Then .vX = Abs(.vX)
                End If
                If .aX > S + (W_Bar / 3) Then
                    If .aX < SS - (W_Bar / 3) Then .vY = -Abs(.vY) * 1.05
                End If
            End If
        End If
        If .aX < W_Ball / 2 Then .aX = W_Ball / 2
        If .aX > W_Field - W_Ball / 2 Then .aX = W_Field - W_Ball / 2
        If .aY < W_Ball / 2 Then .aY = W_Ball / 2
        .bX = .aX
        .bY = .aY
    End With
    
    With UserForm1
        .Ima_ball.Left = Ball.aX - W_Ball / 2
        .Ima_ball.Top = Ball.aY - W_Ball / 2
    End With
    
End Sub

とても長いプロシージャですね。
ちょっと気がめいりそうになりますが、順番に見ていきましょう。

まず、最初の黄色い文字の部分では、壁との衝突があったのかどうかを調べています。あらかじめ宣言してあった定数をうまくつかって、ボールと、左・上・右の壁との衝突があったのかどうかを判定しています。

壁の向こう側にめりこんでしまうような座標にボールが到達している場合には、これは衝突をしていることと同じです。ボールの移動前の座標と、移動後の座標をつないで一本の線分を作り、さらに、壁を一本の線分と考えて、線分同士の交差判定を行っていますね。(プロシージャ CrossPoint を呼び出している部分)

変数 CP は、Vector 型の変数です。ですから、プロシージャ CrossPoint が返してくる交点座標の情報を受け取ることができます。CrossPoint を呼び出したあと、変数 CP に取得されている座標情報を調べれば、ボールが存在するべき座標がわかるというわけです。

もし、下の壁よりもボールが向こう側にある場合は、これはボールを落としてしまっているということになりますね。ですからこの場合は、ボールを見えないようにしています。
これで、ボールと壁との処理はすべて完了です。

続いて、ボールが画面上の上半分にいるのか、それとも下半分にいるのかを調べ、その結果によって処理を分割しています。

ボールが上半分にいる場合には、ブロックと衝突をしている可能性があるため、ブロックとの衝突があるのかどうかを調べていきます。これが緑色の文字で書かれているコードの部分ですね。

ブロックひとつひとつと順番に衝突判定を行っていき、もし衝突が発生しているなら壁のときと同様に線分による処理を行います。最終的に線分同士の交点座標を算出して、それをボールの最終的な移動後の位置として設定するわけです。

ボールが下半分にいる場合は、ブロックと衝突する可能性はありません。その代わり、バーとの衝突が発生している可能性はありますね。バーとの衝突判定を行っているのは水色の文字で示されている部分です。
ここでも、ブロックとボールのときに行ったのと同様に、バーとボールの衝突判定を行っています。もしバーとボールが衝突しているのなら、線分による衝突判定を行ってボールの最終的な位置を算出しています。

どのような衝突判定の場合でも、まずはプロシージャ CrossLine を使って、線分の交差があるのかどうかを判定しています。ボールの移動前の座標と、移動後の座標を繋いで一本の線分を作り、対象となるブロックやバーの一辺を線分として考え、これら二本の線分の交差を判定します。
線分同士が交差しているなら、これは衝突が起こっていることと同じになります。衝突が起こっているなら、今度は線分と線分との交点を算出するために CrossPoint を呼び出し、交点座標にボールを配置することで、ボールの最終的な座標位置を決定しています。

■まとめ

さて、はたしてこの解説を見ている人が、この説明だけでどれだけ理解できているのか不安ですが、いかがでしょうか。プロシージャ自体がかなり大きいので、ちょっと理解するのが大変かもしれません。

ポイントとなるのは、コードにつけられた色を参考にして、その部分が一体どのような処理を行っている部分なのかをしっかり理解して考えることです。
今現在は、ボールと何との衝突を判定している部分なのか、それが明確になっていないとなかなかスムーズに理解することは難しいでしょう。壁、ブロック、バー、そしてボール。これらがどのような関係にあるのかをしっかり理解して処理を考えましょう。

実際に動くサンプルは、次回、ダウンロードできるようにするつもりです。
そして、次回は恐らくブロック崩しゲームの最終回になると思います。完成したブロック崩しゲームのサンプルは、そのときにお披露目します。

■格言

現在の状態を把握して処理する
線分関連の処理の意味を理解する

前回までの上積みが、ここへきて重要になります。
意味がわからない場合は少し戻って、もう一度考えてみるのもいいかもしれません。

Comment

Track back

この記事にトラックバックする(FC2)

プログラミング関連検索

プログラミングや ExcelVBA に関連した検索にはこちらをどうぞ。

メールフォーム

影斬に物申すという方はこちら

可能な限り要望には応えますが、必ず返信や回答ができることを、保障するものではありません。
ご了承ください。

Ｃｈａｐｔｅｒｓ

コンテンツ一覧

fc2 seotool

Excel

VBA

ゲーム

プログラミング

講座

RSSフィード

リンク

このブログをリンクに追加する

By FC2ブログ

Counter

プロフィール

Author:
影斬
Excelをこよなく愛する。
DirectXを本格的に使用したVBAゲームの開発に成功。VBAゲーム界の発展を願い、日々活動中。

ＳｈａｄｏｗＢＢＳ - 影掲示板

ブログランキング

△ランキング参加中
もしよかったら押してやってください。

Name
E-mail
URL
Comment
Pass	*
Secret？	（管理者にだけ表示）

Excel Gamer - Shadow Slash

いちからはじめるプログラミング講座＜エクセルＶＢＡゲームプログラミング＞

ExcelVBAゲームプログラミング？

Ads by Google

Ｃｈａｐｔｅｒ.１１５ [ ブロック崩しゲーム１０：ボールの処理 ]

Comment

Track back

プログラミング関連検索

メールフォーム

Ｃｈａｐｔｅｒｓ

RSSフィード

リンク

By FC2ブログ

Counter

プロフィール

最近の記事

最近のコメント

ＳｈａｄｏｗＢＢＳ - 影掲示板

edita

VBA 関連書籍

Sozaiyasan blog

Excel Gamer - Shadow Slash

いちからはじめるプログラミング講座 ＜エクセルＶＢＡゲームプログラミング＞

ExcelVBAゲームプログラミング？

Ads by Google

Ｃｈａｐｔｅｒ.１１５ [ ブロック崩しゲーム１０：ボールの処理 ]

Comment

Track back

プログラミング関連検索

メールフォーム

Ｃｈａｐｔｅｒｓ

RSSフィード

リンク

By FC2ブログ

Counter

プロフィール

最近の記事

最近のコメント

Ｓｈａｄｏｗ ＢＢＳ - 影掲示板

edita

VBA 関連書籍

Sozaiyasan blog

いちからはじめるプログラミング講座＜エクセルＶＢＡゲームプログラミング＞

ＳｈａｄｏｗＢＢＳ - 影掲示板