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

スポンサーサイト

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

=第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


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

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

スポンサーサイト

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

コメント

コメントの投稿

管理者にだけ表示を許可する


トラックバック


この記事にトラックバックする(FC2ブログユーザー) URL

プロフィール

ウルトラパワー

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

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

相互リンク

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