インベーダープログラム

Size: px

Start display at page:

Download "インベーダープログラム"

はすなかみこ
4 years ago
Views:

インベーダーゲーム VB 2005 5 プログラムの概要テレビゲームの流行の魁と成る懐かしのゲームインベーダーを作成する先ず FIGHT!

1 インベーダーゲーム VB プログラムの概要テレビゲームの流行の魁と成る懐かしのゲームインベーダーを作成する先ず FIGHT!! ボタンをクリックするとインベーダーが左右に移動し乍ら降下して来るので自機を左右のカーソルキーで移動させスペースキーでミサイルを発射するインベーダーが最終ライン迄降下して侵略される前に総てのインベーダーを撃墜しなければゲームは終了する此処ではゲームプログラムを作成する事に依り楽しみ乍らプログラムの制作手順を習得する事を目的として居る制作手順としては実際の作業過程に従い段階的にを追加する方法を採用して居る今回の課題項目アプリケーション画面のデザイン ( 標準コントロールの利用 ) プログラムの動作原理 ( イベント駆動型のプログラム ) プログラムの構成要素 ( オブジェクトとプロパティ ) 値の代入 ( 変数オブジェクトのプロパティ ) 値の演算 ( 算術演算子 ) 条件に応じた処理 (If 文の利用 + If 文のネスト ) 自動的に行われる処理 ( 複数のタイマーの利用 ) サブルーチン ( ジェネラルプロシージャ ) -1-

オブジェクトプロパティ一覧フォームラベル 1 ラベル 2 ピクチャボックス 1 ピクチャボックス 2 ピクチャボックス 4 ピクチャボックス 3 タイマー 1 タイマー 2 ボタンコントロールの種類プロパティプロパティの設定値フォームオブジェクト名 invader FormBorderStyle FixedSingle KeyPreview True MaximizeBox

2 オブジェクトプロパティ一覧フォームラベル 1 ラベル 2 ピクチャボックス 1 ピクチャボックス 2 ピクチャボックス 4 ピクチャボックス 3 タイマー 1 タイマー 2 ボタンコントロールの種類プロパティプロパティの設定値フォームオブジェクト名 invader FormBorderStyle FixedSingle KeyPreview True MaximizeBox False StartPosition CenterScreen Text インベーダーパネル Name pnlsky BackgroundImage cloud.gif( 非常に遅く成るので確認後削除 ) Size 500, 300 ピクチャボックス1 Name picbase0 Image invader1.gif Size 24, 16 Visible False ピクチャボックス2 Name picbase1 Image invader2.gif Size 24, 16 Visible False -2-

3 コントロールの種類プロパティプロパティの設定値ピクチャボックス3 Name picgun BackColor TransParent Image gun.gif Location 230, 260 Size 24, 20 ピクチャボックス4 Name picmissil BackColor TransParent Image missil.gif Location 240, 244 Size 5, 16 ラベル1 Name lblscore AutoSize False BackColor Transparent Font MS 明朝太字 12 Size 100, 19 TextAlign MiddleRight ラベル2 Name lblmes AutoSize rue BackColor Transparent ForeColor Red Font HG 創英角ポップ体太字 20 Text Game Over ボタン Name btnstart Font MS 明朝太字 12 Text FIGHT!! タイマー 1 Name tmrmove Interval 500 タイマー 2 Name tmrmissil Interval 100 デザイン時の注意ピクチャボックス 3 とピクチャボックス 4 及びラベル 1 とラベル 2 は必ずパネルの内部に配置する事一旦パネルの外部に配置した後パネルの上に移動しようと仕てもパネルの背面に隠れて前面に現れ無い事が有る其の為ツールボックスでピクチャボックスやラベルを選択した後パネルの上でドラッグして配置すると良い -3-

4 プログラムリスト Public Class invader ' フォームクラスレベルでグローバルな変数の宣言 Private IX, IY, DR, GX, GY, SC As Integer Private Iv( 11 ) As Label 1 コード記述画面を表示して左記のコードを入力する Private Sub invader_load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load For I As Integer = 0 To 11 Iv( I ) = New Label( ) Iv( I ).Size = New Size( 24, 20 ) Iv( I ).BackColor = Color.Transparent Iv( I ).Image = picbase0.image Me.pnlSky.Controls.Add( Iv( I )) Next Call GameInit( True ) ' ゲームを初期化するジェネラルサブププロシージャ Private Sub GameInit( ByVal F As Boolean ) For I As Integer = 0 To 11 Iv( I ).Visible = True Next IX = 0 : IY = 0 : DR = 1 : Call DispInvader( ) If F Then GX = 230 : GY = 260 : Call DispGun( ) : SC = 0 lblmes.visible = False 2 フォーム上のコントロールを配置して居ない処をダブルクリックしてコード記述画面を表示し左記のコードを入力する 3 上記 1 と同様にコード記述画面を表示して左記のコードを記述する ' インベーダを表示するジェネラルサブププロシージャ Private Sub DispInvader( ) Dim X As Integer = IX * Dim Y As Integer = IY * For I As Integer = 0 To 11 If IX Mod 2 = 0 Then Iv( I ).Image = picbase0.image Else Iv( I ).Image = picbase1.image Iv( I ).Left = X + ( I Mod 4) * 30: Iv( I ).Top = Y + ( I 4 ) * 20 Application.DoEvents( ) Next ' 砲台を表示するジェネラルサブププロシージャ Private Sub DispGun( ) picgun.setbounds( GX, GY, 24, 20 ) 4 上記 1 と同様にコード記述画面を表示して左記のコードを記述する 5 上記 1 と同様にコード記述画面を表示して左記のコードを記述する ' ゲームオーバー時のジェネラルサブププロシージャ Private Sub GameOver( ) tmrmove.enabled = False: btnstart.enabled = True lblmes.visible = True: picmissil.visible = False 6 上記 1 と同様にコード記述画面を表示して左記のコードを記述する -4-

5 ' ボタン (FIGHT!!) がクリックされた時の処理 Private Sub btnstart_click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnstart.click Call GameInit( True ) btnstart.enabled = False tmrmove.enabled = True ' タイマーが一定間隔で行う処理 ( インベーダの移動 ) Private Sub tmrmove_tick( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles tmrmove.tick IX = IX + DR If IX > 12 OrElse IX < 0 Then IX -= DR : IY += 1 : DR *= ( -1 ) If IY > 9 Then Call GameOver( ) Call DispInvader( ) ' キー入力が行われた時の処理 Private Sub invader_keyup( ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs ) Handles Me.KeyUp Dim K As Integer = e.keycode Select Case K Case Keys.Right, Keys.Left GX += ( K = Keys.Left ) * 10 - ( K = Keys.Right ) * 10 If GX > 476 Then GX = 476 : Exit Sub If GX < 0 Then GX = 0 : Exit Sub Call DispGun( ) Case Keys.Space If Not picmissil.visible Then picmissil.top = 244: picmissil.left = GX + 10 picmissil.visible = True: tmrmissil.enabled = True End Select Application.DoEvents( ) ' タイマーが一定間隔で行う処理 ( 砲弾の移動 ) Private Sub tmrmissil_tick( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles tmrmissil.tick picmissil.top -= 10 If picmissil.top < 0 Then tmrmissil.enabled = False: picmissil.visible = False Else Dim MT As Integer = picmissil.top Dim ML As Integer = picmissil.left For I As Integer = 0 To 11 If Not Iv( I ).Visible Then Continue For If MT > Iv( I ).Top And MT < Iv( I ).Top + 20 Then If ML > Iv( I ).Left AndAlso ML < Iv( I ).Left + 24 Then tmrmissil.enabled = False: Iv(I).Visible = False picmissil.visible = False: SC += 1 : lblscore.text = SC Application.DoEvents( ) If SC Mod 12 = 0 Then Call GameInit( False ) Exit For Next End Class 7 デザイン画面でボタンをダブルクリックしてコード記述画面を表示し左記のコードを入力する 8 デザイン画面でタイマーをダブルクリックしてコード記述画面を表示し左記のコードを入力した後実行する 9 デザイン画面でフォームを選択しプロパティ画面をイベント画面に切り替える其の後 KeyUp の項目をダブルクリックしてコード記述画面を表示し左記のコードを入力する 10 デザイン画面でタイマーをダブルクリックしてコード記述画面を表示し左記のコードを入力した後実行する -5-

6 Control クラスの Size プロパティコントロールの高さと幅を取得設定する Control.Size = New Size( 幅, 高さ ) Size プロパティはコントロールの高さと幅をピクセル単位で表す Size 構造体で有る但し此のプロパティを取得してもコピー値が返される為幅や高さを変更してもコントロールのサイズは変更されないコントロールのサイズを設定するには下記の様に Size クラスのコンストラクタを使用して設定する例えばラベル (lblscore) を幅 100 ピクセル高さ 19 ピクセルに設定する例を下記に示す lblscore.size = New Size(100, 19) 猶下記の様に Width プロパティ ( 幅 ) と Height プロパティ ( 高さ ) を使用してサイズを設定しても良い lblscore.width = 100 lblscore.height = 19 Control クラスの Visible プロパティコントロールが表示されて居るか何うかを示す値を取得設定する Control.Visible = ブール値コントロールが表示されて居る場合は True 表示されて居ない場合は False を返す ( 既定値は True) 亦 True を設定すればコントロールは表示され False を設定すればコントロールは非表示に成る猶非表示 (False) の場合はコントロール自体が存在しない物と仕て処理される ( クリックしてもイベントが発生しない等 ) Control クラスの Enabled プロパティコントロールがユーザーとの対話に応答出来るか何うかを示す値を取得設定する Control.Enabled = ブール値コントロールがユーザーとの対話に応答出来る場合は True 出来ない場合は False を返す ( 既定値は True) 亦 True を設定すればコントロールはユーザーとの対話に応答出来る様に成り False を設定すればコントロールは出来なく成る猶コントロールが Timer コントロールの場合はタイマが実行されて居るか何うかを示す値を取得設定する -6-

7 Control クラスの Location プロパティコンテナの左上隅に対する相対座標でコントロールの左上隅の座標をを取得設定する Control.Location = New Point( 上からの距離, 左からの距離 ) Location プロパティはコントロールの左上隅をコンテナの左上隅に対して相対的に表す Point 型で有る但し此のプロパティを取得してもコピー値が返される為夫々の距離を変更してもコントロールの位置は変更されないコントロールの位置を設定するには下記の様に Point クラスのコンストラクタを使用して設定する例えばラベル (lblscore) 上からの距離 100 ピクセル左からの距離 50 ピクセルに設定する例を下記に示す lblscore.location = New Point(100, 50) 猶下記の様に Top プロパティ ( 上からの距離 ) と Left プロパティ ( 左からの距離 ) を使用して位置を設定しても良い lblscore.top = 100 lblscore.left = 50 Control.ControlCollection クラスの Add メソッド指定したコントロールをコントロールコレクションに追加する Control.Controls.Add( コントロール ) 或るコントロールのコントロールコレクションの末尾に他のコントロールを追加するコントロールは複数のコントロールコレクションに割り当てる事は出来ない為追加するコントロールが既に他のコントロールの子コントロールで有る場合は別のコントロールに追加される前に其のコントロールから削除される猶コントロールのインスタンスを生成してもフォームやフォーム上のコントロールの孰れかに追加しなければ画面に表示されない亦通常はコンテナと成れないコントロール ( ラベルやピクチャボックス等 ) でも Add メソッドを使用するとコンテナと成り子コントロールを内包する事が出来る Control クラスの SetBounds メソッドコントロールを指定した位置とサイズに設定する Control.SetBounds( X 座標, Y 座標, 幅, 高さ ) コントロールの Location と Size を一度に設定する -7-

8 Application クラスの DoEvents メソッド現在メッセージキューに有る Windows メッセージを総て処理する Application.DoEvents( ) プログラムが保持して居る制御を OS に戻す画面の更新 ( 再描画 ) 等は OS が行うがループ処理中等はプログラムが制御を占有する為 OS に制御が戻らず画面の更新が行われない場合が有る此の様な場合は Application クラスの DoEvents メソッドを使用して明示的に制御を OS に戻す必要が有るサブルーチン ( ジェネラルプロシージャ ) の利用サブルーチン (Subroutine) はプログラミングに於いてコード中で何度も必要とされる定型的な処理を 1 個のコードブロックに纏めて外部から呼び出せる様にした物を謂う呼び出す側のメインルーチンと対比してサブルーチンと呼ばれるプログラムのソース中で繰り返し現れる処理をサブルーチン化する事で可読性や保守性を高める事が出来る猶繰り返し現れる作業でなくても意味的な纏まりを示す為にサブルーチン化する事も有り此れがオブジェクト指向へと進化して居るサブルーチンを呼び出す際に動作を指定する設定値を与える場合が有り此の値を引数 ( パラメータ ) と呼ぶ亦実行後に呼び出し元のプログラムに処理結果のデータ等を返す場合が有り此の値を戻り値と謂う戻り値の有るサブルーチンを特に関数 ( ファンクション ) と呼ぶ事が有る Visual Basic では Sub で定義されたコードブロックをサブプロシージャ (Sub Procedure) Function で定義されたコードブロックをファンクションプロシージャ (Function Procedure) と謂う更にサブプロシージャにはコントロールのイベント時に呼び出されるイベントプロシージャと明示的にコードで呼び出されないと実行されないジェネラルプロシージャが有る狭義の意味では此のジェネラルプロシージャがサブルーチンで有るイベントプロシージャは通常引数リスト ( 括弧内に記述 ) の後に Handles 句が有りコントロールの種類とイベントの種類が指定して有る ( 但し AddHandler ステートメントでハンドルを追加して居る場合は此の記述が無い事も有る ) 亦引数リストにイベントを発生させたコントロールへの参照が格納された sender と謂う引数とイベント固有の情報が格納された e と謂う引数が有る此れに対してジェネラルプロシージャにはイベントと結び付かないので Handles 句が無い亦引数も必要に応じて任意のデータ型で任意の個数を指定する事が出来る例えば GameInit のサブルーチン ( ジェネラルプロシージャ ) ではゲーム開始時か 1 面クリア時かを区別する為に引数にブール型の F と謂う引数を用いて居る此の値をゲーム開始時には True 1 面クリア時には False に設定して砲台を描き直すか何うかの区別を仕て居る -8-

ブロック　パニック

ブロック　パニックブロックパニック VB 2005 9 プログラムの概要壁が迫り来る不思議な空間のオリジナルゲームブロックパニックを作成するスタートボタンをクリックし上下左右の矢印キーで白猿を移動させるスペースキーを押すと向いて居る方向の壁が後退する左右の壁が合わさるとゲームは終了する一般的に実用プログラムに比較するとゲームプログラムは高度なテクニックを要求される事が多い此処ではゲームプログラムを作成する事に依り