第四回 VB講座 画像とタイマー.

Presentation on theme: "第四回 VB講座 画像とタイマー."— Presentation transcript:

1 第四回 VB講座 画像とタイマー

2 座標について（フォーム） 右向き正 原点（ 0, 0 ） 端点 （Me.Width , Me.Height） 下向き正
左上、青いラベルの真下が原点になる。 右方向がx軸の正、下方向がy軸の正となり数学の座標系とは少し違うので注意すること。 Formの大きさはプロパティのsizeを変更することで変えられます。（デフォルト値　300×300） 端点の大きさはMe.Width（横幅）とMe.Height（縦幅）で得られる。 （基本的に、Formの各情報はMe.～で得られます） Me.WidthとMe.Heightは整数値なので、変数への代入や演算に使えます。 端点 （Me.Width , Me.Height） 下向き正

3 座標について（オブジェクト） オブジェクトの原点 (PictureBox1.Left , PictureBox1.Top)
オブジェクトの座標は、どれだけ左or上に動かしたらフォームの原点に戻るか、で示されている。 この「PictureBox1.Left」と「PictureBox1.Top」は整数値として扱えるので、変数への代入や演算に使える。 例えば、 PictureBox1.Left += 5 を実行すると、 PictureBox1.Leftの値が5増えるので、画面上ではPictureBox1が右に5ピクセル移動することになる。 なお、TextBoxやLabelなどの座標も同様に「～.Left」と「～.Top」で取得、変更ができる。 オブジェクトの原点 (PictureBox1.Left , PictureBox1.Top)

4 画像を使おう PictureBoxを使う PictureBoxを画面に配置して、画像を表示させてみよう。 表示できる画像には、
bmp、jpeg、gif、ico、png、wmf などいろんな種類があります。 プロパティのImageという項目を変更することで画像を指定できる。 また、プログラム内でも PictureBox1.Image = Image.FromFile("C:\mikan.jpg") のようにすれば、任意の画像を表示できる。 また、 PictureBox1.Image = Nothing で画像を消去できる。

5 周期的に命令を実行しよう 10ミリ秒ごとに画像を移動させよう まずは、ツールボックスからTimerをみつけて設置しよう。 →Timerの設定
画像を移動させよう。 次の命令をTimerをダブルクリックしてできた部分に書こう。 Intervalはミリ秒で指定するので単位に気をつけること。 Timerは設置しただけでは動かないので、プロパティ内の動作のEnabledをTrueに変更する必要がある。 この作業は、プログラムの設計時にもできるし、命令にて Timer1.Enabled = True ( or Fales) としてやれば、タイマーのオンとオフを切り替えられる。 PictureBox1.Top += 1 PictureNox1.Left += 1

6 あたり判定をしよう みかんが端まで来たら跳ね返そう みかんの座標 ＋ みかんの横幅 ＞＝ Formの横幅（Me.Height）
みかんのX軸に進む方向を逆に みかんの座標　＋　みかんの縦幅　＞＝　Formの縦幅（Me.Width） みかんのY軸に進む方向を逆に みかんの座標　＜＝　FormのX軸原点（具体的な数字で言うと「０」） みかんの座標　＜＝　FormのY軸原点（具体的な数字で言うと「０」） Timer一回につき移動する量（速さ）をXとすると、X軸を正方向に移動するには みかんの座標　＝　みかんの座標　＋　X だが、X軸を負方向に行くにはどうすればいいか？ みかんの座標　＝　みかんの座標　－　X これでいいのかな？ 正解は、 X　＝　－X として、

7 当たり判定をしよう プログラム例 Classの中で Dim X As Integer = 3 Dim Y As Integer = 1
Timerの中で If (mikan.Left + mikan.Width) >= Me.Width Then x = -x End If mikan.Top += y mikan.Left += x