Ｃｈａｐｔｅｒ.３５ [ 移動処理その２：DoEvents ]
■おさらい
今回は、前回の続きです。
前回はキャラクターの移動処理について、その考え方を解説しましたね。テレビアニメの要領で、少しずつキャラクターを移動することが大切だと、解説しました。具体的には、繰り返し処理を使って、１回ループするごとに少しずつキャラクターを動かしていきます。
以前紹介した、『同期処理を取り入れたメインループ』を覚えているでしょうか。これから先、全てこのコードを主軸にすえてコードを記述していきます。これをしっかり理解していないとこれから先に進むのは難しいですので、わからない人は先にこれをしっかり理解しておいてくださいね。これについては以前の講座で詳しく解説しています(Chapter32・Chapter33を参照)。
まずは先述の『同期処理を取り入れたメインループ』を見てみましょう。
このコードのポイントをおさらいしておきましょう。
このコードでは、最初に『
つまり、繰り返し処理を終了したいときには、変数
それからもうひとつ。『１回のループ時間』となっている部分。ここに１回あたりのループ時間を定義します。時間の単位がミリ秒単位となっている点に注意しましょう。
ミリ秒とは１０００分の１秒単位を表します。ですから１秒は１０００ミリ秒です。５秒なら５０００ミリ秒ですね。
１回のループ時間を１秒単位にしたいときには、この『１回のループ時間』に『1000』を指定します。０.５秒単位でループしたいなら『500』です。間違えないようにしましょうね。
それでは実際にキャラクターの移動処理を記述していくことにしましょう。
今回は１回ループするごとに、キャラクターを１ポイントずつ、下に向かって移動する場合を考えてみます。
■繰り返し処理で移動する
今回キャラクターの役割を果たすのは、前回ゲーム画面の左上に配置した『イメージコントロール』です。
このイメージコントロールは、特に名前などを変更していないので、コードで記述するときは『
そして、先ほども書いたように、今回はキャラクターを１ポイントずつ下に向かって移動させます。下に向かって移動するということは、縦方向の移動になります。縦方向の位置情報を管理しているのは『
つまり、１回ループするたびに、
１回のループで移動する距離を大きくすれば、一度に長い距離を動くので、見た目はすばやく移動しているように見えます。反対に、１回のループで移動する距離を小さくすれば、見た目はゆっくり移動しているように見えますね。
今回は、１回のループで、１ポイントずつ移動するようにします。このことををコードで表すと次のようになります。
このように、
ですが、このままでは、プログラムが永遠に止まりません。たとえ画面上からイメージコントロールが見えなくなってしまっても、このままだと計算上はずっと下の方向に動いていってしまいます。
そこで、どういうときに終了するのかを定義しておきます。
今回は、イメージコントロールの縦位置、つまり
先ほども書いたように、メインループが終了する条件は、変数
これで、イメージコントロールの縦位置が、250ポイントより大きくなった時点で、メインループが終了し、結果的に処理が止まるようになります。
さて、とりあえずこれで移動に関する処理はOKです。
ただし、もうひとつ、とても大切なことが残っています。これをキチンとやっておかないと、原因不明の不具合に悩まされることになります。実際、私はよくこれでハマって何時間も悩んだりしました。
■DoEvents様登場
VBAのコードが実行されているときというのは、原則としてプログラムがパソコンの処理を占有しています。
わかりやすく言うと、画面の更新など、通常なら意識しなくても行われているようなパソコンの根本的な処理が、行われないということです。これはどういうことなのでしょうか。
例えば、普段パソコンを使っているとき、ウィンドウのタイトルバーをドラッグしながら動かすと、自由にウィンドウの場所を移動できますよね。フォルダをたくさん同時に開いてしまったときなどは、この機能が非常に便利です。
人間から見るとこの処理は、ただウィンドウが動いているだけです。ですがパソコンから見ると少し違います。
パソコンはこのウィンドウの移動という操作が行われると、いったん今表示されている画面を消してから、移動先に全く同じレイアウトの新しい画面を再表示しています。ユーザーがウィンドウを移動している間ずっと、消して描いて、消して描いて、を繰り返しているのです。
パソコンの根本的な処理とは、例えばこのような処理を言います。そして、VBAのコードが実行されているときというのは、これらの処理が行われなくなってしまうのです。これは困った問題です。
そこで、この問題を回避する方法として『
メインループの中でキチンと
内部的にはキチンと計算などが行われ、設定が変化しています。しかし見た目が変わらないとあっては意味がありません。ループするたびに、きちんと
コードの記述はどこも間違っていないのに、画面上でキャラクターが移動してくれないときなどは、この
これは非常に大切なことです。ついつい忘れてしまいがちなことですから、しっかり覚えておいてくださいね。
■コードの全容
さて、ちょっと前置きが長くなりましたが、メインループに移動処理を加えた、完成版コードを載せます。このコードを、『標準モジュール』に記述しましょう。新しく標準モジュールを準備するときは、メニューの『挿入』から『標準モジュール』を選択すればOKです。これで空の標準モジュールができるはずですから、そこに下のコードを記述すればいいわけです。
ちょっと長いですので大変ですが、ゆっくりひとつひとつ見ていきましょう。
メインループの中で、
以前、
そして�△里箸海蹐如�
��の部分では、イメージコントロールの現在の位置が、250を超えていないかどうかチェックしています。もしもイメージコントロールの縦位置が、250よりも大きなっていた場合には、�い納┐垢茲Δ法▲瓮ぅ鵐襦璽廚僚�了条件である『変数
忘れてはいけないのが�イ良�分。メインループの間は毎回キチンと
�Δ任蓮■渦鵑離襦璽廚鬚匹譴�らいの早さで行うかを設定しています。今回はここで５０ミリ秒を設定しています。５０ミリ秒で１回ループするということは、１秒が１０００ミリ秒ですから、１秒間におよそ２０回ループすることになります。
どうですか？ コードの内容はキチンと理解できたでしょうか。
■仕上げ
さて、最後の仕上げです。
先ほどのコードで、移動処理は完璧です。あとは、ユーザーフォームに設置したコマンドボタンから、このコードが呼び出されるようにすればいいのですね。これはじゃんけんゲームで使ったのと同じ手法です。
コマンドボタンのクリックイベントに、次のように記述しましょう。
これで、コマンドボタンをクリックしたときに、先ほどのコードが呼び出されるようになりました。フォームを実行して表示させコマンドボタンをクリックすれば、赤い機体が下の方向に移動していくはずです。一定の場所に達すると、メッセージが表示され、処理が終了します。
さて、うまくいったでしょうか。
前回と今回の２回で、非常に単純な移動の処理について解説してきました。下に向かって移動するだけという単純な処理でも、結構考えなくてはならないことがたくさんありましたね。
ちょっと面倒な気がしたかもしれませんが、どのような複雑な移動処理であっても、考え方は同じです。今回の内容をしっかり理解していれば、これから先の講座でも、すんなり理解することができるでしょう。
途中、
■格言
１回のループでどのくらい移動するか定義する
どのタイミングで終了するかキチンと定義する
覚えることがたくさんあって大変です。
今回は、前回の続きです。
前回はキャラクターの移動処理について、その考え方を解説しましたね。テレビアニメの要領で、少しずつキャラクターを移動することが大切だと、解説しました。具体的には、繰り返し処理を使って、１回ループするごとに少しずつキャラクターを動かしていきます。
以前紹介した、『同期処理を取り入れたメインループ』を覚えているでしょうか。これから先、全てこのコードを主軸にすえてコードを記述していきます。これをしっかり理解していないとこれから先に進むのは難しいですので、わからない人は先にこれをしっかり理解しておいてくださいね。これについては以前の講座で詳しく解説しています(Chapter32・Chapter33を参照)。
まずは先述の『同期処理を取り入れたメインループ』を見てみましょう。
Sub Main()
Dim Flg As Boolean
Dim Stm As Long
Flg = False
Do Until Flg
Stm = GetTickCount
'ゲームの処理
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > １回のループ時間
Loop
End Sub
Dim Flg As Boolean
Dim Stm As Long
Flg = False
Do Until Flg
Stm = GetTickCount
'ゲームの処理
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > １回のループ時間
Loop
End Sub
このコードのポイントをおさらいしておきましょう。
このコードでは、最初に『
Flg』というBoolean型の変数を宣言していますね。この変数はループの終了を定義する重要な変数です。メインループが始まる前に、まずこの変数にFalseを代入しています。そして、そのあと登場するDo文がメインループになるわけですが、そのメインループの終了条件が『FlgがTrueになったとき』となっています。つまり、繰り返し処理を終了したいときには、変数
FlgにTrueを代入すればいいのですね。それからもうひとつ。『１回のループ時間』となっている部分。ここに１回あたりのループ時間を定義します。時間の単位がミリ秒単位となっている点に注意しましょう。
ミリ秒とは１０００分の１秒単位を表します。ですから１秒は１０００ミリ秒です。５秒なら５０００ミリ秒ですね。
１回のループ時間を１秒単位にしたいときには、この『１回のループ時間』に『1000』を指定します。０.５秒単位でループしたいなら『500』です。間違えないようにしましょうね。
それでは実際にキャラクターの移動処理を記述していくことにしましょう。
今回は１回ループするごとに、キャラクターを１ポイントずつ、下に向かって移動する場合を考えてみます。
■繰り返し処理で移動する
今回キャラクターの役割を果たすのは、前回ゲーム画面の左上に配置した『イメージコントロール』です。
このイメージコントロールは、特に名前などを変更していないので、コードで記述するときは『
Image1』という名前で指定します。これはキチンと覚えておいてくださいね。そして、先ほども書いたように、今回はキャラクターを１ポイントずつ下に向かって移動させます。下に向かって移動するということは、縦方向の移動になります。縦方向の位置情報を管理しているのは『
Topプロパティ』でしたね。つまり、１回ループするたびに、
Image1というイメージコントロールの、Topプロパティを少しずつ変化させればいいわけです。１回のループで移動する距離を大きくすれば、一度に長い距離を動くので、見た目はすばやく移動しているように見えます。反対に、１回のループで移動する距離を小さくすれば、見た目はゆっくり移動しているように見えますね。
今回は、１回のループで、１ポイントずつ移動するようにします。このことををコードで表すと次のようになります。
Image1.Top = Image1.Top + 1
このように、
Image1のTopプロパティに、１を加えて新しく設定し直します。こうすることで、１回ループするたびに、毎回Topプロパティがプラス１ずつ増えていくというわけです。ですが、このままでは、プログラムが永遠に止まりません。たとえ画面上からイメージコントロールが見えなくなってしまっても、このままだと計算上はずっと下の方向に動いていってしまいます。
そこで、どういうときに終了するのかを定義しておきます。
今回は、イメージコントロールの縦位置、つまり
Image1のTopプロパティが、250を超えるところまで移動してみることにしましょう。先ほども書いたように、メインループが終了する条件は、変数
FlgにTrueを代入することです。ですから、Image1のTopプロパティが250を超えたときに、変数FlgにTrueを代入すればいいのです。これをコードで表すと次のようになります。If Image1.Top > 250 Then
Flg = True
End If
Flg = True
End If
If文を使って、縦位置が250を超えているかどうかを毎回チェックします。もし、縦位置が250を超えていた場合には、Do文の終了条件を満たすように設定すればいいわけです。これで、イメージコントロールの縦位置が、250ポイントより大きくなった時点で、メインループが終了し、結果的に処理が止まるようになります。
さて、とりあえずこれで移動に関する処理はOKです。
ただし、もうひとつ、とても大切なことが残っています。これをキチンとやっておかないと、原因不明の不具合に悩まされることになります。実際、私はよくこれでハマって何時間も悩んだりしました。
■DoEvents様登場
VBAのコードが実行されているときというのは、原則としてプログラムがパソコンの処理を占有しています。
わかりやすく言うと、画面の更新など、通常なら意識しなくても行われているようなパソコンの根本的な処理が、行われないということです。これはどういうことなのでしょうか。
例えば、普段パソコンを使っているとき、ウィンドウのタイトルバーをドラッグしながら動かすと、自由にウィンドウの場所を移動できますよね。フォルダをたくさん同時に開いてしまったときなどは、この機能が非常に便利です。
人間から見るとこの処理は、ただウィンドウが動いているだけです。ですがパソコンから見ると少し違います。
パソコンはこのウィンドウの移動という操作が行われると、いったん今表示されている画面を消してから、移動先に全く同じレイアウトの新しい画面を再表示しています。ユーザーがウィンドウを移動している間ずっと、消して描いて、消して描いて、を繰り返しているのです。
パソコンの根本的な処理とは、例えばこのような処理を言います。そして、VBAのコードが実行されているときというのは、これらの処理が行われなくなってしまうのです。これは困った問題です。
そこで、この問題を回避する方法として『
DoEvents』という関数がVBAにはキチンと用意されています。DoEvents関数は、呼び出された瞬間に、オペレーティングシステム(根本的な処理を行う部分)に処理を明け渡します。こうすることによって、ウィンドウの再描画などが正常に行われるようになります。メインループの中でキチンと
DoEvents関数を呼び出すようにしていないと、画面の更新などが正常に行われません。このため、せっかくキャラクターを移動するコードを実行させているのに、画面上の見た目が全く変わらなくなってしまいます。ずーっとキャラクターは最初の位置から動かないわけです。内部的にはキチンと計算などが行われ、設定が変化しています。しかし見た目が変わらないとあっては意味がありません。ループするたびに、きちんと
DoEvents関数を呼び出すようにしておかなくてはいけません。コードの記述はどこも間違っていないのに、画面上でキャラクターが移動してくれないときなどは、この
DoEvents関数の呼び出しを忘れてしまっていることが多いです。画面の更新が行われないわけですから、移動してくれないのは当たり前です。毎回少しずつ移動させるわけですから、DoEvents関数を毎回呼び出すように設定しておきましょう。これは非常に大切なことです。ついつい忘れてしまいがちなことですから、しっかり覚えておいてくださいね。
■コードの全容
さて、ちょっと前置きが長くなりましたが、メインループに移動処理を加えた、完成版コードを載せます。このコードを、『標準モジュール』に記述しましょう。新しく標準モジュールを準備するときは、メニューの『挿入』から『標準モジュール』を選択すればOKです。これで空の標準モジュールができるはずですから、そこに下のコードを記述すればいいわけです。
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Declare Function GetTickCount Lib "kernel32.dll" () As Long
Sub Main()
Dim Flg As Boolean
Dim Stm As Long
Flg = False
Do Until Flg
Stm = GetTickCount
With UserForm1.Image1 '��
.Top = .Top + 1 '��
If .Top > 250 Then '��
MsgBox "移動完了"
Flg = True '��
End If
End With
DoEvents '��
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 50 '��
Loop
End Sub
Declare Function GetTickCount Lib "kernel32.dll" () As Long
Sub Main()
Dim Flg As Boolean
Dim Stm As Long
Flg = False
Do Until Flg
Stm = GetTickCount
With UserForm1.Image1 '��
.Top = .Top + 1 '��
If .Top > 250 Then '��
MsgBox "移動完了"
Flg = True '��
End If
End With
DoEvents '��
Do
Call Sleep(1)
Loop Until GetTickCount - Stm > 50 '��
Loop
End Sub
ちょっと長いですので大変ですが、ゆっくりひとつひとつ見ていきましょう。
メインループの中で、
Withステートメントを使っている部分がありますね。�，良�分です。そこには『With UserForm1.Image1』と記述されています。以前、
Withステートメントについては解説しましたね(Chapter23を参照)。『End With』という記述があるまでは、ピリオドに続けてプロパティを記述するだけで同様の設定を行うことができます。これにより無駄を省き、簡略化することができるのでしたね。そして�△里箸海蹐如�
Image1のTopプロパティを、１回ループするたびに１ポイントずつ増やしていきます。これにより、イメージコントロールの縦位置が、毎回少しずつ下に移動していきます。��の部分では、イメージコントロールの現在の位置が、250を超えていないかどうかチェックしています。もしもイメージコントロールの縦位置が、250よりも大きなっていた場合には、�い納┐垢茲Δ法▲瓮ぅ鵐襦璽廚僚�了条件である『変数
FlgへのTrueの代入』を行います。これで、メインループが終了し、結果的にコードが止まるわけです。忘れてはいけないのが�イ良�分。メインループの間は毎回キチンと
DoEvents関数を呼び出すようにしておきましょう。これがないとキャラクターは移動しているように見えませんからね。�Δ任蓮■渦鵑離襦璽廚鬚匹譴�らいの早さで行うかを設定しています。今回はここで５０ミリ秒を設定しています。５０ミリ秒で１回ループするということは、１秒が１０００ミリ秒ですから、１秒間におよそ２０回ループすることになります。
どうですか？ コードの内容はキチンと理解できたでしょうか。
■仕上げ
さて、最後の仕上げです。
先ほどのコードで、移動処理は完璧です。あとは、ユーザーフォームに設置したコマンドボタンから、このコードが呼び出されるようにすればいいのですね。これはじゃんけんゲームで使ったのと同じ手法です。
コマンドボタンのクリックイベントに、次のように記述しましょう。
Private Sub CommandButton1_Click()
Call Main
End Sub
Call Main
End Sub
これで、コマンドボタンをクリックしたときに、先ほどのコードが呼び出されるようになりました。フォームを実行して表示させコマンドボタンをクリックすれば、赤い機体が下の方向に移動していくはずです。一定の場所に達すると、メッセージが表示され、処理が終了します。
さて、うまくいったでしょうか。
前回と今回の２回で、非常に単純な移動の処理について解説してきました。下に向かって移動するだけという単純な処理でも、結構考えなくてはならないことがたくさんありましたね。
ちょっと面倒な気がしたかもしれませんが、どのような複雑な移動処理であっても、考え方は同じです。今回の内容をしっかり理解していれば、これから先の講座でも、すんなり理解することができるでしょう。
途中、
DoEvents関数の呼び出しなど、とても大切な仕組みが出てきました。焦らず、ひとつひとつ確実に覚えていってください。■格言
１回のループでどのくらい移動するか定義する
どのタイミングで終了するかキチンと定義する
DoEvents関数をキチンと呼び出す覚えることがたくさんあって大変です。
