Ｃｈａｐｔｅｒ.４５ [ シューティングゲーム５：プレイヤーキャラクター ]
■いよいよキャラクターの処理へ
さて、いよいよプレイヤーキャラクターの処理です。ここまでくるのが結構大変でしたね。
しかし、ゲームに限らず、プログラムは根本部分が最も大切です。ここまでの内容を順に習得してきたことで、皆さんのスキルは確実にアップしているはずですから、そこは自信を持っていいでしょう。
それではプレイヤーキャラクターの処理について、具体的に見ていくことにしましょう。
その名の通り、プレイヤーキャラクターは、ユーザーである第三者が自由に操作できるキャラクターでなくてはいけません。これを実現するためには、以前の講座で解説した『キーの入力判定』が必要です(Chapter36を参照)。ここまでは容易に想像がつきますね。
あとは、判定したキーの状態に応じて、適宜キャラクターを移動処理していけば、それだけで基本的なキャラクター処理部分は完成します。
この『キー入力判定＋移動処理』を実装させて、プレイヤーが自由に操作するキャラクターを用意していくわけですが、今回大切なのはキー入力や移動処理以外の部分です。キー入力判定の細かい解説は以前の講座を参照していただくとして、今回はその他の部分で、特に重要な概念を中心に解説します。
■画面からはみださせない
ユーザーフォーム上のコントロールは、画面からはみだしたところに存在することもできます。つまり見た目上は見えない場所に、隠れて存在することができるということですね。これは移動処理のときや、初期化処理のときにも少し触れました。
ユーザーフォームの左上のカドが、横位置も縦位置も０(ゼロ)の場所。位置情報にマイナスの数値を指定すれば、いずれ見えなくなってしまうのでしたね。
ユーザーフォームが横幅１００ポイントしかないのに、それ以上の数値を指定した場合にも同様のことが起こります。
この仕組みは、見せたくないものを隠したりするときには便利です。ですが、キャラクターを表示するときとなると、また話が違います。
今回のシューティングゲームでは、画面上からプレイヤーキャラクターが消えてしまっては困ります。かの有名なマリオブラザーズじゃあるまいし、右から出て行くと左から出てくるなんてわけにはいきません。(そういう設計にする場合は別ですが)
そこで、プレイヤーキャラクターの処理の中で、画面からはみださせないための仕組みを実装しておく必要があります。
キャラクターが今どこにいるか、そして、画面の大きさとキャラクターの大きさはどれくらいか、この合計３つの情報があれば、はみだし防止処理を行うことができるはずです。
■移動処理とはみだし防止処理
プレイヤーキャラクターを管理するプロシージャは、現段階では、次のようになります。いきなり少し長めのコードが出てきてしまいますが、後からゆっくりじっくり解説しますので、とりあえず見てください。
これが、プレイヤーキャラクターの処理を担当する『
現段階では、移動処理と、はみだし防止処理が施されている状態ですね。
�，良�分が、『移動処理』を行っている部分です。
見てわかるとおり、
もしも、右方向が押されているなら、先ほどとは反対方向なので、要素 X をプラスすればいいのですね。
同様に、縦位置の情報も処理します。縦位置の定義では、上に行くほどマイナス。下に行くほどプラスです。考え方は横位置のときと全く同じです。
�△任蓮悗呂澆世桂瓢濬萢�』をしています。
ゲーム画面の役割を果たしている、フレームコントロールの大きさは、縦横いずれも２００ポイントだったはずです。ということは、プレイヤーキャラクターが、これよりも外の範囲に出て行ってしまわないように、逐一監視しなくてはいけません。
変数
次の画像で言えば、黄色くマークされている部分です。
しかし、ユーザーフォーム上での位置を表すプロパティ『
このように、変数
ここで、前回解説した、『定数』が役に立ちます。
前回、初期化処理のコードの中で『定数
前回のコード内のコメントで『
イメージコントロール自体の大きさは『18ポイント』でしたね。そして、定数
なぜ２分の１の数値を格納したのかは、上の画像で考えてみるとわかると思います。
この仕組みが理解できていると、キャラクターの上下左右の辺が、どの座標になるか求めることができます。
この考え方を元に、キャラクターが左の端に来ているときは、それ以上めり込めないように……上の端に来ているときは、それ以上めり込めないように……と、４つの方向全てをチェックします。これが、先ほど載せたコードの�△良�分です。
もし、フレームの端よりも外側に出ていたとき(つまり各辺が０より小さいか、あるいは２００より大きいとき)は、強制的に座標を端の部分に合わせてしまうわけです。これで、はみだし防止処理が実装できます。
さて、ちょっと長くてきついですが次です。次は��の部分ですね。
ここでは、実際のイメージコントロールの座標を設定しています。先ほどのはみだし防止処理の仕組みが理解できていれば、考え方は同じなので、なんとなくわかると思います。
イメージコントロールの
変数
この��の部分を設定した時点で、初めてユーザーフォーム上のイメージコントロールの位置が決定します。今まで、X や Y を使って計算してきた結果が、ここで初めて実を結ぶのです。
座標だのなんだのと、少し難しい考え方が出てきましたが、コードをよく見て、じっくり考えてみてください。どうしてもわかりづらい場合は、紙に四角形を書いて考えてみると、理解しやすいと思います。実際私は頭の中で、四角形をイメージしながらコードを書いていることが多いです。
■ここまでを総まとめ
さて、座標系の計算は少し難しい処理でしたが、どうでしょう、ついてこれているでしょうか。ここで基本的な座標計算の考え方が理解できてしまえば、これから先、どのようなキャラクターなどでも同じ仕組みで処理していくことができます。
焦る必要はないので、しっかり習得してくださいね。
さて、ここまで出来たら最後の仕上げをしましょう。
あとやらなくてはいけないことは、『ゲームの終了処理』と、『コマンドボタンからのコードの呼び出し』の２つです。もう少しなのでがんばりましょう。
以前、メインプロセスを解説した講座で、『
現段階では、まだプレイヤーキャラクターの処理しか作成していません(
ここでのポイントは３つ。
�，良�分では、まず初期化処理担当の『
�△妊廛譽ぅ筺璽�ャラクターの処理を呼び出しています。先ほど移動処理などを記述したあれですね。
��では、
つまり、もしエスケープキーが押されたときには、変数
この仕組みがいわゆる『終了処理』です。ゲームのメインループから、キーの入力を受け取って抜ける仕組みですね。
これで、とりあえず現段階のメインプロセスは大丈夫です。
そして次に『コマンドボタンからのコードの呼び出し』です。これはじゃんけんゲームや、アニメーション処理などで、さんざん予行練習してきたので大丈夫でしょう。
ユーザーフォーム上にあるコマンドボタンの、クリックイベントから『
これがそのコードです。
まず�，良�分で、コマンドボタンを『使用不可』の状態に設定しています。
何度もクリックイベントが発生して、
次に�◆�これは簡単ですね。
��は、初めて目にするコードかもしれません。
『
え？ フォームを閉じちゃっていいの？ と思うかもしれませんが、これが実は大丈夫なんです。
�△良�分で『
あとは、移動処理のところで行ったのと同様に、ユーザーフォームのクエリクロースイベントで、念のため全てのコードが止まるようにします。こうしておけば、ユーザーフォームが閉じられると同時に、確実に全てのプロシージャの処理が止まります。安全ですね。
■ここまでの全コード
かなり長い道のりでした。プライヤーキャラクターを作成したいだけなのに、なんでこんなにやることがてんこ盛りなんでしょうか……。しかし、これで基盤がほぼ完成したと言っていいでしょう。つまり、ここから先はプラモデルのパーツを継ぎ足すがごとく、プロシージャを追加していくだけで良いのです。
長く険しい道のりではありましたが、それだけ、価値のあることができたということでもあります。途中、何度か難しい部分があったはずです。
全てを一度に理解できなくても、ひとつひとつこなしていけば、必ずうまくいくはずです。焦ってはいけません。
とりあえず現段階のコードを全て以下に載せておきます。
全体像と、各プロシージャの役割や構造を、しっかり理解してください。必要に応じて、過去のChapterに戻って復習しながら、基盤をしっかり固めてください。
ここまでの全コード
Declare Function GetTickCount Lib "kernel32" () As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Type Chara
X As Single
Y As Single
W As Single
H As Single
Lif As Long
Typ As Long
Par As Long
End Type
Public Player_Data As Chara
Public Const Left_Key As Long = 37
Public Const Up_Key As Long = 38
Public Const Right_Key As Long = 39
Public Const Down_Key As Long = 40
Public Const Esc_Key As Long = 27
Public Const Player_Size As Single = 9
Sub Init()
With Player_Data
.X = 100
.Y = 180
.W = 0
.H = 0
.Lif = 1
.Typ = 0
.Par = 0
End With
End Sub
Sub Main()
Dim Flg As Boolean
Dim Stm As Long
Call Init
Flg = False
Do Until Flg
Stm = GetTickCount
Call Player_Action
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
Sub Player_Action()
With Player_Data
If GetAsyncKeyState(Left_Key) < 0 Then .X = .X - 3
If GetAsyncKeyState(Up_Key) < 0 Then .Y = .Y - 3
If GetAsyncKeyState(Right_Key) < 0 Then .X = .X + 3
If GetAsyncKeyState(Down_Key) < 0 Then .Y = .Y + 3
If .X - Player_Size < 0 Then .X = Player_Size
If .X + Player_Size > 200 Then .X = 200 - Player_Size
If .Y - Player_Size < 0 Then .Y = Player_Size
If .Y + Player_Size > 200 Then .Y = 200 - Player_Size
End With
With UserForm1.Player
.Left = Player_Data.X - Player_Size
.Top = Player_Data.Y - Player_Size
End With
End Sub
Private Sub Com_Start_Click()
Com_Start.Enabled = False
Call Main
Unload UserForm1
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
きっとブラウザ上でこのコードを見ると、非常に長く感じると思います。
ですが、VBEに貼り付け(もしくは自力で書く)した後に眺めると、実際はそうでもないです。多分。
プロシージャがそれぞれ切り離されているので、視覚的にはかなり見やすいはずです。『コードの部品化』ということが、どれほど効果的なのかということが、おのずとわかるのではないでしょうか。
ユーザーフォームのほうがしっかり出来ていれば、このコードを適宜貼り付けるだけで、プレイヤーキャラクターが画面上を自由に動くプログラムが完成します。
プログラムを終了したいときは、フォーム上の×ボタンをクリックするか、エスケープキー(Escキー)を押せばいいのですね。いずれの場合も、ユーザーフォームのクエリクロースイベントでコードが止まるので問題ありません。
自由気ままに、プレイヤーキャラクターを動かして遊んでみてください。
すると、勘のいい人なら気がつくはずです。ちょっとおかしい部分があることに……。
その謎は次回解説！ 今回は長すぎましたね。お疲れ様でした。
サンプルダウンロード ⇒ コチラよりダウンロードできます。（別館）
■格言
座標計算を習得しよう
フォームの準備、各種宣言も忘れずに
焦らずひとつひとつこなす。これが今回もポイントになります。
さて、いよいよプレイヤーキャラクターの処理です。ここまでくるのが結構大変でしたね。
しかし、ゲームに限らず、プログラムは根本部分が最も大切です。ここまでの内容を順に習得してきたことで、皆さんのスキルは確実にアップしているはずですから、そこは自信を持っていいでしょう。
それではプレイヤーキャラクターの処理について、具体的に見ていくことにしましょう。
その名の通り、プレイヤーキャラクターは、ユーザーである第三者が自由に操作できるキャラクターでなくてはいけません。これを実現するためには、以前の講座で解説した『キーの入力判定』が必要です(Chapter36を参照)。ここまでは容易に想像がつきますね。
あとは、判定したキーの状態に応じて、適宜キャラクターを移動処理していけば、それだけで基本的なキャラクター処理部分は完成します。
この『キー入力判定＋移動処理』を実装させて、プレイヤーが自由に操作するキャラクターを用意していくわけですが、今回大切なのはキー入力や移動処理以外の部分です。キー入力判定の細かい解説は以前の講座を参照していただくとして、今回はその他の部分で、特に重要な概念を中心に解説します。
■画面からはみださせない
ユーザーフォーム上のコントロールは、画面からはみだしたところに存在することもできます。つまり見た目上は見えない場所に、隠れて存在することができるということですね。これは移動処理のときや、初期化処理のときにも少し触れました。
ユーザーフォームの左上のカドが、横位置も縦位置も０(ゼロ)の場所。位置情報にマイナスの数値を指定すれば、いずれ見えなくなってしまうのでしたね。
ユーザーフォームが横幅１００ポイントしかないのに、それ以上の数値を指定した場合にも同様のことが起こります。
この仕組みは、見せたくないものを隠したりするときには便利です。ですが、キャラクターを表示するときとなると、また話が違います。
今回のシューティングゲームでは、画面上からプレイヤーキャラクターが消えてしまっては困ります。かの有名なマリオブラザーズじゃあるまいし、右から出て行くと左から出てくるなんてわけにはいきません。(そういう設計にする場合は別ですが)
そこで、プレイヤーキャラクターの処理の中で、画面からはみださせないための仕組みを実装しておく必要があります。
キャラクターが今どこにいるか、そして、画面の大きさとキャラクターの大きさはどれくらいか、この合計３つの情報があれば、はみだし防止処理を行うことができるはずです。
キャラクターをはみださせないために
�．�ャラクターの位置はどこか？
�▲�ャラクターの大きさはどれくらいか？
��ゲーム画面の大きさはどれくらいか？
�．�ャラクターの位置はどこか？
�▲�ャラクターの大きさはどれくらいか？
��ゲーム画面の大きさはどれくらいか？
■移動処理とはみだし防止処理
プレイヤーキャラクターを管理するプロシージャは、現段階では、次のようになります。いきなり少し長めのコードが出てきてしまいますが、後からゆっくりじっくり解説しますので、とりあえず見てください。
Sub Player_Action()
With Player_Data
If GetAsyncKeyState(Left_Key) < 0 Then .X = .X - 3
If GetAsyncKeyState(Up_Key) < 0 Then .Y = .Y - 3
If GetAsyncKeyState(Right_Key) < 0 Then .X = .X + 3
If GetAsyncKeyState(Down_Key) < 0 Then .Y = .Y + 3
If .X - Player_Size < 0 Then .X = Player_Size
If .X + Player_Size > 200 Then .X = 200 - Player_Size
If .Y - Player_Size < 0 Then .Y = Player_Size
If .Y + Player_Size > 200 Then .Y = 200 - Player_Size
End With
With UserForm1.Player
.Left = Player_Data.X - Player_Size
.Top = Player_Data.Y - Player_Size
End With
End Sub
With Player_Data
'キー入力判定と移動処理 ：��If GetAsyncKeyState(Left_Key) < 0 Then .X = .X - 3
If GetAsyncKeyState(Up_Key) < 0 Then .Y = .Y - 3
If GetAsyncKeyState(Right_Key) < 0 Then .X = .X + 3
If GetAsyncKeyState(Down_Key) < 0 Then .Y = .Y + 3
'はみだし防止処理 ：��If .X - Player_Size < 0 Then .X = Player_Size
If .X + Player_Size > 200 Then .X = 200 - Player_Size
If .Y - Player_Size < 0 Then .Y = Player_Size
If .Y + Player_Size > 200 Then .Y = 200 - Player_Size
End With
'フォーム上の『Player』を実際に移動する処理 ：��With UserForm1.Player
.Left = Player_Data.X - Player_Size
.Top = Player_Data.Y - Player_Size
End With
End Sub
これが、プレイヤーキャラクターの処理を担当する『
Player_Actionプロシージャ』です。現段階では、移動処理と、はみだし防止処理が施されている状態ですね。
�，良�分が、『移動処理』を行っている部分です。
見てわかるとおり、
GetAsyncKeyState関数を使って、４方向全てのキー入力を判定しています。もしもカーソルの左キーが押されていた場合には、横位置を表す『要素 X 』の値をマイナスします。横位置の定義は左に行くほどマイナス、右に行くほどプラスでしたね。左キーが押されているなら、要素 X はマイナスされるわけです。もしも、右方向が押されているなら、先ほどとは反対方向なので、要素 X をプラスすればいいのですね。
同様に、縦位置の情報も処理します。縦位置の定義では、上に行くほどマイナス。下に行くほどプラスです。考え方は横位置のときと全く同じです。
�△任蓮悗呂澆世桂瓢濬萢�』をしています。
ゲーム画面の役割を果たしている、フレームコントロールの大きさは、縦横いずれも２００ポイントだったはずです。ということは、プレイヤーキャラクターが、これよりも外の範囲に出て行ってしまわないように、逐一監視しなくてはいけません。
変数
Player_Dataの、要素 X と、要素 Y は、キャラクターの中心から見た位置座標を表しています。次の画像で言えば、黄色くマークされている部分です。
しかし、ユーザーフォーム上での位置を表すプロパティ『
Top・Left』は、中心ではなく『左上の座標』で位置情報を表します。このように、変数
Player_Dataでの座標と、ユーザーフォーム上の座標では、座標位置の考え方が違っています。表示する位置を正しく計算するためには、ここで出ている座標上の差を考慮して、適切な処理を行わなくてはいけません。ここで、前回解説した、『定数』が役に立ちます。
前回、初期化処理のコードの中で『定数
Player_Size』を宣言しました。この定数Player_Sizeは、イメージコントロールの実際の幅をあらかじめ設定していましたね。覚えているでしょうか。Public Const Player_Size As Single = 9
前回のコード内のコメントで『
あとで使いやすいように２分の１にしておく。実際は18ポイントなので9を設定』と書いてありました。実は、２分の１にする理由は、この後の座標変換の考え方をよく見てみると、おのずとわかります。イメージコントロール自体の大きさは『18ポイント』でしたね。そして、定数
Player_Sizeには、その半分の『 9 』をあらかじめ格納してあります。なぜ２分の１の数値を格納したのかは、上の画像で考えてみるとわかると思います。
この仕組みが理解できていると、キャラクターの上下左右の辺が、どの座標になるか求めることができます。
キャラクターの上下左右の座標は……
左辺： X - 9
上辺： Y - 9
右辺： X + 9
下辺： Y + 9
で求めることができる
左辺： X - 9
上辺： Y - 9
右辺： X + 9
下辺： Y + 9
で求めることができる
この考え方を元に、キャラクターが左の端に来ているときは、それ以上めり込めないように……上の端に来ているときは、それ以上めり込めないように……と、４つの方向全てをチェックします。これが、先ほど載せたコードの�△良�分です。
もし、フレームの端よりも外側に出ていたとき(つまり各辺が０より小さいか、あるいは２００より大きいとき)は、強制的に座標を端の部分に合わせてしまうわけです。これで、はみだし防止処理が実装できます。
さて、ちょっと長くてきついですが次です。次は��の部分ですね。
ここでは、実際のイメージコントロールの座標を設定しています。先ほどのはみだし防止処理の仕組みが理解できていれば、考え方は同じなので、なんとなくわかると思います。
イメージコントロールの
Left・Topが( 0 , 0 )だと仮定すると、その中心の座標となる X ・ Y は、( 9 , 9 )となります。もしLeft・Topが( 10 , 10 )だとすれば、 X ・ Y は、( 19 , 19 )ですね。変数
Player_Dataの要素 X と、要素 Y から、9を引き算した結果を求めて、それをコントロールのLeftと、Topに設定すればいいわけです。Withステートメントを使って、ユーザーフォーム上にあるPlayerという名前のイメージコントロールに対して、計算した結果を設定します。この��の部分を設定した時点で、初めてユーザーフォーム上のイメージコントロールの位置が決定します。今まで、X や Y を使って計算してきた結果が、ここで初めて実を結ぶのです。
座標だのなんだのと、少し難しい考え方が出てきましたが、コードをよく見て、じっくり考えてみてください。どうしてもわかりづらい場合は、紙に四角形を書いて考えてみると、理解しやすいと思います。実際私は頭の中で、四角形をイメージしながらコードを書いていることが多いです。
補足コラム：If文の記述法
先ほどのコード内で、初めて特殊なIf文の記述が出てきました。
普通、If文は次のように記述します。
If 条件 Then
条件が真の場合の処理〜
End If
『If』から始まり『条件』そして『Then』と記述し、条件が真だった場合には中に記述された処理が行われます。それから最後は『End If』で終わるのがルールでしたね。
しかし、今回登場したIf文は次のように記述されています。
If 条件 Then 条件が真の場合の処理〜
今までのIf文とは違い、全てのコードが１行で記述されている上、どこにも『End If』が見当たりませんね。
実は、これは文法上認められている『If文のもうひとつの書き方』なんですね。簡単な条件判断や、真の場合に行うべき処理が単純な場合などは、このような記述の仕方をすることで、コーディングにかかる手間を軽減できます。状況に応じて、使ってみるのもいいでしょう。ただし、私の試した感覚では、これによる処理の高速化などは特にないような気がします。わかりやすさを第一に据えて、自分が理解しやすいコードを書きましょう。■ここまでを総まとめ
さて、座標系の計算は少し難しい処理でしたが、どうでしょう、ついてこれているでしょうか。ここで基本的な座標計算の考え方が理解できてしまえば、これから先、どのようなキャラクターなどでも同じ仕組みで処理していくことができます。
焦る必要はないので、しっかり習得してくださいね。
さて、ここまで出来たら最後の仕上げをしましょう。
あとやらなくてはいけないことは、『ゲームの終了処理』と、『コマンドボタンからのコードの呼び出し』の２つです。もう少しなのでがんばりましょう。
以前、メインプロセスを解説した講座で、『
Main』という名前のプロシージャの雛形を載せました。今回はすでにゲームの作成に入っていますので、このMainというプロシージャも作成しましょう。それが次のコードです。Sub Main()
Dim Flg As Boolean
Dim Stm As Long
Call Init
Flg = False
Do Until Flg
Stm = GetTickCount
Call Player_Action
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
'メインループとなるプロシージャDim Flg As Boolean
Dim Stm As Long
Call Init
'��Flg = False
Do Until Flg
Stm = GetTickCount
Call Player_Action
'��DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
'��Loop
End Sub
現段階では、まだプレイヤーキャラクターの処理しか作成していません(
Player_Action)。ですのでメインループの中で呼び出しているサブプロシージャはひとつだけですね。ここでのポイントは３つ。
�，良�分では、まず初期化処理担当の『
Init』を呼び出しています。これはメインループが始まる前に行っておかないと意味がありません。ループの中で呼び出してしまうと、ループするたびに毎回初期化処理が行われてしまいますので注意しましょう。�△妊廛譽ぅ筺璽�ャラクターの処理を呼び出しています。先ほど移動処理などを記述したあれですね。
��では、
GetAsyncKeyState関数を使っていますね。前回の講座で宣言した定数Esc_Keyは、エスケープキーのキーコードを表しています。つまり、もしエスケープキーが押されたときには、変数
FlgにTrueを代入して、ループが終了するようにしているのですね。この仕組みがいわゆる『終了処理』です。ゲームのメインループから、キーの入力を受け取って抜ける仕組みですね。
これで、とりあえず現段階のメインプロセスは大丈夫です。
そして次に『コマンドボタンからのコードの呼び出し』です。これはじゃんけんゲームや、アニメーション処理などで、さんざん予行練習してきたので大丈夫でしょう。
ユーザーフォーム上にあるコマンドボタンの、クリックイベントから『
Main』を呼び出せばいいのです。Private Sub Com_Start_Click()
Com_Start.Enabled = False
Call Main
Unload UserForm1
End Sub
Com_Start.Enabled = False
'��Call Main
'��Unload UserForm1
'��End Sub
これがそのコードです。
まず�，良�分で、コマンドボタンを『使用不可』の状態に設定しています。
Enabledプロパティは、コントロールが使用できるかできないかを定義するプロパティです。ここに『False』を設定すると、そのコントロールは文字(Captionで設定した文字)が灰色に変わってしまい、使用できなくなります。何度もクリックイベントが発生して、
Mainが複数回呼び出されてしまわないようにするため、１回押された時点でコマンドボタン自体を使用できない状態にしてしまうわけです。次に�◆�これは簡単ですね。
CallでメインプロセスであるMainを呼び出しています。��は、初めて目にするコードかもしれません。
『
Unload』というのはユーザーフォームを閉じなさい、という命令を出します。半角スペースを空けて、対象となるオブジェクトを指定すればいいので、今回は『UserForm1』としておきます。え？ フォームを閉じちゃっていいの？ と思うかもしれませんが、これが実は大丈夫なんです。
�△良�分で『
Main』が呼び出されていますよね。プロシージャの中で別のプロシージャを呼び出した場合は、その処理が終わるまで、��の部分に処理が進むことはありません。Mainの中で終了処理が行われて、完全にMainが終了した時点で��の部分にやっと処理が回ってきます。こうしておけば、先ほどのエスケープキーでの終了処理が行われると、そのままユーザーフォームが閉じるところまで、同時に行われるようになるのですね。あとは、移動処理のところで行ったのと同様に、ユーザーフォームのクエリクロースイベントで、念のため全てのコードが止まるようにします。こうしておけば、ユーザーフォームが閉じられると同時に、確実に全てのプロシージャの処理が止まります。安全ですね。
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
End
End Sub
■ここまでの全コード
かなり長い道のりでした。プライヤーキャラクターを作成したいだけなのに、なんでこんなにやることがてんこ盛りなんでしょうか……。しかし、これで基盤がほぼ完成したと言っていいでしょう。つまり、ここから先はプラモデルのパーツを継ぎ足すがごとく、プロシージャを追加していくだけで良いのです。
長く険しい道のりではありましたが、それだけ、価値のあることができたということでもあります。途中、何度か難しい部分があったはずです。
全てを一度に理解できなくても、ひとつひとつこなしていけば、必ずうまくいくはずです。焦ってはいけません。
とりあえず現段階のコードを全て以下に載せておきます。
全体像と、各プロシージャの役割や構造を、しっかり理解してください。必要に応じて、過去のChapterに戻って復習しながら、基盤をしっかり固めてください。
ここまでの全コード
'標準モジュール先頭部分
'◆API 宣言Declare Function GetTickCount Lib "kernel32" () As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
'■キャラクター 構造体宣言Type Chara
X As Single
Y As Single
W As Single
H As Single
Lif As Long
Typ As Long
Par As Long
End Type
'●キャラクター 変数宣言Public Player_Data As Chara
'▲定数宣言Public Const Left_Key As Long = 37
'カーソル左Public Const Up_Key As Long = 38
'カーソル上Public Const Right_Key As Long = 39
'カーソル右Public Const Down_Key As Long = 40
'カーソル下Public Const Esc_Key As Long = 27
'ＥｓｃキーPublic Const Player_Size As Single = 9
'プレイヤーキャラクターを表す、イメージコントロールの実際の幅(大きさ)
'ただし、あとで使いやすいように２分の１にしておく'初期化を担当するプロシージャSub Init()
With Player_Data
.X = 100
'横位置を画面の中央.Y = 180
'縦位置を画面の下あたり.W = 0
'まだ使用しないので０.H = 0
'まだ使用しないので０.Lif = 1
'存在しているのでライフは０より大きい.Typ = 0
'プレイヤーはタイプ０.Par = 0
'まだ使用しないので０End With
End Sub
'メインプロセスを担当するプロシージャSub Main()
Dim Flg As Boolean
Dim Stm As Long
Call Init
Flg = False
Do Until Flg
Stm = GetTickCount
Call Player_Action
DoEvents
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 30
If GetAsyncKeyState(Esc_Key) < 0 Then Flg = True
Loop
End Sub
'プレイヤーキャラクターを担当するプロシージャSub Player_Action()
With Player_Data
'キー入力判定と移動処理 If GetAsyncKeyState(Left_Key) < 0 Then .X = .X - 3
If GetAsyncKeyState(Up_Key) < 0 Then .Y = .Y - 3
If GetAsyncKeyState(Right_Key) < 0 Then .X = .X + 3
If GetAsyncKeyState(Down_Key) < 0 Then .Y = .Y + 3
'はみだし防止処理 If .X - Player_Size < 0 Then .X = Player_Size
If .X + Player_Size > 200 Then .X = 200 - Player_Size
If .Y - Player_Size < 0 Then .Y = Player_Size
If .Y + Player_Size > 200 Then .Y = 200 - Player_Size
End With
'フォーム上の『Player』を実際に移動する処理 With UserForm1.Player
.Left = Player_Data.X - Player_Size
.Top = Player_Data.Y - Player_Size
End With
End Sub
'標準モジュールはここまで'ここから下はフォームモジュールに記述'コマンドボタンのクリックイベントPrivate Sub Com_Start_Click()
Com_Start.Enabled = False
Call Main
Unload UserForm1
End Sub
'ユーザーフォームのクエリクロースイベントPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
きっとブラウザ上でこのコードを見ると、非常に長く感じると思います。
ですが、VBEに貼り付け(もしくは自力で書く)した後に眺めると、実際はそうでもないです。多分。
プロシージャがそれぞれ切り離されているので、視覚的にはかなり見やすいはずです。『コードの部品化』ということが、どれほど効果的なのかということが、おのずとわかるのではないでしょうか。
ユーザーフォームのほうがしっかり出来ていれば、このコードを適宜貼り付けるだけで、プレイヤーキャラクターが画面上を自由に動くプログラムが完成します。
プログラムを終了したいときは、フォーム上の×ボタンをクリックするか、エスケープキー(Escキー)を押せばいいのですね。いずれの場合も、ユーザーフォームのクエリクロースイベントでコードが止まるので問題ありません。
自由気ままに、プレイヤーキャラクターを動かして遊んでみてください。
すると、勘のいい人なら気がつくはずです。ちょっとおかしい部分があることに……。
その謎は次回解説！ 今回は長すぎましたね。お疲れ様でした。
サンプルダウンロード ⇒ コチラよりダウンロードできます。（別館）
■格言
座標計算を習得しよう
フォームの準備、各種宣言も忘れずに
焦らずひとつひとつこなす。これが今回もポイントになります。
