プロシード

Size: px

Start display at page:

Download "プロシード"

らむみおか
5 years ago
Views:

プロシード VB 2005 14 きょうつうへんすうせんげん共通の変数を宣言するひょうじ 1. ソリューションエクスプローラでコードの表示をクリックするつぎひょうじところしたかこ 2. 次のコードが表示されるので 1の所に下の囲いのコードを入力する Imports System.IO Imports System.Drawing.

1 プロシード VB きょうつうへんすうせんげん共通の変数を宣言するひょうじ 1. ソリューションエクスプローラでコードの表示をクリックするつぎひょうじところしたかこ 2. 次のコードが表示されるので 1の所に下の囲いのコードを入力する Imports System.IO Imports System.Drawing.Drawing2D Public Class proceed 1 ここに入力する! End Class Private Const SHEETS As Integer = 2 Private Bm, Bp, Bd As Bitmap Private Gb, Gf As Graphics Private Px, Py As Integer Private Game As Boolean = False Private Dx, Dy As Integer Private Ps As Integer = 0 Private Cnt As Integer = 1 Private Dir As String Private Sw As Stopwatch = New Stopwatch() がぞうよこえかじゅんび画像を読み込み絵を描く準備をするがめん 1. デザイン画面でフォームをダブルクリックするつぎひょうじところしたかこ 2. 次のコードが表示されるので 2の所に下の囲いのコードを入力する Private Sub proceed_load(byval sender As Sym System.EventArgs) Handles MyBase.Load 2 ここに入力する! -1-

2 きどうしゅとく ' 起動パスの取得 Dir = Application.StartupPath If Not Dir.EndsWith(" ") Then Dir &= " " がぞうよみこみの読込 ' 画像 Bm = New Bitmap(Dir & "road1.png") Bp = New Bitmap(Dir & "plane.gif") びょうがようせいせい ' 描画用 Graphics オブジェクトの生成 With picdisp.backgroundimage = New Bitmap(.Width,.Height).Image = New Bitmap(.Width,.Height) Gb = Graphics.FromImage(.BackgroundImage) Gf = Graphics.FromImage(.Image) End With Gb.Clear(Color.White) Gf.Clear(Color.Transparent) さぎょうようせってい ' 作業用ピクチャボックスの設定 With piccanvas.size = Bp.Size.Visible = False End With さいこうてんよみこみの読込 ' 最高点 Using Sr As StreamReader = New StreamReader( _ Dir & "hiscore.txt", System.Text.Encoding.Default) Dim S As String = Sr.ReadLine( ) Sr.Close( ) lblhi.text = (Single.Parse(S) / 1000).ToString("#.000") End Using しょきか ' 初期化 Px = 20 : Py = 56 Gb.DrawImage(Bm, 0, 0) Gf.DrawImage(Bp, Px, Py) しょきかはじ初期化を行いゲームを始めるがめん 1. デザイン画面でボタンをダブルクリックする -2-

3 つぎひょうじところしたかこ 2. 次のコードが表示されるので 2の所に下の囲いのコードを入力する Private Sub btnstart_click(byval sender As Sy System.EventArgs) Handles btnstart.click 2 ここに入力する! しょきか ' 初期化 Px = 20 : Py = 56 へんすうしょきか ' 変数の初期化 Dx = 0 : Dy = 0 Ps = 0 Gf.Clear(Color.Transparent) Gf.DrawImage(Bp, Px, Py) picdisp.refresh( ) ぜんけいがめんとうめいしょくを透明色でクリア ' 前景画面ひこうきびょうが ' 飛行機の描画がめんさいびょうが ' 画面の再描画 lblblue.visible = False じょうきゃくとうじょうしょうきょ ' 乗客搭乗マークの消去 lblyellow.visible = False lblgreen.visible = False lblon.visible = False Bd = Bp.Clone( ) btnstart.enabled = False Sw.Reset( ) : Sw.Start( ) Game = True tmrmove.enabled = True ひこうきがぞうさくせい ' 飛行機の画像のクローンを作成しよう ' スタートボタンの使用ふか不可しどう ' ストップウォッチの始動 ' ゲームモードのオンしどう ' タイマーの始動しゅとくキー入力を取得するがめんせんたく 1. デザイン画面でフォームを選択しイベント一覧で KeyDown をダブルクリックするつぎひょうじところしたかこなか 2. 次のコードが表示されるので 3の所に下の囲いの中のコードを入力する Private Sub proceed_keydown (ByVal sender As SyseEventArgs) Handles MyBase.KeyDown 3 ここに入力する! -3-

4 Dim F As Boolean = False Select Case e.keycode Case Keys.Left ' が押された時 Dx -= 1 : F = True Case Keys.Right ' が押された時 Dx += 1 : F = True Case Keys.Up ' が押された時 Dy -= 1 : F = True Case Keys.Down ' が押された時 Dy += 1 : F = True Case Keys.Space ' スペースキーが押された時 Dx = 0 : Dy = 0 F = True End Select If F Then Bd = Bp.Clone( ) Call RotatePlane( ) いっていかんかくで自動的タイマーが一定間隔じどうてきに行おこなしょりきじゅつう処理を記述するがめん 1. デザイン画面でタイマーをダブルクリックするつぎひょうじところしたかこ 2. 次のコードが表示されるので 4の所に下の囲いのコードを入力する Private Sub tmrmove_tick (ByVal sender As Sy System.EventArgs) Handles tmrmove.tick 4 ここに入力する! ひこうきびょうが ' 飛行機の描画 Px += Dx : Py += Dy Gf.Clear(Color.Transparent) Gf.DrawImage(Bd, Px, Py) picdisp.refresh( ) ひこうきしたいろしゅとく ' 飛行機の下の色を取得 Dim X As Integer = Px

5 Dim Y As Integer = Py + 21 Dim C As Color = Bm.GetPixel(X, Y) ' 5 ここに入力する! If C = Color.FromArgb(255, 255, 255, 255) Then ' ゲームオーバー tmrmove.enabled = False MessageBox.Show("Game Over") btnstart.enabled = True Game = False ElseIf C = Color.FromArgb(255, 255, 0, 0) AndAlso Ps > 0 Then ' ゲームクリア tmrmove.enabled = False MessageBox.Show("Clear!!") btnstart.enabled = True Game = False ' 6 ここに入力する! ElseIf C = Color.FromArgb(255, 0, 0, 255) Then Ps = Ps Or 1 lblon.visible = True ElseIf C = Color.FromArgb(255, 0, 255, 0) Then Ps = Ps Or 2 lblgreen.visible = True ElseIf C = Color.FromArgb(255, 255, 255, 0) Then Ps = Ps Or 4 lblyellow.visible = True If Ps = 7 Then lblon.visible = True やじるしひこうきうごあおいろきいろみどりいろところじょうきゃくのあとこれで矢印キーで飛行機を動かし青色か黄色か緑色のいずれかの所で乗客を乗せた後あかいろところゆきんきゅうていし赤色の所に行くとゴールできるようになったなおスペースキーで緊急停止ができるうえところしたかこ 3. 上の5の所に下の囲いのコードを入力する lbltime.text = (Sw.ElapsedMilliseconds / 1000).ToString( ) けいかじかんが表示これで経過時間ひょうじされるようになるうえところしたかこ 4. 上の6の所に下の囲いのコードを入力する Dim S As Single = Single.Parse(lblHi.Text) * 1000 If Sw.ElapsedMilliseconds < S Then S = Sw.ElapsedMilliseconds lblhi.text = (S / 1000).ToString( ) -5-

6 Dim P As String = Application.StartupPath If Not P.EndsWith(" ") Then P &= " " Using Sw As StreamWriter = New StreamWriter(P & _ "hiscore.txt", False, System.Text.Encoding.Default) Sw.WriteLine(S) Sw.Close( ) End Using さいこうてんだきろくこうしんこれで最高点を出すと記録更新されるようになるあおいろきいろみどりいろすべてところじょうきゃくのあとあかいろところゆ 5. 青色と黄色と緑色の全ての所で乗客を乗せた後でなければ赤色の所に行ってもゴールになよかんがらないようにするにはどうすれば良いか考えなさいふくすうめんつづ複数面を続けてプレイできるようにするじしたかこへんこう 1. ゲームクリア時のコードを下の囲いのコードに変更するへんこう ' ゲームクリアここを変更 tmrmove.enabled = False Sw.Stop( ) MessageBox.Show("Clear") Cnt += 1 If Cnt > SHEETS Then MessageBox.Show("All Clear") Dim S As Single = Single.Parse(lblHi.Text) * 1000 If Sw.ElapsedMilliseconds < S Then S = Sw.ElapsedMilliseconds lblhi.text = (S / 1000).ToString( ) Dim P As String = Application.StartupPath If Not P.EndsWith(" ") Then P &= " " Using Sw As StreamWriter = New StreamWriter(P & _ "hiscore.txt", False, System.Text.Encoding.Default) Sw.WriteLine(S) Sw.Close( ) End Using Application.Exit( ) Bm = New Bitmap(Dir & "road" & Cnt.ToString( ) & ".bmp") Gb.DrawImage(Bm, 0, 0) picdisp.refresh( ) btnstart.enabled = True Game = False -6-

ドッグファイト

ドッグファイトきょうつうへんすうこうぞうたいせんげん共通の変数や構造体を宣言するひょうじ 1. ソリューションエクスプローラでコードの表示をクリックする 2. 次のコードが表示されるので 1の所に下の囲いのコードを入力する Public Class DogFighter 1 ここに入力する! End Class Private Structure BeamPosition Dim XL As