ランキングはこちらをクリック! にほんブログ村 ゲームブログ ゲーム制作へ ブログランキング【くつろぐ】

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

=第33話=(最終話)正解表示画面を作りましょう

ようやくこの記事まで到達しました。
我々も次のステップへ進むことができそうです。

今回は、入力した答えが正解あるいは不正解を表示する処理を実装します。

Form1の「フォームデザイナ」ウィンドウの
「MainTab」部分を右クリックし
「タブの追加」をクリックして
「TabPage9」を追加しましょう。

「TabPage9」に正解あるいは不正解の文字と正解と
入力した答えの数、そしてリトライボタンを配置しましょう。

「Label」コントロール
(Name):Label10
Font-Size:48
ForeColor:DarkOrange
Text:おめでとう!

「Label」コントロール
(Name):Label11
Font-Size:28
ForeColor:Green
Text:正解

「Label」コントロール
(Name):Label12
Font-Size:28
ForeColor:Green
Text:00

「Label」コントロール
(Name):Label13
Font-Size:28
ForeColor:Green
Text:個

「Label」コントロール
(Name):Label14
Font-Size:28
ForeColor:Green
Text:あなたの答え

「Label」コントロール
(Name):Label15
Font-Size:28
ForeColor:Green
Text:00

「Label」コントロール
(Name):Label16
Font-Size:28
ForeColor:Green
Text:個

「Button」コントロール
(Name):btnRetry
BackColor:White
Font-Size:28
Text:リトライ

「SceneChange」プロシージャの「Select」文に
[正解]シーン変更処理のコードを追加します。


Case 9 '[正解]シーン変更処理
 
    '答えと正解を表示
    Me.Label12.Text = intOmote
    Me.Label15.Text = intKotae
 
    '正解の場合は"おめでとう!"、不正解の場合は"ざんねん!"と表示
    If intOmote = intKotae Then
        Me.Label10.Text = "おめでとう!"
    Else
        Me.Label10.Text = "ざんねん!"
    End If
 
    'タブのページを切り替える
    Me.MainTab.SelectedIndex = intScene - 1


リトライボタンである「btnRetry」をダブルクリックして、
「btnRetry_Click」イベントプロシージャにコードを追加します。

--------------------------------------------------

'[タイトル]シーンへ
Call SceneChange(1)


--------------------------------------------------
nttadamoji-042.gif

※デバッグ開始を実行してみましょう。

文字○×表示画面の表示後に正解表示画面が表示されました。
正解とあなたの答えの個数が正しく表示されることを確認してください。

正解の場合は「おめでとう!」不正解の場合は「ざんねん!」と表示されましたか?
リトライボタンをクリックするとタイトル画面に切り替わることも確認してください。

nttadamoji-043.gif
nttadamoji-044.gif
スポンサーサイト

テーマ : フリーゲーム - ジャンル : ゲーム

=第32話=文字○×表示画面を作りましょう

あっという間にクリスマスを迎えてしまいました。

まだ景気が回復しないのでゲームでも作成して過ごします。

今回は、正解を確認するために文字の上に
○または×を表示する処理を実装します。

1.Form1の「フォームデザイナ」ウィンドウの
  「MainTab」部分を右クリックし「タブの追加」をクリックして
  「TabPage8」を追加しましょう。

2.Form1の「SceneChange」プロシージャの
  「Select」文に[文字○×表示]シーン変更処理の
  コードを追加します。



            Case 8 '[文字○×表示]シーン変更処理

                '1文字毎表示用の変数を初期化
                intFrame = 0

                '1文字毎に○×を表示するためにタイマーをセット(0.5秒毎)
                Me.Timer1.Interval = 500
                Me.Timer1.Enabled = True

                'タブのページを切り替える
                Me.MainTab.SelectedIndex = intScene - 1


Form1の「SceneProc」プロシージャの「Select」文に
[文字○×表示]シーン表示処理のコードを追加します。


            Case 8 '[文字○×表示]シーン表示処理

                '文字○×表示の描画処理を行なう
                If intFrame < Moji.Length Then
                    intFrame = intFrame + 1
                    Call DrawTabPage8()
                Else
                    '次のシーンへ
                    Call SceneChange(intScene + 1)
                End If


「TabPage8」に文字の上に○または×を描画するための処理を行なう
「DrawTabPage8」プロシージャをコードに追加します


    'TabPage8の描画処理
    Private Sub DrawTabPage8()

        If Not Moji Is Nothing Then
            Dim g As Graphics = Me.TabPage8.CreateGraphics

            '正しい角度の文字の上に○または×を表示
            For i As Integer = 0 To Moji.Length - 1
                If i < intFrame Then
                    Moji(i).DrawMoji(g, MojiDrawType.DrowAnswer)
                Else
                    Moji(i).DrawMoji(g, MojiDrawType.DrowNotTurn)
                End If
            Next
        End If

    End Sub


「Form1」の「コードエディタ」ウインドウを表示し、
クラス名「TabPage8」をクリック、
メソッド名「Paint」クリックすることで
「TabPage8_Paint」イベントプロシージャが追加されます
「TabPage8_Paint」イベントプロシージャにコードを追加します


        'TabPage8の描画処理
        Call DrawTabPage8()


Mojiクラスの「DrawMoji」プロシージャの
「正解○または不正解×を描画」コメント部分に
以下のコードを追加します


        '正解○または不正解×を描画
        If mdt = MojiDrawType.DrowAnswer Then
            fnt = New Font("MS 明朝", 60)
            sf = New StringFormat
            sf.Alignment = StringAlignment.Center
            sf.LineAlignment = StringAlignment.Center
            If Not _blnUramuki Then
                ig.DrawString("○", fnt, Brushes.Red, ig.VisibleClipBounds, sf)
            Else
                ig.DrawString("×", fnt, Brushes.Red, ig.VisibleClipBounds, sf)
            End If
        End If


※デバッグ開始を実行してみましょう
文字○×表示画面に文字が表示されました
タイマーで順に文字の上に
○または×を表示されることを確認してください

nttadamoji-041.gif


クリスマスプレゼントには間に合いませんでしたが、
正月プレゼントには間に合わせます!

「正月プレゼントって?」という質問はお控えください。

テーマ : フリーゲーム - ジャンル : ゲーム


プロフィール

ウルトラパワー

Author:ウルトラパワー
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ

相互リンク

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。