Visual Basic 6.0 初級講座

Visual Basic 中学校 > VB6 初級講座 >

第１０回　タイマー

今回もコントロールの説明です。前回まではピクチャーボックス、イメージ、テキストボックス、ラベルをよく使う４つのコントロールを説明しました。今回は少し変わったコントロール「タイマー」を説明しましょう。

タイマーのアイコンは下の画像で確認してください。

名前のように時計の絵をしたアイコンだからわかりやすいですね。

１．タイマーの機能

タイマーは「時間を計る」ために使ってもいいのですが、それは普通の使い方ではありません（多分）。普通は一定時間おきにコードを実行させるために使います。

たとえば、フォームにタイマーを張り付けて、タイマーをダブルクリックして次のように打ち込んでください。

それと、プロパティウィンドウで、タイマーのIntervalプロパティを１０００にしてください。

準備ができたら実行すると、１秒ごとにフォームに赤い円が描かれていきます。この「１秒ごと」のように「一定時間ごと」にコードを実行させたいときに使うのがタイマーなのです。

注意：Staticについて

上の例で、Staticというキーワードを使いました。これは　Dim とほとんど同じなのですが、Dimと１つだけ違うところがあって、それは「Staicで宣言した変数の値は記録されている」という点です。このためHANKEIの値が記録されて、１００ずつ大きくなっていくわけです。もし、Dimを使っていたら、このコードを実行するたびにHANKEIの値は０に戻されて、それに毎回１００を足すのだから、いつでも円の半径は１００というおもしろくない結果になってしまいます。

２．タイマーの使い方

タイマーは時間がくると「タイマーイベント」というものを発生させます。このタイマーイベントが発生するとPrivate Sub Timer1_Timer()の部分のコードが実行されるわけです。

そこで、タイマーの使い方はかんたんで「いつタイマーイベントを発生させるか」だけ気にしていればほとんど事足ります。上の例では１秒ごとにタイマーイベントを発生させているのでした。

この設定はタイマーの　Interｖal プロパティで行います。Interval = 1000 の時に「１秒ごと」という意味になります。そこで、Interval = 500 とすると「０．５秒ごと」という意味になります。かんたんですね。

intervalプロパティは１秒の１０００分の１を単位にするのでこの単位を「ミリ秒」といいます。そこでInterval=1とすると「０．００１秒ごと」という意味になるのですが、現代のコンピュータの性能ではこんなにすばやい動きは無理なのでこの場合、Intervalプロパティの値に関わらず０．１秒ごとくらいの早さで実行されます。現代のコンピュータの限界は１秒に１０回程度ということらしいです。（注：私のコンピューターのCPUは５００MHzなので１秒間に５億回の計算ができる。しかし、プログラムでは１行ですむことでもコンピュータは裏で何百回も計算していたりするのである。また、Windowsは同時に複数のアプリケーションを起動することができるので、他のアプリケーションの分を計算している時間もある。何もしていないように見えるときでも実はコンピュータは忙しくしているのだ。こういったいろいろな事情を考えると１秒に１０回くらいのタイマーイベントを発生させるのが限界ということだろう・・・と私は思っている）。

それから、これはタイマー以外のコントロールでもそうですが、Enabledプロパティを使って、タイマーの有効と無効を切り替えることもできます。

３．アニメーション

それでは、タイマーを使ってアニメーションに挑戦しましょう。

まず、画像を３枚用意してください。アニメーションを作るのだから少しずつ違う絵の画像がいいです。たとえば下の画像のような物です。

自分で画像を用意するのが面倒な場合はこの画像を使ってください。（この画像の上で右クリックして　名前を付けて保存　を選ぶと自分のパソコンの中に画像を保存できます。そのときは３枚とも保存してくださいね

なまえは、右から順に　anim1.gif  , anim2.gif , anim3.gif です。自分で画像を書いた場合でも名前はこの３つと同じにすることをおすすめします。画像が用意できたら　Cドライブの下に　anim というフォルダを作ってその中に入れて置いてください。

さて、プログラムに入りましょう。ちょっと複雑ですからよく読んでください。

１．まず、フォームにイメージを１つだけ配置します。

２．そのイメージ(image1)を右クリックして　「コピー」　を押します。

３．フォームを右クリックして　「貼り付け」　を押します。

４．「コントロール配列にしますか？」と聞いてくるので　「はい」をえらびます。

そうすると、あたらしくイメージが配置されるので場所を変えてください。（はじっこのほう）

５．２，３の行為を繰り返して、合計で４個のイメージを作ります。

６．フォームをダブルクリックして次のコードを打ち込んでください。

７．フォームにタイマーを配置します。

８．タイマーのプロパティをプロパティウィンドウから次のようにセットしてください。

Enabledプロパティを　False にする。

Intervalプロパティを　100 にする。

９．タイマーをダブルクリックして次のコードを打ち込んでください。

１０．フォームにコマンドボタンを貼り付けてください。

１１．コマンドボタンをダブルクリックして次のように打ち込んでください。

１２．フォームのWindowStateプロパティを　２　にします。

※この設定をすると、プログラムを実行したときに自動的にフォームが最大化されます。

１３．ピクチャーボックスを１つ配置します。

このピクチャーボックスにアニメーションを表示するので、適当な大きさにしてください。

１４．以上です。おつかれさまでした。

全体のコードは次のようになります。

さぁ、早速実行してみてください。コマンドボタンを押すと、首をふっているアニメーションができましたね？ちょっとぎこちないですが、画像が３枚しかないし、絵も下手なせいです。

プログラムの構造は０．１秒ごとにタイマーイベントを発生させて、コードで画像を入れ替えるという物です。画像には番号がついていてその番号を　Gazou変数　で管理しています。画像は４枚（３枚ではないのだよ）読み込んでいるので　番号は　０〜３までです。もし、画像の番号が４になったら０に戻せという命令が、 If Gazou = 4 Then Gazou = 0になります。

ところで、いつのまに画像に番号がついたのか分かりますか？それは　手順４　でコントロール配列にしたときです。コントロール配列は重要なのでまたいつかやりますが、これはコントロールに番号をつける物です。コントロール配列にしたコントロールは番号で呼び出すことができます。今回は　Image1 をコントロール配列にしたので　Image1(0) や　Image1(1) のように　()の中に番号をいれて呼び出します。そのため、Picture1.Picture = Image1(Gazou).Pictureのようにかんたんに画像を入れ替えられるのです。

それから、最後に注意。画像の入れ替えは素早くやらなければいけません。私は小さな画像を用意したので入れ替えも素早くできましたが、大きな画像を入れ替えるのは時間がかかることでしょう。

それでは、今回はここまでです。

自分でアニメーションを作って楽しんでください。

できたら私にも送って下さいね。では。