Shape1.Left

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 - ??
（復習）解答
次のように記述する
右へ移動
左へ移動
上へ移動
下へ移動
鬼ごっこゲーム
鬼ごっこのように、迫ってくる四角形からキー
ボードで操作して逃げ続けるような仕組みを
作ってみよう！！
用意するもの
四角形１（Shape1）
キーボードで上下左右に動くようにプログラムする
四角形２（Shape2）＆ Timerコントロール
Timer1_Timerの中に、四角形２が四角形１を追いか
けるように動作するようプログラムする
鬼ごっこゲーム（レイアウト）
次のようにコントロールを配置
①PictureBoxを配置
②Shape1を配置
③Shape2を配置
④Timerを配置
鬼ごっこゲーム（逃げ役）
上下左右の動きを設定（昨日の復習）
右へ移動
左へ移動
上へ移動
下へ移動
鬼ごっこゲーム（追いかける役）
Timerコントロールのプロパティを確認
Intervalプロパティの値を適宜設定
Enabledプロパティの値は、Trueに設定
Timerコントロールのイベントを作成
Timerコントロールをダブルクリック
ここに四角形２を動かす処理を記述する
鬼ごっこゲーム（位置関係の確認）
２つの位置関係はどのように確認すれば良い
ですか？
動きたい方向
鬼ごっこゲーム（位置関係の確認）
（上下方向）２つの位置関係はどのように確
認すれば良いですか？
Shape1.Top
Shape2.Top
この位置関係を比較して、
Shape2を動かす方向を決
定すれば良い！！
鬼ごっこゲーム（位置関係の確認）
四角形２が下にいるとき
If 四角形１よりも四角形２が下 Then
四角形２を上に動かす
End If
四角形２が上にいるとき
If 四角形１よりも四角形２が上 Then
四角形２を下に動かす
End If
鬼ごっこゲーム（位置関係の確認）
四角形２が下にいるとき
If Shape1.Top < Shape2.Top Then
Shape2.Top = Shape2.Top - 120
End If
四角形２が上にいるとき
If Shape1.Top > Shape2.Top Then
Shape2.Top = Shape2.Top + 120
End If
鬼ごっこゲーム（位置関係の確認）
（左右方向）２つの位置関係はどのように確
認すれば良いですか？
Shape1.Left
この位置関係を比較して、
Shape2を動かす方向を決
定すれば良い！！
Shape2.Left
鬼ごっこゲーム（位置関係の確認）
四角形２が右にいるとき
If 四角形１よりも四角形２が右 Then
四角形２を左に動かす
End If
四角形２が左にいるとき
If 四角形１よりも四角形２が左 Then
四角形２を右に動かす
End If
鬼ごっこゲーム（位置関係の確認）
四角形２が右にいるとき
If Shape1.Left < Shape2.Left Then
Shape2.Left = Shape2.Left - 120
End If
四角形２が左にいるとき
If Shape1.Left > Shape2.Left Then
Shape2.Left = Shape2.Left + 120
End If
鬼ごっこゲーム（位置関係の確認）
次のように記述すればよい
鬼が下にいるとき
鬼が上にいるとき
鬼が右にいるとき
鬼が左にいるとき

Download Report