Ｃｈａｐｔｅｒ.６３ [ ラジアンの活用：円運動 ]
■ラジアンでなにするの？
前回の講座でラジアンがなんであるかを、なんとなく解説しました。数学的な話なので、私の説明も必ずしも正しくはないかもしれません。しかし、ラジアンは意味よりも使い方が大事です。難しい数学の話は実はどうでもよくて、ラジアンをどのように使えばどんなことができるのか、大切なのはそっちです。
今回は、ラジアンの活用法のひとつとして、簡単な円運動のプログラムを作ってみましょう。今回のサンプルを通して、なんとなくラジアンというものの感触を掴んでいただけたらと思います。
それでは、円運動とは、具体的にはどんな運動でしょう。
辞書に載っている、正確な意味での円運動がどのように表されているかはわかりませんが、今回の講座で取り扱う円運動とは、次のような運動のことを指します。
です。
円には必ず中心があります。皆さん小学生のときにコンパスで円を描きましたよね。そのときのことを思い出してくださいね。
今回のプログラムでは、まず初めに原点となる中心部分を決めてやり、そこを中心とした円を描くような感じで、イメージコントロールを動かしてみます。
■フォームの準備
それではユーザーフォームの準備をしましょう。
とはいっても、イメージコントロールひとつとコマンドボタンがあれば十分です。
このボールの画像をイメージコントロールにロードして、円運動をさせてみましょう。ちなみにこの画像のサイズは36×36ピクセルです。
ユーザーフォームを新規に作成し、イメージコントロールをひとつ配置します。そのイメージコントロールに先ほどの画像をロードしておきましょう。
あとはスタートボタンの役割を果たすコマンドボタンを配置して、ユーザーフォームの準備は完了です。簡単ですね。
こんなかんじです。
■サイン・コサイン
まず、今回のサンプルをすんなり理解するために、サインとコサインについて簡単に書きます。もちろん、数学的な意味よりも、わかりやすさを重視した文面ですので、細かい突っ込みはご勘弁を。
サインとコサインは、『
サインとコサインとは、ズバリ、角度から求められる、縦横の移動量です。
これには、直角三角形を使って考えます。簡単ですから、ちょっとだけつまらない図形を眺めてみてください。
ふたつの三角形が並んでいます。そして、『θ(シータ)』と書かれている部分の角度が異なっています。左側の三角形のθよりも、右側の三角形のθのほうが角度が小さくなっています。
するとどうでしょう、左側の三角形では、辺Aのほうが辺Bよりも長いですね。しかし、右側の三角形では逆に、辺Aのほうが辺Bよりも短くなっています。
このことから、θの角度が変わると、直角三角形の縦の幅と横の幅の比率が変わってくるということがわかりますね。
θの角度が広くなるほど、縦の幅が長くなります。逆に、θの角度が狭くなるほど横の幅が長くなります。
つまり、要約すると次のようになります。
これです。これこそがサインとコサインの正体です。
ある地点から、任意の角度の方向へ移動したいとき、サインとコサインを使うことによって移動する量を求めることができるのです。先ほどの三角形で表すなら、θの部分がどのように変化しても、サインとコサインを使えば辺Aの長さと辺Bの長さがわかるのです。これはつまり、縦に移動する量と横に移動する量がサインとコサインの力で即座にわかるということなのです。これはすごい！ ……ですよね？
どうですか、なんとなく理解できましたでしょうか？
■コードの記述
それでは実際にコードを記述しましょう。
サインとコサインの性質を頭に思い描きながら、コードを見て考えてみてくださいね。
Declare Function GetTickCount Lib "kernel32" () As Long
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Sub RollBall()
Dim Radian As Single
Dim Angle As Long
Dim X As Single
Dim Y As Single
Dim R As Single
Dim FLG As Boolean
Dim C As Long
Dim STIME As Long
Const PI As Single = 3.14159
X = 100
Y = 100
R = 30
FLG = False
C = 0
Do Until FLG
STIME = GetTickCount
C = C + 5
Angle = C Mod 360 + 1
Radian = Angle * PI / 180
With UserForm1.Image1
.Left = X + R * Cos(Radian)
.Top = Y + R * Sin(Radian)
.Left = .Left - .Width / 2
.Top = .Top - .Height / 2
End With
DoEvents
Do
Sleep 1
Loop Until GetTickCount - STIME > 30
Loop
End Sub
Private Sub CommandButton1_Click()
Call RollBall
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
使われている変数がかなり多いですが、赤い字で書かれているコメントをよく見て、各変数の役割をイメージしてください。
まずは�，良�分から。
ここでは、円の中心の位置を決めています。
次に�◆�ここでは、円の半径を決めています。今回は30に設定していますが、この数値を大きくすれば円運動の軌跡も大きくなります。逆にここで設定する数値を小さくすれば、小さな円を描くようにボールが移動するようになります。
��の部分は、一見すると何をやっているのかわかりにくいかもしれません。
ここでは、カウンターの役割を果たす、変数
変数
ここまでで求めた角度を使って、ラジアンを求めているのが�イ任垢諭Ａ芦鵑旅嶌造悩椶擦拭�度数からラジアンへの変換公式が出てきています。
そして、実際の座標を計算しているのが�Δ良�分です。
そして、
■まとめ
今回のサンプルでは、変数に格納する初期値を変更することで、様々な大きさの円を描かせることができます。
例えば、中心の座標を変更したり、描かれる円の大きさを変更したりすることができます。いろいろ値を変更して実行してみると、結構面白いのではないでしょうか。
サインやコサインは、数学的な話になるので非常にとっつきにくく感じます。ですが、今回解説した計算方法さえわかっていれば、あまり突っ込んだ数学的知識はなくても、円運動を処理することができるはずです。
前回のラジアンに関する解説と、今回のサイン・コサインに関する解説を両方理解できれば、数学的なことはよくわからなくても、とりあえず何とかなります。これをどう活用していくのかは、皆さんのセンス次第ということになるでしょう。
別館よりサンプルがダウンロードできますので、実際にどう動くのか興味のある人はそちらを参考に。
サンプルダウンロード ⇒ コチラよりダウンロードできます。（別館）
■格言
サインとコサインは意味よりも
使い方を知ることが大切
ラジアンのときもそうですが、意味を理解するより、使い方をマスターするほうが得です。
前回の講座でラジアンがなんであるかを、なんとなく解説しました。数学的な話なので、私の説明も必ずしも正しくはないかもしれません。しかし、ラジアンは意味よりも使い方が大事です。難しい数学の話は実はどうでもよくて、ラジアンをどのように使えばどんなことができるのか、大切なのはそっちです。
今回は、ラジアンの活用法のひとつとして、簡単な円運動のプログラムを作ってみましょう。今回のサンプルを通して、なんとなくラジアンというものの感触を掴んでいただけたらと思います。
それでは、円運動とは、具体的にはどんな運動でしょう。
辞書に載っている、正確な意味での円運動がどのように表されているかはわかりませんが、今回の講座で取り扱う円運動とは、次のような運動のことを指します。
ある地点を中心として、円を描くように動くこと
です。
円には必ず中心があります。皆さん小学生のときにコンパスで円を描きましたよね。そのときのことを思い出してくださいね。
今回のプログラムでは、まず初めに原点となる中心部分を決めてやり、そこを中心とした円を描くような感じで、イメージコントロールを動かしてみます。
■フォームの準備
それではユーザーフォームの準備をしましょう。
とはいっても、イメージコントロールひとつとコマンドボタンがあれば十分です。
このボールの画像をイメージコントロールにロードして、円運動をさせてみましょう。ちなみにこの画像のサイズは36×36ピクセルです。
ユーザーフォームを新規に作成し、イメージコントロールをひとつ配置します。そのイメージコントロールに先ほどの画像をロードしておきましょう。
あとはスタートボタンの役割を果たすコマンドボタンを配置して、ユーザーフォームの準備は完了です。簡単ですね。
こんなかんじです。
■サイン・コサイン
まず、今回のサンプルをすんなり理解するために、サインとコサインについて簡単に書きます。もちろん、数学的な意味よりも、わかりやすさを重視した文面ですので、細かい突っ込みはご勘弁を。
サインとコサインは、『
sin・cos』と表されることが多いです。これは三角関数の勉強をすると出てきます。三角関数の話とかになると、非常に眠たくなりそうなので、ここではサインとコサインについて、ズバリ言ってしまいます。サインとコサインとは、ズバリ、角度から求められる、縦横の移動量です。
これには、直角三角形を使って考えます。簡単ですから、ちょっとだけつまらない図形を眺めてみてください。
ふたつの三角形が並んでいます。そして、『θ(シータ)』と書かれている部分の角度が異なっています。左側の三角形のθよりも、右側の三角形のθのほうが角度が小さくなっています。
するとどうでしょう、左側の三角形では、辺Aのほうが辺Bよりも長いですね。しかし、右側の三角形では逆に、辺Aのほうが辺Bよりも短くなっています。
このことから、θの角度が変わると、直角三角形の縦の幅と横の幅の比率が変わってくるということがわかりますね。
θの角度が広くなるほど、縦の幅が長くなります。逆に、θの角度が狭くなるほど横の幅が長くなります。
つまり、要約すると次のようになります。
ある点から、任意の方向への移動量を計算するためには、縦の計算には
sinを、横の計算にはcosを使えばよいこれです。これこそがサインとコサインの正体です。
ある地点から、任意の角度の方向へ移動したいとき、サインとコサインを使うことによって移動する量を求めることができるのです。先ほどの三角形で表すなら、θの部分がどのように変化しても、サインとコサインを使えば辺Aの長さと辺Bの長さがわかるのです。これはつまり、縦に移動する量と横に移動する量がサインとコサインの力で即座にわかるということなのです。これはすごい！ ……ですよね？
どうですか、なんとなく理解できましたでしょうか？
■コードの記述
それでは実際にコードを記述しましょう。
サインとコサインの性質を頭に思い描きながら、コードを見て考えてみてくださいね。
'標準モジュールに記述'API宣言Declare Function GetTickCount Lib "kernel32" () As Long
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
'円運動プロシージャSub RollBall()
Dim Radian As Single
'ラジアンDim Angle As Long
'度数Dim X As Single
'原点座標 横位置Dim Y As Single
'原点座標 縦位置Dim R As Single
'円運動の半径Dim FLG As Boolean
'ループ管理フラグDim C As Long
'カウンターとして使うDim STIME As Long
'同期処理を行うために使うConst PI As Single = 3.14159
'円周率X = 100
'��Y = 100
R = 30
'��FLG = False
C = 0
Do Until FLG
STIME = GetTickCount
C = C + 5
'��Angle = C Mod 360 + 1
'��Radian = Angle * PI / 180
'��With UserForm1.Image1
.Left = X + R * Cos(Radian)
'��.Top = Y + R * Sin(Radian)
.Left = .Left - .Width / 2
.Top = .Top - .Height / 2
End With
DoEvents
Do
Sleep 1
Loop Until GetTickCount - STIME > 30
Loop
End Sub
'ここから下はフォームモジュールに記述Private Sub CommandButton1_Click()
Call RollBall
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
使われている変数がかなり多いですが、赤い字で書かれているコメントをよく見て、各変数の役割をイメージしてください。
まずは�，良�分から。
ここでは、円の中心の位置を決めています。
X には中心の横の位置が入ります。そして同様に、 Y には中心の縦の位置が入ります。次に�◆�ここでは、円の半径を決めています。今回は30に設定していますが、この数値を大きくすれば円運動の軌跡も大きくなります。逆にここで設定する数値を小さくすれば、小さな円を描くようにボールが移動するようになります。
��の部分は、一見すると何をやっているのかわかりにくいかもしれません。
ここでは、カウンターの役割を果たす、変数
C の値をループするごとに増やしています。そして次の�い旅圓鮓�てください。ここで、Mod演算子を使って度数を決めていますね。Angle = C Mod 360 + 1
Mod演算とは、割り算の余りを求める計算方法でしたね。つまり、変数 C の値は常にループするごとに増え続けますが、変数 Angle に入る値は『1〜360』の間におさまり続けます。変数
C が１回のループでプラスされる量を増やすと、結果的に角度が早く変化します。ということはつまり、円運動のスピードが速くなります。今回は、5度ずつ動かしていますが、10度ずつ動かしたほうがボールの移動が速くなりますね。ここまでで求めた角度を使って、ラジアンを求めているのが�イ任垢諭Ａ芦鵑旅嶌造悩椶擦拭�度数からラジアンへの変換公式が出てきています。
そして、実際の座標を計算しているのが�Δ良�分です。
.Left = X + R * Cos(Radian)
.Top = Y + R * Sin(Radian)
.Top = Y + R * Sin(Radian)
Sinという関数と、Cosという関数が使われています。これらの関数には、ラジアンでの角度を指定しますので、先ほど計算したラジアンを引数に渡しています。そして、
X と Y は円の中心を表す座標でしたね。そこに、サインやコサインを掛け算した半径をプラスします。こうすることで、座標(X,Y)を中心とした、半径(R)の円を描かせることができます。円運動の計算
横位置を求めるには……
縦位置を求めるには……
横位置を求めるには……
中心の横位置 + 円の半径 * Cos(ラジアンでの角度)縦位置を求めるには……
中心の縦位置 + 円の半径 * Sin(ラジアンでの角度)■まとめ
今回のサンプルでは、変数に格納する初期値を変更することで、様々な大きさの円を描かせることができます。
例えば、中心の座標を変更したり、描かれる円の大きさを変更したりすることができます。いろいろ値を変更して実行してみると、結構面白いのではないでしょうか。
サインやコサインは、数学的な話になるので非常にとっつきにくく感じます。ですが、今回解説した計算方法さえわかっていれば、あまり突っ込んだ数学的知識はなくても、円運動を処理することができるはずです。
前回のラジアンに関する解説と、今回のサイン・コサインに関する解説を両方理解できれば、数学的なことはよくわからなくても、とりあえず何とかなります。これをどう活用していくのかは、皆さんのセンス次第ということになるでしょう。
別館よりサンプルがダウンロードできますので、実際にどう動くのか興味のある人はそちらを参考に。
サンプルダウンロード ⇒ コチラよりダウンロードできます。（別館）
■格言
サインとコサインは意味よりも
使い方を知ることが大切
ラジアンのときもそうですが、意味を理解するより、使い方をマスターするほうが得です。
