Visual Basic 6 キーボード入力操作 鬼ごっこゲーム (復習)問題 上下左右ボタンを使用して四角形(Shape1)を自由 に動かすプログラムを作成しよう!! (ヒント) Ifステートメントを利用します。 KeyCodeを利用します。 Shape1.Leftを使用します。 Shape1.Left = Shape1.Left + ?? Shape1.Left = Shape1.Left - ?? Shape1.Topを使用します。 Shape1.Top = Shape1.Top + ?? Shape1.Top = Shape1.Top - ?? (復習)解答 次のように記述する 右へ移動 左へ移動 上へ移動 下へ移動 鬼ごっこゲーム 鬼ごっこのように、迫ってくる四角形からキー ボードで操作して逃げ続けるような仕組みを 作ってみよう!! 用意するもの 四角形1(Shape1) キーボードで上下左右に動くようにプログラムする 四角形2(Shape2) & Timerコントロール Timer1_Timerの中に、四角形2が四角形1を追いか けるように動作するようプログラムする 鬼ごっこゲーム(レイアウト) 次のようにコントロールを配置 ①PictureBoxを配置 ②Shape1を配置 ③Shape2を配置 ④Timerを配置 鬼ごっこゲーム(逃げ役) 上下左右の動きを設定(昨日の復習) 右へ移動 左へ移動 上へ移動 下へ移動 鬼ごっこゲーム(追いかける役) Timerコントロールのプロパティを確認 Intervalプロパティの値を適宜設定 Enabledプロパティの値は、Trueに設定 Timerコントロールのイベントを作成 Timerコントロールをダブルクリック ここに四角形2を動かす処理を記述する 鬼ごっこゲーム(位置関係の確認) 2つの位置関係はどのように確認すれば良い ですか? 動きたい方向 鬼ごっこゲーム(位置関係の確認) (上下方向)2つの位置関係はどのように確 認すれば良いですか? Shape1.Top Shape2.Top この位置関係を比較して、 Shape2を動かす方向を決 定すれば良い!! 鬼ごっこゲーム(位置関係の確認) 四角形2が下にいるとき If 四角形1よりも四角形2が下 Then 四角形2を上に動かす End If 四角形2が上にいるとき If 四角形1よりも四角形2が上 Then 四角形2を下に動かす End If 鬼ごっこゲーム(位置関係の確認) 四角形2が下にいるとき If Shape1.Top < Shape2.Top Then Shape2.Top = Shape2.Top - 120 End If 四角形2が上にいるとき If Shape1.Top > Shape2.Top Then Shape2.Top = Shape2.Top + 120 End If 鬼ごっこゲーム(位置関係の確認) (左右方向)2つの位置関係はどのように確 認すれば良いですか? Shape1.Left この位置関係を比較して、 Shape2を動かす方向を決 定すれば良い!! Shape2.Left 鬼ごっこゲーム(位置関係の確認) 四角形2が右にいるとき If 四角形1よりも四角形2が右 Then 四角形2を左に動かす End If 四角形2が左にいるとき If 四角形1よりも四角形2が左 Then 四角形2を右に動かす End If 鬼ごっこゲーム(位置関係の確認) 四角形2が右にいるとき If Shape1.Left < Shape2.Left Then Shape2.Left = Shape2.Left - 120 End If 四角形2が左にいるとき If Shape1.Left > Shape2.Left Then Shape2.Left = Shape2.Left + 120 End If 鬼ごっこゲーム(位置関係の確認) 次のように記述すればよい 鬼が下にいるとき 鬼が上にいるとき 鬼が右にいるとき 鬼が左にいるとき
© Copyright 2024 ExpyDoc