ブロック　パニック

Size: px

Start display at page:

Download "ブロック　パニック"

ちかこりゅうとう
4 years ago
Views:

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

1 ブロックパニック VB プログラムの概要壁が迫り来る不思議な空間のオリジナルゲームブロックパニックを作成するスタートボタンをクリックし上下左右の矢印キーで白猿を移動させるスペースキーを押すと向いて居る方向の壁が後退する左右の壁が合わさるとゲームは終了する一般的に実用プログラムに比較するとゲームプログラムは高度なテクニックを要求される事が多い此処ではゲームプログラムを作成する事に依り楽しみ乍らプログラムの制作手順を習得する事を目的として居る制作手順としては実際の作業過程に従い段階的に機能を追加する方法を採用して居る此のプログラムを土台に更に各自で機能を追加して行く事が望まれる今回の課題項目アプリケーション画面のデザイン ( 標準コントロールの利用 ) プログラムの動作原理 ( イベント駆動型のプログラム ) プログラムの構成要素 ( オブジェクトとプロパティ ) 値の代入 ( 変数オブジェクトのプロパティ ) 条件に応じた処理 (If 文の利用 ) 値に応じた処理 (Select 文の利用 ) 自動的に行われる処理 ( タイマーの利用 ) -1-

オブジェクトプロパティ一覧ラベル 1 ラベル 2 パネルピクチャボックスボタンタイマーコントロールの種類プロパティプロパティの設定値フォーム Name block BackGroundImage block.gif ブロックパニックパネル Name pnlroom Size 600, 300 BackGroundImage back.

2 オブジェクトプロパティ一覧ラベル 1 ラベル 2 パネルピクチャボックスボタンタイマーコントロールの種類プロパティプロパティの設定値フォーム Name block BackGroundImage block.gif ブロックパニックパネル Name pnlroom Size 600, 300 BackGroundImage back.jpg ラベル1 Name lbltitle AutoSize True BackColor Transparent Font HG 創英角ポップ体太字 20 ForeColor Yellow Block Panic ラベル2 Name lbltime AutoSize False BackColor Transparent Font HG 創英角ポップ体太字 18 ForeColor Yellow Align MiddleRight 空白 -2-

3 コントロールの種類プロパティプロパティの設定値ピクチャボックス Name picman BackColor Transparent Image up.gif Location 300, 150 Size 30, 32 ボタン Name btnstart Font HG 創英角ポップ体太字 14 START!! タイマー Name tmrmove Interval 300 使用コントロールフォームアプリケーションウィンドウ又はダイアログボックスと成るウィンドウの事を謂うフォームにはコントロールを配置しフォームとコントロールに関連したプロパティを設定したりコードを記述するピクチャーボックスビットマップアイコンメタファイル JPEG ファイル GIF フィル等の画像を表示するコントロール従来の様に描画メソッドを用いて描画する事は出来ないラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないパネル他のコントロールを内包するコンテナに成る事が出来るコントロールコントロールのグループ分けする場合等に使用するボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるタイマー一定の時間間隔でイベントが発生する様にするコントロール一定時間毎にプログラムを実行したい時に使用する此のコントロールは実行時には表示されない -3-

4 プログラムリスト Public Class block Private B( 19 ), CX, CY, DR As Integer Private P( 19 ) As PictureBox Private G( 3 ) As Bitmap Private TM As DateTime 1 コード記述画面を表示して左記のコードを入力する ' フォームが読み込まれた時の処理 Private Sub block_load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load For I As Integer = 0 To 19 B( I ) = 0 P( I ) = New PictureBox( ) With P( I ).Size = New Size( 600, 30 ).Image = Me.BackgroundImage.Top = ( I Mod 10 ) * 30.Left = IIf( I < 10, ( B( I ) - 20 ) * 30, B( I ) * 30 ).Visible = True End With Me.pnlRoom.Controls.Add( P( I )) Next 2 フォーム上のコントロールを配置して居ない処をダブルクリックしてコード画面を表示し左記のコードを入力する G( 0 ) = New Bitmap( "left.gif" ) : G( 1 ) = New Bitmap( "right.gif" ) G( 2 ) = New Bitmap( "up.gif" ) : G( 3 ) = New Bitmap( "down.gif" ) pnlroom.refresh( ) ' ボタン ( スタート ) がクリックされた時の処理 Private Sub btnstart_( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnstart. For I As Integer = 0 To 19 B( I ) = 0 : P( I ).Left = IIf( I < 10, ( B( I ) - 20) * 30, B ( I ) * 30 ) Next CX = 10 : CY = 5 : DR = 3 picman.location = New Point( CX * 30, CY * 30 ) : TM = DateTime.Now Me.KeyPreview = True : btnstart.enabled = False : tmrmove.enabled = True 3 デザイン画面でボタンをダブルクリックしてコード画面を表示し左記のコードを入力する -4-

5 ' キー入力が為された時の処理 Private Sub block_keydown( ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs ) Handles Me.KeyDown Dim F As Boolean = False Select Case e.keycode Case Keys.Up DR = 2 : If CY > 0 Then CY -= 1 : F = True Case Keys.Down DR = 3 : If CY < 9 Then CY += 1 : F = True Case Keys.Left DR = 0 : If CX > B( CY ) Then CX -= 1 : F = True Case Keys.Right DR = 1 : If CX < 19 - B( CY + 10 ) Then CX += 1 : F = True Case Keys.Space If DR = 0 Then B( CY ) -= 1 : P( CY ).Left = ( B( CY ) - 20 ) * 30 ElseIf DR = 1 Then B( CY + 10 ) -= 1 : P( CY + 10 ).Left = B( CY + 10 ) * 30 End If End Select picman.image = G( DR ) : If F Then picman.location = New Point( CX * 30, CY * 30 ) 4 デザイン画面でイベント画面に切り替える其の後 KeyDown の項目をダブルクリックしてコード記述画面を表示し下記のコードを入力する ' タイマーが一定間隔で行う処理 Private Sub tmrmove_tick( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles tmrmove.tick Dim R1, R2 As Integer Do : R1 = Int( Rnd( ) * 10 ) : Loop While R1 = CY B( R1 ) += 1 : P( R1 ).Left = ( B( R1 ) 20 ) * 30 Do : R2 = Int( Rnd( ) * ) : Loop While R2-10 = CY B( R2 ) += 1 : P( R2 ).Left = B( R2 ) * 30 lbltime. = ( DateTime.Now - TM ).ToString( ) If B( R1 ) + B( R ) = 20 Or B(R2) + B(R2 10 ) = 20 Then tmrmove.enabled = False : Me.KeyPreview = False : btnstart.enabled = True MsgBox( "Game Over" ) End If 5 End Class デザイン画面でタイマーをダブルクリックしてコード画面を表示し左記のコードを入力する -5-

ワンポイントアドバイスイベントプロシージャの作成 (2) 先ず対象と成るコントロールをダブルクリックして其のコントロールの既定のイベントプロシージャを作成する此の方法は最も簡単にイベントプロシージャを作成する方法では有り亦 C# でも同じ方法でイベントプロシージャを作成する事が出来るが此の方法では各コントロールに定められた規定のイベントプロシージャが作成され

6 ワンポイントアドバイスイベントプロシージャの作成 (2) 先ず対象と成るコントロールをダブルクリックして其のコントロールの既定のイベントプロシージャを作成する此の方法は最も簡単にイベントプロシージャを作成する方法では有り亦 C# でも同じ方法でイベントプロシージャを作成する事が出来るが此の方法では各コントロールに定められた規定のイベントプロシージャが作成され正しくイベントを選択する事が出来ない事が有る従って規定のイベントプロシージャを使用する場合を除きイベントプロシージャの作成 (1) で紹介した方法を利用する事を推奨する主要なコントロールの既定のイベントプロシージャを下記に記すコントロール Button CheckBox Label ListBox PictureBox Box Panel RadioButton Timer LineShape 既定イベント CheckedChange SelectedIndexChanged Changed Paint CheckedChange Tick テキストではイベントプロシージャはプロシージャ宣言文で末尾に Handles 句が有る事で判別する事が出来る Handles 句でコントロール名 ( オブジェクト名 ) の後にドット (. ) に続いて記述されて居るのがイベント名で有る -6-

ルーレットプログラム

ルーレットプログラム VB 2005 4 プログラムの概要カジノの代表的なゲームルーレットを作成する先ず GO! ボタンをクリックするとルーレット盤上をボールが回転し一定時間経過するとボールが止まり出目を表示するプログラムを作成する出目を 1~16 大小偶数奇数の内から予想して予め設定した持ち点の範囲内で賭け点を決め賭け点と出目に依り 1 点賭けの場合は 16 倍其他は 2

ブロック パニック

ブロック　パニック