ウォームアップ講座　17～30

(1)

プログラムの概要

子供でも出来るカードゲーム『神経衰弱』です。画面上の『開始』ボタンをクリックすると、ゲームが開始する。カードを 2 枚クリックして、何回で総てを揃えられるかを競う。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

紛らわしい神経衰弱

VB 2005 ⑰ □ アプリケーション画面のデザイン（標準コントロールの利用） □ プログラムの動作原理（イベント駆動型のプログラム） □ プログラムの構成要素（オブジェクトとプロパティ） □ 値の代入（変数、オブジェクトのプロパティ） □ グラフィックスの利用（Graphics オブジェクト） □ 条件に応じた処理（If 文の利用） □ 自動的に行われる処理（タイマーの利用）今回の課題項目

(2)

コントロールの種類プロパティプロパティの設定値フォーム Name breakdown FormBorderStyle FixedSingle Size 880, 848 StartPosition CenterScreen Text 紛らわしい神経衰弱ピクチャボックス１～２２ Name picCard00～picCard21 Image back.gif Size 140, 200 ラベル１ Name lblMes BackColor Red Font ＭＳ明朝,、１４、太字 ForeColor White Text 空白 TextAlign MiddleCenter ラベル２ Name lblTotal Font ＭＳ明朝,、１４、太字 Text 回数：00 回ボタン Name btnStart Text 開始ボタン

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

ラベル２ラベル１

picCard00 picCard01 picCard02 picCard03 picCard04 picCard05 picCard06 picCard07 picCard08 picCard09 picCard10 picCard11 picCard12 picCard13 picCard14 picCard15 picCard16 picCard17 picCard18 picCard19 picCard20 picCard21

ピクチャボックス２２個

(3)

Public Class breakdown Private N( ) As String = _

{ "おそ松", "一松", "カラ松", "チョロ松", "トド松", "十四松", _ "ハタ坊", "チビ太", "イヤミ", "トト子", "デカパン"}

Private B( 11 ) As Bitmap

Private C( 21 ), Opn( 1 ), Cnt, Obt As Integer Private P( 21 ) As PictureBox

' ピクチャボックス（カード）がクリックされた時の処理

Private Sub CardClick( ByVal sender As System.Object, ByVal e As System.EventArgs ) If btnStart.Enabled Then Exit Sub

Dim S As PictureBox = DirectCast( sender, PictureBox ) Dim I As Integer = Val( S.Name.Substring( 7, 2 )) If Cnt = 0 Then Opn( 0 ) = I : Cnt = 1 Else If I = Opn( 0 ) Then Exit Sub Else Opn( 1 ) = I : Cnt = 2 End If End If

P( I ).Image = B( C( I )) : lblMes.Text = N( C( I )) : Application.DoEvents( ) If Cnt = 2 Then

lblTotal.Text = "回数：" & (Val(lblTotal.Text.Substring(3, 2)) + 1).ToString("00") & " 回" System.Threading.Thread.Sleep( 2000 )

If C( Opn( 0 )) = C( Opn( 1 )) Then

P( Opn( 0 )).Visible = False : P( Opn( 1 )).Visible = False Obt += 1 : If Obt = 11 Then btnStart.Enabled = True Else

P( Opn( 0 )).Image = B( 11 ) : P( Opn( 1 )).Image = B( 11 ) End If Cnt = 0 End If End Sub ' フォームが読み込まれた時の処理

Private Sub breakdown_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load

' 画像の読込

For I As Integer = 0 To 10

B( I ) = New Bitmap( "char" & I.ToString( "00" ) & ".gif" ) Next

B( 11 ) = New Bitmap( "back.gif" )

' コントロールの配列化とイベントハンドラの追加 For I As Integer = 0 To 21

P( I ) = Me.Controls( "picCard" & I.ToString( "00" )) AddHandler P( I ).Click, AddressOf CardClick Next Randomize( ) End Sub

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。３フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。２上記１と同様に、コード記述画面を表示して、左記のコードを記述する。

(4)

' ボタン（開始）がクリックされた時の処理

Private Sub btnStart_Click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnStart.Click Dim I, W, R1, R2 As Integer ' カードの初期化 For I = 0 To 20 Step 2 C( I ) = I ¥ 2 : C( I + 1 ) = I ¥ 2 Next ' カードのシャッフル For I = 1 To 100 R1 = Int( Rnd( ) * 22 ) : R2 = Int( Rnd( ) * 22 ) W = C( R1 ) : C( R1 ) = C( R2 ) : C( R2 ) = W Next ' カードの表示 For I = 0 To 21

P( I ).Image = B( 11 ) : P( I ).Visible = True Next

lblTotal.Text = "回数：00 回"

Cnt = 0 : Obt = 0 : btnStart.Enabled = False End Sub End Class ４デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(5)

プログラムの概要

パーティや地蔵盆で良く行われるゲーム『ビンゴ』です。７６枚用と１００枚用の２種類を選択する事が出来ます。遊び方は、特に説明する必要は無いでせう。ビンゴカードを印刷する機能を備えた拡張版も用意してますので、参考に仕て下さい。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

ビンゴ

VB 2005 ⑱ □ アプリケーション画面のデザイン（標準コントロールの利用） □ プログラムの動作原理（イベント駆動型のプログラム） □ プログラムの構成要素（オブジェクトとプロパティ） □ 値の代入（変数、オブジェクトのプロパティ） □ グラフィックスの利用（Graphics オブジェクト） □ 条件に応じた処理（If 文の利用） □ 自動的に行われる処理（タイマーの利用）今回の課題項目

(6)

コントロールの種類プロパティプロパティの設定値フォーム Name bingo BackColor Black FormBorderStyle FixedSingle Size 1034, 682 StartPosition CenterScreen Text BINGO ピクチャボックス Name picBINGO Image bingo.gif Location 784, 12 Size 222, 142 ラベル Name lblHit BackColor White Font ＭＳゴシック、１２０、太字 Location 780, 166 Size 230, 182 Text 空白 TextAlign MiddleCenter ボタン Name btnStart BackColor Silver

Font Times New Roman、１８、太字

Location 780, 372 Size 232, 123 Text START タイマー Name tmrGO ラジオボタン１ Name rad75 ラジオボタン２ Name rad99 ボタン

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

ラジオボタン１グループボックスピクチャボックスラジオボタン２タイマーラベル

(7)

Public Class bingo

Private Num( 99 ) As Integer Private Cnt As Integer Private Lmt As Integer Private Pre As Integer

Private lblNumber( 99 ) As Label

' ゲームを初期化するジェネラルプロシージャ Private Sub GameInit( )

Dim I, R1, R2, W As Integer ' 前出番号の初期化 Pre = -1 ' 番号の初期化 For I = 0 To 99

Num( I ) = I : lblNumber( I ).ForeColor = Color.White Next I

' シャッフル

For I = 1 To 200

R1 = Int( Rnd( ) * Lmt ) : R2 = Int( Rnd( ) * Lmt )

W = Num( R1 ) : Num( R1 ) = Num( R2 ) : Num( R2 ) = W Next I

End Sub

' フォームが読み込まれた時の処理

Private Sub bingo_Load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load

' 画面の初期化

For I As Integer = 0 To 99 lblNumber( I ) = New Label( ) With lblNumber( I )

.Size = New Size( 70, 45 )

.Location = New Point(( I Mod 10) * 72 + 26, ( I ¥ 10 ) * 62 + 22 ) .BackColor = Color.Black

.ForeColor = Color.White

.TextAlign = ContentAlignment.MiddleRight

.Font = New Font( "ＭＳゴシック", 36.0!, FontStyle.Bold ) .Text = I.ToString( ) .Visible = True Me.Controls.Add( lblNumber( I )) End With Next ' ゲームの初期化

Randomize( ) : Lmt = 100 : Call GameInit( ) End Sub

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。２上記１と同様に、コード記述画面を表示して、左記のコードを記述する。３フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。画面に 1 桁しか表示されない環境では、フォントのサイズを小さくする（30.0 位）。

(8)

' ラジオボタン（範囲）の選択状態が変化した時の処理

Private Sub RadioButtonCheckedChanged( ByVal sender As System.Object, _ ByVal e As System.EventArgs ) Handles rad75.CheckedChanged

If sender Is rad75 Then Lmt = 76 Else Lmt = 100 End If Call GameInit( ) End Sub ' ボタン（スタート）がクリックされた時の処理

Private Sub btnStart_Click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btnStart.Click

If btnStart.Text = "START" Then Cnt = 0 tmrGO.Interval = 100 tmrGO.Enabled = True Else Call GameInit( ) btnStart.Text = "START" End If End Sub ' タイマーが一定間隔で行う処理

Private Sub tmrGO_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles tmrGO.Tick Dim R, N, I As Integer R = Int( Rnd( ) * Lmt ) N = Num( R )

If Not Pre < 0 Then

lblNumber( Pre ).ForeColor = Color.White End If

lblNumber( N ).ForeColor = Color.Red Pre = N : Cnt = Cnt + 1 If Cnt > 14 Then tmrGO.Interval += 100 End If If Cnt > 19 Then tmrGO.Enabled = False lblHit.Text = N.ToString( ) Pre = -1 : Lmt -= 1 If Lmt < 1 Then btnStart.Text = "RESET" Else For I = R To ( Lmt - 1 ) Num( I ) = Num( I + 1 ) Next I End If End If End Sub End Class ４デザイン画面でラジオボタン１をダブルクリックして、コード画面を表示し、左記のコードを入力する。５デザイン画面でボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。６デザイン画面でタイマーをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(9)

プログラムの概要

謂わずと知れた落ち物ゲーム『テトリス』の超簡易版『パクリス』です。画面上の『スタート』ボタンをクリックすると、画面右側の領域で、上からブロックが落ちて来ます。左右の矢印キーでブロックを左右に移動させて色が揃う様に落下させます。下向きの矢印キーで一気に落下させる事も出来ます。此のゲームでは、ブロックを回転させたり、連鎖消去する事は出来ないが、『落ちゲー』の基本が解ると思う。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

パクリス

VB 2005 ⑲ □ アプリケーション画面のデザイン（標準コントロールの利用） □ プログラムの動作原理（イベント駆動型のプログラム） □ プログラムの構成要素（オブジェクトとプロパティ） □ 値の代入（変数、オブジェクトのプロパティ） □ グラフィックスの利用（Graphics オブジェクト） □ 条件に応じた処理（If 文の利用） □ 自動的に行われる処理（タイマーの利用）今回の課題項目

(10)

コントロールの種類プロパティプロパティの設定値フォーム Name pacris Text パクリス－テトリスのパクリピクチャボックス１ Name picLogo Image pacris.jpg Size 320, 122 ピクチャボックス２ Name picScreen BackColor Black Size 300, 300 ラベル１ Name lblMes BackColor Red BorderStyle Fixed3D Font HG 創英角ﾎﾟｯﾌﾟ体、２２、太字

Text GAME OVER

TextAlign MiddleCenter ラベル２ Name lblScr BackColor Blue Font HG 創英角ﾎﾟｯﾌﾟ体、１８、太字 ForeColor White Text 0 TextAlign MiddleRight ボタン Name btnStart Text START タイマー Name tmrMove Interval 500 ピクチャボックス１タイマーボタンラベル１

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

ピクチャボックス２ラベル２

(11)

Public Class pacris

Private G As Graphics

Private M( 9, 9 ), BX, BY, Scr As Integer

Private B( ) As Brush = { Brushes.Black, Brushes.White, _

Brushes.Yellow, Brushes.Cyan, Brushes.Green, Brushes.DeepPink }

Private Sub pacris_Load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load

With picScreen

.Image = New Bitmap( .Width, .Height ) G = Graphics.FromImage( .Image ) End With

End Sub

' ボタン（START）がクリックされた時の処理

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnStart.Click

btnStart.Enabled = False : lblMes.Visible = False For I As Integer = 0 To 9 For J As Integer = 0 To 9 M( I, J ) = 0 Next Next Scr = 0 : lblScr.Text = Scr.ToString( ) Call StartPos( ) tmrMove.Enabled = True End Sub ' スタート位置を表示するジェネラルプロシージャ Private Sub StartPos( )

BX = Int( Rnd( ) * 10 ) : BY = 0 M(BY, BX) = Int(Rnd( ) * 5 + 1 ) Call DrawScreen( ) End Sub ' 画面を書き換えるジェネラルプロシージャ Private Sub DrawScreen( )

For I As Integer = 0 To 9 For J As Integer = 0 To 9 G.FillRectangle( B( M( I, J )), J * 30, I * 30, 30, 30 ) Next Next picScreen.Refresh( ) End Sub ' ブロックを消去するジェネラルプロシージャ Private Sub DelBlock( )

Dim P As Integer = 0

If BX > 0 AndAlso M( BY, BX - 1 ) = M( BY, BX ) Then M( BY, BX - 1 ) = 0 : P += 1

End If

If BX < 9 AndAlso M( BY, BX + 1 ) = M( BY, BX ) Then

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。２フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。３デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。４上記１と同様に、コード記述画面を表示して、左記のコードを記述する。

(12)

M( BY, BX + 1 ) = 0 : P += 1 End If

If BY < 9 AndAlso M( BY + 1, BX ) = M( BY, BX ) Then M( BY + 1, BX ) = 0 : P += 1

End If

If P > 0 Then

M( BY, BX ) = 0 : Call DrawScreen( )

Scr += ( 2 ^ ( P - 1 )) : lblScr.Text = Scr.ToString( ) If Scr > 0 And ( Scr Mod 10 = 0 ) Then If tmrMove.Interval > 100 Then tmrMove.Interval = 500 - ( Scr ¥ 10 ) * 100 End If End If End If End Sub ' タイマーが一定間隔で行う処理

Private Sub tmrMove_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles tmrMove.Tick

If BY > 8 OrElse M( BY + 1, BX ) > 0 Then tmrMove.Enabled = False

Call DelBlock( )

If M( BY, BX ) > 0 And BY = 0 Then lblMes.Visible = True

Else

Call StartPos( ) : tmrMove.Enabled = True End If Else M( BY + 1, BX ) = M( BY, BX ) : M( BY, BX ) = 0 : BY += 1 Call DrawScreen( ) End If End Sub ' キーが開放された時の処理

Private Sub pacris_KeyUp(ByVal sender As Object, _

ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp Select Case e.KeyCode

Case Keys.Left

If BX > 0 AndAlso M( BY, BX - 1 ) = 0 Then

M( BY, BX - 1 ) = M( BY, BX ) : M( BY, BX ) = 0 : BX -= 1 Call DrawScreen( )

End If

Case Keys.Right

If BX < 9 AndAlso M( BY, BX + 1 ) = 0 Then

M( BY, BX + 1 ) = M( BY, BX ) : M( BY, BX ) = 0 : BX += 1 Call DrawScreen( ) End If Case Keys.Down tmrMove.Enabled = False Do Until BY > 8 OrElse M( BY + 1, BX ) > 0 M( BY + 1, BX ) = M( BY, BX ) : M( BY, BX ) = 0 : BY += 1 Call DrawScreen( ) System.Threading.Thread.Sleep( 50 ) Loop

Call DelBlock( ) : Call StartPos( ) : tmrMove.Enabled = True End Select End Sub End Class ６デザイン画面で、タイマーをダブルクリックして、コード画面を表示し、左記のコードを入力する。７フォームのイベント一覧より KeyUp イベントをダブルクリックして、左記のコードを入力する。

(13)

プログラムの概要

烏賊と蛸を戦わすゲーム『ボクシング』です。画面上の『スタート』ボタンをクリックする（又は、エンターキーを押す）と、ゲームが開始する。プレーヤーは烏賊で、左右の矢印キーで前進・後進し、スペースキーでパンチを放つ。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

烏賊と蛸のボクシング

VB 2005 ⑳ □ アプリケーション画面のデザイン（標準コントロールの利用） □ プログラムの動作原理（イベント駆動型のプログラム） □ プログラムの構成要素（オブジェクトとプロパティ） □ 値の代入（変数、オブジェクトのプロパティ） □ グラフィックスの利用（Graphics オブジェクト） □ 条件に応じた処理（If 文の利用） □ 自動的に行われる処理（タイマーの利用）今回の課題項目

(14)

コントロールの種類プロパティプロパティの設定値フォーム Name boxing FormBorderStyle FixedSingle MaximizeBox False StartPosition CenterScreen Text 烏賊と蛸のボクシングラベル１ Name lblMes1 Font ＭＳ明朝,、１４、太字 Text 只今ラベル２ Name lblScore Font ＭＳ明朝,、１４、太字 Text 0 TextAlign MiddleRight ラベル３ Name lblMes2 Font ＭＳ明朝,、１４、太字 Text 、勝抜き中です！パネル Name pnlRing BackColor White Size 400, 100 プログレスバー１ Name prgOctopus プログレスバー２ Name prgSquid ボタン Name btnStart Text スタートタイマー Name tmrGame Interval 50 プログレスバー１タイマーボタンラベル１

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

プログレスバー２ラベル２ラベル３パネル

(15)

Public Class boxing

Private Img( 1, 1 ) As Bitmap Private G As Graphics

Private Ps, Po, Cnt, Xs, Xo, Q As Integer

Private Sub boxing_Load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load

Img( 0, 0 ) = New Bitmap( "ika1.gif" ) Img( 0, 1 ) = New Bitmap( "ika2.gif" ) Img( 1, 0 ) = New Bitmap( "tako1.gif" ) Img( 1, 1 ) = New Bitmap( "tako2.gif" ) With pnlRing

.BackgroundImage = New Bitmap ( .Width, .Height ) G = Graphics.FromImage( .BackgroundImage ) End With Randomize( ) End Sub ' キャラクタを表示するジェネラルプロシージャ Private Sub CharDisp( ByVal W As Integer ) G.Clear( Color.White )

G.DrawImage( Img( 0, Q ), Xs, 30 ) G.DrawImage( Img( 1, W ), Xo, 30 ) pnlRing.Refresh( )

End Sub

' ゲームを初期化するジェネラルプロシージャ Private Sub GameInit( )

Po = 160 + Cnt * 20 prgOctopus.Maximum = Po : prgOctopus.Value = Po Ps = 200 prgSquid.Maximum = Ps : prgSquid.Value = Ps Xo = 40 : Xs = 300 : Call CharDisp( 0 ) : Q = 0 End Sub ' ボタン（スタート）がクリックされた時の処理

Private Sub btnStart_Click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnStart.Click Cnt = 0 : lblScore.Text = CStr( Cnt ) Call GameInit( ) Me.KeyPreview = True btnStart.Enabled = False tmrGame.Enabled = True End Sub

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。２フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。３上記１と同様に、コード記述画面を表示して、左記のコードを記述する。４デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(16)

' キーが押された時の処理

Private Sub boxing_KeyDown( ByVal sender As Object, _

ByVal e As System.Windows.Forms.KeyEventArgs ) Handles Me.KeyDown

Select Case e.KeyCode Case Keys.Left If Xs > 36 Then Xs = Xs - 2 ' 烏賊のＸ座標 Case Keys.Right If Xs < 340 Then Xs = Xs + 2 ' 烏賊のＸ座標 Case Keys.Space If Q = 0 Then Q = 1 ' パンチフラグ End Select End Sub ' タイマーが一定間隔で自動的に行う処理

Private Sub tmrGame_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles tmrGame.Tick

Dim W As Integer = 0 Select Case Int( Rnd( ) * 5 ) Case 0 : W = 1 Case 1, 2 : If Xo > 0 Then Xo -= 2 ' 蛸のＸ座標 Case 3, 4 : If Xo < 364 Then Xo += 2 ' 蛸のＸ座標 End Select Call CharDisp( W ) Dim D As Integer = Xs - Xo If D > 10 And D < 36 Then If Q = 1 And W = 0 Then Po = Po - 10 : If Po < 0 Then Po = 0 prgOctopus.Value = Po

ElseIf Q = 0 And W = 1 Then Ps = Ps - 10 : If Ps < 0 Then Ps = 0 prgSquid.Value = Ps

ElseIf Q = 1 And W = 1 Then Po = Po - 5 : If Po < 0 Then Po = 0 prgOctopus.Value = Po Ps = Ps - 5 : If Ps < 0 Then Ps = 0 prgSquid.Value = Ps End If If Po = 0 Then Cnt = Cnt + 1 : lblScore.Text = CStr( Cnt ) ' 勝抜き人数 Call GameInit( ) Exit Sub ElseIf Ps = 0 Then tmrGame.Enabled = False btnStart.Enabled = True MsgBox( "ＫＯ負け！", MsgBoxStyle.Exclamation, "結果" ) End If End If Q = 0 End Sub End Class ５フォームのイベント一覧より KeyDown イベントをダブルクリックして、左記のコードを入力する。６デザイン画面で、タイマーをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(17)

プログラムの概要

烏賊と蛸が夕日を背に対戦する対戦型アクションゲーム『ビーチバレー』です。画面上の『スタート』ボタンをクリックする（又は、エンターキーを押す）と、ゲームが開始する。10 点先取で勝ちで有る。夫々れのプレーヤーは、画面に表示されたキー操作で烏賊や蛸を操る。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

ビーチバレー

VB 2005 ○21 □ アプリケーション画面のデザイン（標準コントロールの利用） □ プログラムの動作原理（イベント駆動型のプログラム） □ プログラムの構成要素（オブジェクトとプロパティ） □ 値の代入（変数、オブジェクトのプロパティ） □ グラフィックスの利用（Graphics オブジェクト） □ 条件に応じた処理（If 文の利用） □ 自動的に行われる処理（タイマーの利用）今回の課題項目

(18)

コントロールの種類プロパティプロパティの設定値フォーム Name volleyball BackColor Navy BackGroundImage back.gif FormBorderStyle FixedSingle MaximizeBox False StartPosition CenterScreen Text ビーチバレーパネル Name pnlGround BackColor Transparent Location 16, 14 Size 512, 426 ラベル１ Name lblScore0 BackColor Transparent Font ＭＳ明朝,、１４、太字 ForeColor White Text 0 ピクチャボックス２タイマーボタン

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

ピクチャボックス１ラベル２ラベル１パネルピクチャボックス３ピクチャボックス４ピクチャボックス５コンボボックス

(19)

コントロールの種類プロパティプロパティの設定値ラベル２ Name lblScore1 BackColor Transparent Font ＭＳ明朝,、１４、太字 ForeColor White Text 0 TextAlign MiddleRight ピクチャボックス１ Name picShadow BackColor Transparent Image shadow.gif ピクチャボックス２ Name picOctopus BackColor Transparent Image tako1.gif ピクチャボックス３ Name picTurtle BackColor Transparent Image kame1.gif ピクチャボックス４ Name picBall BackColor Transparent Image ball.gif ピクチャボックス５ Name picSquid BackColor Transparent Image ika1.gif ボタン Name btnStart BackColor Cyan Font HG 創英角ﾎﾟｯﾌﾟ体、１２、太字 Text スタートコンボボックス Name cboLevel BackColor Cyan Font ＭＳ明朝、１０、標準 Items 初級中級上級タイマー Name tmrGame Interval 50

(20)

Public Class volleyball Private X1 As Integer ' 烏賊のＸ座標 Private Y1 As Integer ' 烏賊のＹ座標 Private X2 As Integer ' 蛸のＸ座標 Private Y2 As Integer ' 蛸のＹ座標 Private KA As Integer ' 亀のＸ座標 Private X As Integer ' ボールのＸ座標 Private Y As Integer ' ボールのＹ座標 Private XP As Integer ' ボールの横移動量 Private YP As Integer ' ボールの縦移動量 Private K1 As Integer ' 烏賊のジャンプフラグ Private P1 As Integer ' 烏賊のジャンプカウント Private Q1 As Integer ' 烏賊のアタックフラグ Private S1 As Integer ' 烏賊の得点 Private K2 As Integer ' 蛸のジャンプフラグ Private P2 As Integer ' 蛸のジャンプカウント Private Q2 As Integer ' 蛸のアタックフラグ Private S2 As Integer ' 蛸の得点 Private LV As Integer ' レベル Private Squid( 1 ) As Bitmap Private Octopus( 1 ) As Bitmap Private Turtle( 1 ) As Bitmap

' ゲームを初期化するジェネラルプロシージャ Private Sub GameInit ()

X1 = 464 : Y1 = 296 : K1 = 0 : P1 = 0 : picSquid.Location = New Point( X1, Y1 ) X2 = 16 : Y2 = 296 : K2 = 0 : P2 = 0 : picOctopus.Location = New Point( X2, Y2 ) KA = 576 : picTurtle.Location = New Point( KA - 64, 250 )

X = 448 : Y = 248 : picBall.Location = New Point( X, Y ) XP = 0 : YP = 12 S1 = 0 : lblScore0.Text = S1.ToString( ) S2 = 0 : lblScore1.Text = S2.ToString( ) End Sub ' フォームが読み込まれた時の処理

Private Sub volleyball_Load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load

For I As Integer = 0 To 1

Squid( I ) = New Bitmap( "ika" & ( I + 1 ).ToString( ) & ".gif" ) Octopus( I ) = New Bitmap( "tako" & ( I + 1 ).ToString( ) & ".gif" ) Turtle( I ) = New Bitmap( "kame" & ( I + 1 ).ToString( ) & ".gif" ) Next cboLevel.SelectedIndex = 0 : LV = 1 Call GameInit( ) End Sub ' ボタン（スタート）がクリックされた時の処理

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnStart.Click

Call GameInit( )

btnStart.Enabled = False : cboLevel.Enabled = False Me.KeyPreview = True : tmrGame.Enabled = True End Sub

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。２上記１と同様に、コード記述画面を表示して、左記のコードを記述する。３フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。４デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(21)

' コンボボックス（レベル）がクリックされた時の処理

Private Sub cboLevel_SelectedIndexChanged( ByVal sender As System.Object, _ ByVal e As System.EventArgs ) Handles cboLevel.SelectedIndexChanged LV = cboLevel.SelectedIndex + 1

tmrGame.Interval = 50 * ( 3 / LV ) End Sub

' キーが押された時の処理

Private Sub volleyball_KeyDown( ByVal sender As Object, _

ByVal e As System.Windows.Forms.KeyEventArgs ) Handles Me.KeyDown Select Case e.KeyCode

Case Keys.I If K1 = 0 Then K1 = 1 : P1 = 30 Case Keys.J X1 = X1 + ( X1 > 256 ) * 2 Case Keys.L X1 = X1 - ( X1 < 480 ) * 2 Case Keys.K Q1 = 5

If ( Math.Abs( X1 – X ) < 32 ) And ( Math.Abs( Y1 – Y ) < 32 ) Then XP = -( X1 – X ) / 1.5 * ( 1 - K1 ) - 32 * K1 YP = 30 - 25 * K1 End If Case Keys.W If K2 = 0 Then K2 = 1 : P2 = 30 Case Keys.A X2 = X2 + ( X2 > 0 ) * 2 Case Keys.D X2 = X2 - ( X2 < 224 ) * 2 Case Keys.S Q2 = 5

If ( Math.Abs( X2 - X ) < 32 ) And ( Math.Abs( Y2 – Y ) < 32 ) Then XP = -( X2 - X ) / 1.5 * ( 1 - K2 ) - 32 * K2 YP = 30 - 25 * K2 End If End Select End Sub ' タイマーが一定間隔で自動的に行う処理

Private Sub tmrGame_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles tmrGame.Tick

' 亀の処理

KA = KA - 1 : If KA < 0 Then KA = 576 picTurtle.Image = Turtle( KA Mod 2 ) picTurtle.Left = KA - 64 ' 烏賊の処理 If K1 = 1 Then Y1 = Y1 - P1 : P1 = P1 - 2 : If P1 < -30 Then K1 = 0 End If If Q1 > 0 Then Q1 = Q1 - 1

picSquid.Image = Squid( Math.Sign( Q1 )) picSquid.Location = New Point( X1, Y1 ) ' 蛸の処理

If K2 = 1 Then

Y2 = Y2 - P2 : P2 = P2 - 2 : If P2 < -30 Then K2 = 0 End If

If Q2 > 0 Then Q2 = Q2 - 1

picOctopus.Image = Octopus( Math.Sign( Q2 ))

５デザイン画面で、コンボボックスをダブルクリックして、コード画面を表示し、左記のコードを入力する。６フォームのイベント一覧より KeyDown イベントをダブルクリックして、左記のコードを入力する。７デザイン画面で、タイマーをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(22)

picOctopus.Location = New Point( X2, Y2 ) ' ボールの処理

X = X + XP : Y = Y - YP - 2 : If YP > -24 Then YP = YP - 2 picBall.Location = New Point( X, Y )

picShadow.Location = New Point( X, 308 ) If Y > 300 Then If X < 256 Then S1 = S1 + 1 : lblScore0.Text = S1.ToString( ) : X = 32 If S1 > 9 Then tmrGame.Enabled = False MsgBox( "烏賊の勝ち！", MsgBoxStyle.Information, "試合終了" ) btnStart.Enabled = True : cboLevel.Enabled = True

Exit Sub End If Else S2 = S2 + 1 : lblScore1.Text = S2.ToString( ) : X = 448 If S2 > 9 Then tmrGame.Enabled = False MsgBox( "蛸の勝ち！", MsgBoxStyle.Information, "試合終了" ) btnStart.Enabled = True : cboLevel.Enabled = True

Exit Sub End If End If Y = 296 X1 = 464 : Y1 = 296 : X2 = 16 : Y2 = 296 K1 = 0 : P1 = 0 : K2 = 0 : P2 = 0 XP = 0 : YP = 12 ElseIf X < 0 Or X > 479 Then XP = XP * ( -1 ) End If End Sub End Class

(23)

プログラムの概要

体のリズムを知る『バイオリズム』プログラムで有る。体のリズムは、身体、感情、知性の３種のリズムから出来て居て、此等は一定の周期で、高調期と低調期を繰り返す。此等のリズムは、一定の周期で繰り返されるので、明日や更に先の自分のコンディションを前以て知る事が出来る。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

バイオリズム

(24)

コントロールの種類プロパティプロパティの設定値フォーム Name biorhythm FormBorderStyle FixedSingle MaximizeBox False StartPosition CenterScreen Text バイオリズムラベル１ Name lblTitle Font HG 創英角ﾎﾟｯﾌﾟ体、２４、標準 Text バイオリズムプログラムラベル２ Name lblBirthday Font ＭＳ明朝、１２、太字 Text 誕生日西暦ラベル３ Name lblYearB Font ＭＳ明朝、１２、太字 Text 年ラベル４ Name lblMonthB Font ＭＳ明朝、１２、太字 Text 月ラベル５ Name lblDayB Font ＭＳ明朝、１２、太字 Text 日ピクチャボックスボタン１ラベル１

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

上段：ラベル２、３、４、５下段：ラベル６、７、８パネル適宜作成ボタン２上段：テキストボックス１下段：テキストボックス２上段：コンボボックス１、３下段：コンボボックス２

(25)

コントロールの種類プロパティプロパティの設定値ラベル６ Name lblTarget Font ＭＳ明朝、１２、太字 Text 表示月西暦ラベル７ Name lblYearT Font ＭＳ明朝、１２、太字 Text 年ラベル８ Name lblMonthT Font ＭＳ明朝、１２、太字 Text 月テキストボックス１ Name txtYearB Font ＭＳ明朝、１２、太字 Text 自分の誕生年 TextAlign Right テキストボックス２ Name txtYearT Font ＭＳ明朝、１２、太字 Text 空白 TextAlign Right コンボボックス１ Name cboMonthB Font ＭＳ明朝、１２、太字 Items 1～12 Text 自分の誕生月コンボボックス２ Name cboMonthT Font ＭＳ明朝、１２、太字 Items 1～12 Text 空白コンボボックス３ Name cboDayB Font ＭＳ明朝、１２、太字 Items 1～31 Text 自分の誕生日ボタン１ Name btnStart Font ＭＳ明朝、１１、太字 Text 表示ボタン２ Name btnFinish Font ＭＳ明朝、１１、太字 Text 終了ピクチャボックス Name picDisp BackColor Black Size 621, 211 パネル Name pnlExplain 適宜作成肉体面は赤感情面は緑知性面は青

(26)

Public Class biorhythm

Private Const PI As Single = 3.14159 / 180

Private WI(2) As Integer Private CL(2) As Color Private TMD As Integer Private BM As Bitmap Private GR As Graphics ' 表示画面を初期化するジェネラルサブプロシージャ Private Sub BaseScreen( )

Dim I, X, Y, M As Integer Dim S As DateTime Dim H As Single ' 表示月の日数の設定 Y = Val( txtYearT.Text ) M = Val( cboMonthT.Text ) S = New DateTime( Y, M, 1 ) TMD = DateTime.DaysInMonth( Y, M ) ' グラフ枠の描画 H = 620 / TMD GR.Clear( Color.Black ) GR.DrawRectangle( Pens.White, 0, 0, 620, 210 ) For I = 1 To TMD X = ( I - 1 ) * H GR.DrawLine( Pens.White, X, 0, X, 210 )

GR.DrawString( I.ToString( "00" ), Me.Font, Brushes.White, X + 5, 1 ) Next GR.DrawLine( Pens.White, 0, 10, 620, 10 ) GR.DrawLine( Pens.White, 0, 110, 620, 110 ) picDisp.Refresh( ) End Sub ' フォームが読み込まれた時の処理

Private Sub biorhythm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load

' Graphics オブジェクトの生成 With picDisp

BM = New Bitmap( .Width, .Height ) .Image = BM

GR = Graphics.FromImage( .Image ) End With

' 画面の表示

txtYearT.Text = DateTime.Now.ToString( "yyyy" ) cboMonthT.SelectedIndex = DateTime.Now.Month - 1 Call BaseScreen( )

' 周期と描色の設定

WI( 0 ) = 23 : WI( 1 ) = 28 : WI( 2 ) = 33

CL( 0 ) = Color.Red : CL( 1 ) = Color.Green : CL( 2 ) = Color.Blue End Sub ２上記１と同様に、コード記述画面を表示して、左記のコードを記述する。

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。３フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。

(27)

' ボタン（表示）がクリックされた時の処理

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnStart.Click Dim WS( 2 ), DN, I, J As Integer Dim ST, PX, PY As Single ' 入力の検証と変数への代入

Dim Y1 As Integer = Val( txtYearB.Text ) : If Y1 = 0 Then Exit Sub Dim M1 As Integer = Val( cboMonthB.Text ) : If M1 = 0 Then Exit Sub Dim D1 As Integer = Val( cboDayB.Text ) : If D1 = 0 Then Exit Sub Dim Y2 As Integer = Val( txtYearT.Text ) : If Y2 = 0 Then Exit Sub Dim M2 As Integer = Val( cboMonthT.Text ) : If M2 = 0 Then Exit Sub

' グラフ枠の描画 Call BaseScreen( )

' 誕生日から表示月の朔日迄の日数の算出

Dim SD As DateTime = New DateTime( Y1, M1, D1 ) Dim ED As DateTime = New DateTime( Y2, M2, 1 ) DN = ( ED - SD ).Days

' 位相の算出（０：肉体面－Physical、１：感情面－Sensitivity、２：知性面－Intellectual） For I = 0 To 2 : WS( I ) = DN Mod WI( I ) : Next

' バイオリズムの描画 For I = 0 To 2 ST = ( 620 * ( WI( I ) / TMD )) / 360 PX = ( 620 / TMD ) * WS(I) - ST * 360 For J = -360 To 720 PY = 110 - Math.Sin( J * PI ) * 90

If ( PX > 1 And PX < 619 ) And ( PY > 1 And PY < 209 ) Then BM.SetPixel( PX, PY, CL( I ))

If System.Convert.ToInt32( PY ) = 110 Then

GR.FillEllipse( New SolidBrush( CL( I )), PX - 3, PY - 3, 7, 7 ) End If End If PX = PX + ST Next Next picDisp.Refresh( ) End Sub ' ボタン（終了）がクリックされた時の処理

Private Sub btnFinish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnFinish.Click Me.Dispose( ) End End Sub End Class ４デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。５デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(28)

プログラムの概要

面クリア型のパズルゲーム『ポップ君の山登り』で有る。画面右欄に表示されるキー操作（押すキーと移動先の関係を示す）に従い、ポップ君を山の頂上に導く事が出来れば、面クリアで有る。但し、1 段下には降りる事が出来るが、2 段下には降りる事は出来ない。亦、岩は、1 個なら押す事が出来るが、引っ張る事は出来ない。全33 面が用意されて居る。面データを解析し、新しい面作成に挑戦して欲しい。一般的に、実用プログラムに比較するとゲームプログラムは、高度なテクニックを要求される事が多い。此処では、ゲームプログラムを作成する事に依り、楽しみ乍ら、プログラムの制作手順を習得する事を目的として居る。制作手順としては、実際の作業過程に従い、段階的に機能を追加する方法を採用して居る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

ポップ君の山登り

(29)

コントロールの種類プロパティプロパティの設定値フォーム Name climbing BackColor Black FormBorderStyle FixedSingle MaximizeBox False StartPosition CenterScreen Text ポップ君の山登りパネル Name pnlBack BackgroundImage sky.gif Size 644, 416 ピクチャボックス１ Name picSheet BackColor Transparent Size 644, 416 ピクチャボックス２ Name picPOP BackColor Transparent Image left.gif Size 28, 32 ラベル１ Name lblClear BackColor Transparent Font ＭＳ明朝、２０、太字 ForeColor Red Text クリア！！ラベル２ Name lblTitle BackColor Transparent Font ＭＳ明朝、１４、太字 ForeColor White Text ポップ君の山登り

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

ピクチャボックス１ボタン１ラベル１パネルボタン２ピクチャボックス２ラベル６ラベル５ラベル４ラベル３ラベル２ピクチャボックス６ピクチャボックス４ピクチャボックス５ピクチャボックス３

(30)

コントロールの種類プロパティプロパティの設定値ラベル３ Name lblSheet AutoSize False BackColor Transparent Font ＭＳ明朝、１４、太字 ForeColor White Size 161, 19 Text 第１面 TextAlign MiddleCenter ラベル４ Name lblKeyOperation BackColor Transparent Font ＭＳ明朝、１４、太字 ForeColor White Text キー操作ラベル５ Name lblExplain AutoSize False BackColor Transparent Font ＭＳ明朝、１８、太字 ForeColor White Text 図の様に記述する。ラベル６ Name lblEscape BackColor Transparent Font ＭＳ明朝、９、太字 ForeColor White Text ＥＳＣキーで遣り直しピクチャボックス３ Name picLeft BackColor Transparent Image left.gif Size 28, 32 ピクチャボックス４ Name picRight BackColor Transparent Image right.gif Size 28, 32 ピクチャボックス５ Name picMountain BackColor Transparent Image ｍountain.gif Size 28, 32 ピクチャボックス６ Name picRock BackColor Transparent Image rock.gif Size 28, 32 ボタン１ Name BtnTest Text テスト Visible False ボタン２ Name btnNext Text 次へ

(31)

Public Class climbing

Private Const MAX As Integer = 33

Private Sdata( MAX - 1 ) As String ' 面データ Private BD( 22, 13 ) As Integer ' 仮想画面 Private Mcnt As Integer ' 山の数 Private Rcnt As Integer ' 岩の数

Private PX As Integer ' ポップ君のＸ座標 Private PY As Integer ' ポップ君のＹ座標 Private Sheet As Integer ' 面番号

Private Pt As String ' 起動パス Private G As Graphics

Private Sub climbing_Load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load Dim F As String Dim I As Integer ' データパスの設定

Pt = Application.StartupPath : If Not Pt.EndsWith( "¥" ) Then Pt &= "¥" ' 面データの読込 F = Pt & "climbing.dat" FileOpen( 1, F, OpenMode.Input ) For I = 0 To ( MAX - 1 ) Sdata( I ) = LineInput( 1 ) Next I FileClose( 1 ) ' 仮想画面の初期設定 For I = 0 To 22 : BD( I, 0 ) = 2 : BD( I, 13 ) = 2 : Next I For I = 1 To 12 : BD( 0, I ) = 2 : BD( 22, I ) = 2 : Next I Mcnt = 0 : Rcnt = 0 ' Graphics オブジェクトの生成 With picSheet

.Image = New Bitmap( .Width, .Height ) G = Graphics.FromImage( .Image ) End With

' 第１面の表示

Sheet = 1 : Call DispSheet( ) End Sub

' 画面表示テスト

Private Sub btnTest_Click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnTest.Click

Sheet += 1 : If Sheet > 33 Then Sheet = 1 Call DispSheet( ) End Sub

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。２フォーム上のコントロールを配置して居ない処をダブルクリックして、コード画面を表示し、左記のコードを入力する。３デザイン画面で、ボタンをダブルクリックして、コード画面を表示し、左記のコードを入力する。

(32)

' フォーム上でキー入力が為された時の処理

Private Sub climbing_KeyUp( ByVal sender As Object, _

ByVal e As System.Windows.Forms.KeyEventArgs ) Handles Me.KeyUp Dim X, Y, I, B As Integer Dim F, S As String Dim R As Boolean ' キー入力の判定

Select Case e.KeyCode

Case Keys.D1, Keys.NumPad1 If Not BD( PX - 1, PY ) = 2 Then If BD( PX - 1, PY ) = 1 Then If Not BD( PX - 1, PY - 1 ) = 1 Then If BD( PX - 2, PY ) = 0 Then X = PX - 1 : Y = PY : Call DelRock( X, Y ) BD( PX - 1, PY ) = 0 : BD( PX - 2, PY ) = 1 X = X - 1 : G.DrawImage( picRock.Image, X * 28, Y * 32 ) picSheet.Refresh( ) PX = PX - 1 : Call DispPop( 0 ) Do While BD( X, Y + 1 ) = 0 Call DelRock( X, Y ): BD( X, Y ) = 0 : BD( X, Y + 1 ) = 1 Y = Y + 1 : G.DrawImage( picRock.Image, X * 28, Y * 32 ) picSheet.Refresh( ) Loop End If End If Else If BD( PX - 1, PY + 1 ) > 0 Then PX = PX - 1 : Call DispPop( 0 ) Else If BD( PX - 1, PY + 2 ) > 0 Then PX = PX - 1 : PY = PY + 1 : Call DispPop( 0 ) End If End If End If End If

Case Keys.D2, Keys.NumPad2

If Not BD( PX + 1, PY ) = 2 Then If BD( PX + 1, PY ) = 1 Then If Not BD( PX + 1, PY - 1 ) = 1 Then If BD( PX + 2, PY ) = 0 Then X = PX + 1 : Y = PY : Call DelRock( X, Y ) BD( PX + 1, PY ) = 0 : BD( PX + 2, PY ) = 1 X = X + 1 : G.DrawImage( picRock.Image, X * 28, Y * 32 ) picSheet.Refresh( ) PX = PX + 1 : Call DispPop( 1 ) Do While BD( X, Y + 1 ) = 0 Call DelRock( X, Y ): BD( X, Y ) = 0 : BD( X, Y + 1 ) = 1 Y = Y + 1 : G.DrawImage( picRock.Image, X * 28, Y * 32 ) picSheet.Refresh( ) Loop End If End If Else If BD( PX + 1, PY + 1 ) > 0 Then PX = PX + 1 : Call DispPop( 1 ) Else ４フォームのイベント一覧より KeyUp イベントをダブルクリックして、左記のコードを入力する。

(33)

If BD( PX + 1, PY + 2 ) > 0 Then PX = PX + 1 : PY = PY + 1 : Call DispPop( 1 ) End If End If End If End If

Case Keys.D4, Keys.NumPad4 If BD( PX, PY – 1 ) = 0 Then If BD( PX - 1, PY ) > 0 Then If BD( PX - 1, PY - 1 ) = 0 Then PX = PX - 1 : PY = PY - 1 : Call DispPop( 0 ) End If End If End If

Case Keys.D5, Keys.NumPad5 If BD( PX, PY - 1 ) = 0 Then If BD( PX + 1, PY ) > 0 Then If BD( PX + 1, PY – 1 ) = 0 Then PX = PX + 1 : PY = PY - 1 : Call DispPop( 1 ) End If End If End If

Case Keys.D7, Keys.NumPad7 If BD( PX, PY – 2 ) = 0 Then If BD( PX, PY – 1 ) = 0 Then If BD( PX - 1, PY - 1 ) > 0 Then If BD( PX - 1, PY - 2 ) = 0 Then PX = PX - 1 : PY = PY - 2 : Call DispPop( 0 ) End If End If End If End If

Case Keys.D8, Keys.NumPad8 If BD( PX, PY - 2 ) = 0 Then If BD( PX, PY - 1 ) = 0 Then If BD( PX + 1, PY - 1 ) > 0 Then If BD( PX + 1, PY - 2 ) = 0 Then PX = PX + 1 : PY = PY - 2 : Call DispPop( 1 ) End If End If End If End If

Case Keys.Escape: Call DispSheet( ) Case Keys.T: btnTest.Visible = True End Select ' 面クリアの判定 If PY = 1 Then lblClear.Text = "クリア！！" For I = 1 To 3

lblClear.Visible = True : Application.DoEvents( ) System.Threading.Thread.Sleep( 500 )

lblClear.Visible = False : Application.DoEvents( ) System.Threading.Thread.Sleep( 500 )

Next I

If Sheet < MAX Then btnNext.Enabled = True End If

(34)

' ボタン（次へ）がクリックされた時の処理

Private Sub btnNext_Click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btnNext.Click

btnNext.Enabled = False: Sheet += 1 : If Sheet > MAX Then Exit Sub Call DispSheet( )

End Sub

' 面を表示するジェネラルプロシージャ Private Sub DispSheet( )

Dim D( ) As String

Dim I, J, C, X, Y As Integer ' 面番号の表示

lblSheet.Text = StrConv( "第" & CStr( Sheet ) & "面", VbStrConv.Wide ) ' 仮想画面の初期化

For I = 1 To 21 : For J = 2 To 11 : BD( I, J ) = 0 : Next J : Next I If Sheet > 27 Then For I = 1 To 21 : BD( I, 12 ) = 0 : Next I Else For I = 1 To 21 : BD( I, 12 ) = 2 : Next I End If ' 面データの設定

D = Split( Sdata( Sheet - 1 ), "." ) ' 山の設定と表示 Mcnt = D( 0 ) : C = 1 : G.Clear( Color.Transparent ) For I = 1 To Mcnt X = D( C ) : Y = D( C + 1 ) : BD( X, Y ) = 2 : C += 2 G.DrawImage( picMountain.Image, X * 28, Y * 32 ) Next I If Sheet < 28 Then

For I = 1 To 21: G.DrawImage(picMountain.Image, I * 28, 12 * 32): Next End If ' 岩の設定と表示 Rcnt = D( C ) : C += 1 For I = 1 To Rcnt X = D( C ) : Y = D( C + 1 ) : BD( X, Y ) = 1 : C += 2 G.DrawImage( picRock.Image, X * 28, Y * 32 ) Next I picSheet.Refresh( ) ' ポップ君の設定と表示 PX = D( C ) : PY = D( C + 1 ) : Call DispPop( 0 ) End Sub ' ポップ君を表示するジェネラルプロシージャ Private Sub DispPop( ByRef N As Integer ) picPOP.Location = New Point( PX * 28, PY * 32 ) If N = 0 Then picPOP.Image = picLeft.Image Else picPOP.Image = picRight.Image End If End Sub ' 岩を消去するジェネラルプロシージャ

Private Sub DelRock( ByVal X As Integer, ByVal Y As Integer ) G.Clip = New Region( New Rectangle( X * 28, Y * 32, 28, 32 ))

G.Clear( Color.Transparent )

G.Clip = New Region( New Rectangle( 0, 0, 644, 416 )) End Sub End Class ５３に同じ。６上記１と同様に、コード記述画面を表示して、左記のコードを記述する。７６に同じ。８６に同じ。

(35)

プログラムの概要

枠に当たるとボールが跳ね返るゴルフゲーム『バウンドゴルフ』です。メニューバーの『ゲーム』から『スタート』をクリックするか、F5 キーを押すと、ゲームがスタートする。ボールが表示されると、左右の矢印キーを用いて、ボールを飛ばす方向を決め、スペースを押す。ボールを打つ力を加減するゲージが表示されるので、適当な強さに成ればスペースを押す。池（水色）に落ちたり、カラスにボールを奪われると、持ち球が減る。猶、ゲームの難易度を『易しい』に設定すると、グリーン（黄色）にボールが乗ると、グリーンが拡大表示されて、パッティングが容易に成る。此のプログラムを土台に、更に、各自で機能を追加して行く事が望まれる。

バウンドゴルフ

(36)

コントロールの種類プロパティプロパティの設定値フォーム Name golf FormBorderStyle FixedSingle MaximizeBox False StartPosition CenterScreen Size 490, 440 Text バウンドゴルフグループボックス１ Name grpTitle Text 空白ラベル１ Name lblTitle Font ＭＳ明朝、１８、太字 Text バウンドゴルフラベル２ Name lblHole Font ＭＳ明朝、１６、太字 Text 1 ラベル３ Name lblMes Font ＭＳ明朝、１２、太字 Text 番ホールピクチャボックス６パネルタイマー１ラベル５ラベル２

オ

ブ

ジ

ェ

ク

ト

・

プ

ロ

パ

テ

ィ

一

覧

ピクチャボックス１～５ラベル６ラベル７メニューラベル１ラベル３ピクチャボックス７ピクチャボックス８ラベル４タイマー２タイマー３ピクチャボックス９ピクチャボックス10 グループボックス４グループボックス３グループボックス２グループボックス１

(37)

コントロールの種類プロパティプロパティの設定値

ピクチャボックス１～５ Name picRest0 ～ picRest4

Image ball.gif Size 16, 16 Visible False パネル Name pnlGd BackColor Fuchsia Size 350, 318 ピクチャボックス６ Name picCrow BackColor Transparent Image crow0.gif Size 32, 16 ピクチャボックス７ Name picDir BackColor Transparent Image arrow0.gif Size 16, 16 ピクチャボックス８ Name picBall BackColor Transparent Image ball.gif Size 16, 16 ラベル４ Name lblMessage AutoSize False Font ＭＳ明朝、１４、太字 Size 290, 21 Text 空白 TextAlign MiddleCenter ピクチャボックス９ Name picPower BackColor White BorderStyle FixedSingle Size 15, 318 ピクチャボックス１０ Name picCharactor BackColor White Image aya.jpg Size 81, 185 SizeMode Zoom グループボックス２ Name grpScore Font ＭＳ明朝、８、太字 Text スコアラベル５ Name lblScore AutoSize False Font ＭＳ明朝、１０、太字 Size 57, 13 Text、TextAlign 空白、MiddleRight グループボックス３ Name grpPat Font ＭＳ明朝、８、太字 Text パット数

(38)

コントロールの種類プロパティプロパティの設定値ラベル６ Name lblPat AutoSize False Font ＭＳ明朝、１０、太字 Size 57, 13 Text、TextAlign 空白、MiddleRight グループボックス４ Name grpPer Font ＭＳ明朝、８、太字 Text パー数ラベル７ Name lblPer AutoSize False Font ＭＳ明朝、１０、太字 Size 57, 13 Text、TextAlign 空白、MiddleRight タイマー１ Name tmrCrow Interval 100 タイマー２ Name tmrPow Interval 50 タイマー３ Name tmrDir Interval 100 メニューストリップ Name mnuGolf

Items Name Text

mnuFile mnuGame mnuHelp ファイル(&F) ゲーム(&G) ヘルプ(&H)

Name DropDownItems ShortcutKeys Text

mnuFile mnuFileFinish Ctrl+Q 終了(&X)

mnuGame mnuGameStart F5 スタート(&S)

mnuGameLine

mnuGameLebel 難易度(&L)

mnuHelp mnuHelpIndex Ctrl+H 目次(&C)

mnuHelpLine

mnuHelpVersion バージョン情報(&V)

Name DropDownItems ShortcutKeys Text

mnuGameLebel mnuGameLevelEasy Ctrl+E 易しい(&E) mnuGameLevelDifficult Ctrl+D 難しい(&D)

■ メニューバーの作成 ■

メニューバーを作成するには、先ず、ツールボックス（メニューとツールバーのカテゴリ）で MenuStrip コントロールをダブルクリックして、フォームに追加する。猶、オブジェクト名は、プロパティ欄で設定する事が出来る。

(39)

Public Class golf

' 領域を塗り潰す API 関数の宣言

Private Declare Function ExtFloodFill Lib "gdi32" ( _ ByVal hdc As Integer, _

ByVal X As Integer, ByVal Y As Integer, _

ByVal crColor As Integer, ByVal wFillType As Integer _ ) As Integer

Private Const FLOODFILLBORDER As Short = 0 Private Const FLOODFILLSURFACE As Short = 1 ' フォームレベルでグローバルな変数の宣言 Private PT As String Private ND As Short Private G As Graphics Private B As Bitmap

Private ImgD( 7 ) As Bitmap Private ImgC( 1 ) As Bitmap Private Gp As Graphics Private HL As Integer ' ホール番号 Private SC As Integer ' スコア Private BO As Integer ' ボール数 Private PU As Integer ' パット数 Private PA As Integer ' パー数 Private HX As Integer ' ホールＸ座標 Private HY As Integer ' ホールＹ座標 Private CX As Integer ' カラスＸ座標 Private CY As Integer ' カラスＹ座標 Private SX As Integer ' ボールＸ座標 Private SY As Integer ' ボールＹ座標 Private DR As Integer ' 飛行方向 Private FX As Integer ' 横飛行方向 Private FY As Integer ' 縦飛行方向 Private KF As Integer ' キーフラグ Private PW As Integer ' パワー Private DF As Integer ' 難易度 ' メニュー（レベル－難しい）がクリックされた時の処理

Public Sub mnuGameLevelDifficult_Click( ByVal eventSender As System.Object, _ ByVal eventArgs As System.EventArgs ) Handles mnuGameLevelDifficult.Click DF = 1 mnuGameLevelEasy.Checked = False mnuGameLevelDifficult.Checked = True End Sub ' メニュー（レベル－易しい）がクリックされた時の処理

Public Sub mnuGameLevelEasy_Click( ByVal eventSender As System.Object, _ ByVal eventArgs As System.EventArgs ) Handles mnuGameLevelEasy.Click DF = 0 mnuGameLevelEasy.Checked = True mnuGameLevelDifficult.Checked = False End Sub

プ

ロ

グ

ラ

ム

リ

ス

ト

１コード記述画面を表示して左記のコードを入力する。２デザイン画面で、メニュー項目をダブルクリックして、コード画面を表示し、左記のコードを入力する。３デザイン画面で、メニュー項目をダブルクリックして、コード画面を表示し、左記のコードを入力する。

ウォームアップ講座 17～30

プログラムの概要

紛らわしい神経衰弱

オ

オ

ブ

ブ

ジ

ジ

ェ

ェ

ク

ク

ト

ト

・

・

プ

プ

ロ

ロ

パ

パ

テ

テ

ィ

ィ

一

一

覧

覧

プ

プ

ロ

ロ

グ

グ

ラ

ラ

ム

ム

リ

リ

ス

ス

ト

ト

プログラムの概要

ビンゴ

オ

オ

ブ

ブ

ジ

ジ

ェ

ェ

ク

ク

ト

ト

・

・

プ

プ

ロ

ロ

パ

パ

テ

テ

ィ

ィ

一

一

覧

覧

プ

プ

ロ

ウォームアップ講座　17～30