南台科技大學機械工程系自控一甲

學號 :4A212049老師 : 黃婉竺

計算機程式及實習計算機程式及實習期末報告期末報告 pptppt 製作製作

題目 : 打磚塊

開始介面

這是一開始的遊戲介面，按 START按鈕，開始進行遊戲。

按此開始進行打磚塊遊戲

按此開始、暫停

按此結束

遊戲執行介面

用滑鼠操控，按住彈板不放，進行水平拖曳。

程式碼設計

Public Class 打磚塊‘ 宣告 Vx為馬莉歐一次移動的水平距離 Dim Vx As Single = 10‘ 宣告 Vy為馬莉歐一次移動的垂直距離 Dim Vy As Single = 10

‘ 用於重複呼叫產生畫面磚塊副程式Sub Brick(ByVal X As Integer, ByVal Y As Integer) ‘ 宣告 Q為一個新的 LABEL物件 Dim Q As New Label ‘ 設定 Q的相關參數 Q.Image = Image.FromFile(" 磚塊 .jpg") With Q .Width = 100 .Height = 50 .BorderStyle = BorderStyle.FixedSingle .Left = X .Top = Y End With ‘ 將 Q(磚塊 )新增到畫面相對位置上 Me.Controls.Add(Q) End Sub

‘當每次計數器觸發時所需執行之動作副程式Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick B.Left += Vx B.Top += Vy ‘當馬莉歐移動到邊界時改變移動方向 If B.Left < 0 Then Vx = Math.Abs(Vx) If B.Right > Me.ClientSize.Width Then Vx = -Math.Abs(Vx) If B.Top < 0 Then Vy = Math.Abs(Vy) Dim C As Single = (B.Left + B.Right) / 2 ‘當馬莉歐碰到擊球板時改變移動方向並發出音效 If B.Bottom > P.Top And C > P.Left And C < P.Right Then ' 擊球音效 My.Computer.Audio.Play(My.Resources.stomp, AudioPlayMode.Background) Vy = -Math.Abs(Vy) Dim F As Single = (C - P.Left) / P.Width If Vx < 0 Then F = 1 - F Vx = Vx * (F + 0.5) End If

‘當漏接時所做反應 If B.Top > Me.ClientSize.Height Then Timer1.Stop() ' 漏接音效 My.Computer.Audio.Play(My.Resources.mariodie, AudioPlayMode.Background) MsgBox("Game over!") START.Visible = True End If

' 檢查磚塊碰撞情況 For Each q In Me.Controls If TypeOf (q) Is Label Then If chkHit(q) Then ' 破磚音效 My.Computer.Audio.Play(My.Resources.kick, AudioPlayMode.Background) End If End If NextEnd Sub

‘遊戲開始初始化布置Private Sub START_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles START.Click‘隱藏開始按鈕 START.Visible = False‘顯示馬莉歐 B.Visible = True‘顯示反彈跳板 P.Visible = True‘布置磚塊 For i As Integer = 0 To 9 For j As Integer = 0 To 9 Brick(100 * i, 50 * j) Next Next

‘設置畫面大小 Me.Width = (Me.Width - Me.ClientSize.Width) + 200 * 5 Me.Height = (Me.Height - Me.ClientSize.Height) + 100 * 5 + 150 ‘設置馬莉歐畫面位置 B.Top = 100 * 5 + 100 B.Left = (Me.ClientSize.Width - B.Width) / 2 ‘設置跳板畫面位置 P.Top = Me.ClientSize.Height - 25 P.Left = (Me.ClientSize.Width - P.Width) / 2 ‘開始計時 Timer1.Start() ‘設置遊戲進行中按鈕位置 Time.Top = 10 Time.Left = Me.ClientSize.Width - B.Width Play.Top = 10 Play.Left = Me.ClientSize.Width - B.Width End1.Top = 50 End1.Left = Me.ClientSize.Width - B.Width End Sub

心得

VB 真的是不好學習，聽到要做期末報告而且還是用 VB 製作遊戲，簡直是一個頭兩個大阿，在網路上找了許多的範例還有如何製作，不過比我想像中難找，後來決定找班上同學幫忙，同學也很有心的教我，雖然我還是聽不太懂，過程中程式碼一直出問題，修改了好久，好不容易完成了打磚塊，看到成品真的好感動，真的很感謝同學耐心的教導。

參考文獻

1.Visual Basic 2010 實力養成暨評量解題秘笈 桂思強 編 碁峰 2010

2.Visual Basic 2010 教學範本古頤榛 編著 碁峰資訊 2009

3.Visual Basic 6 中文版教學手冊古頤榛 碁峰 2006

4. 學會寫程式 Visual Basic 2008( Idea 3 小組 碁峰 2010

5.Visual Basic 2010 程式設計作者： 葉倍宏 全華2010

6.Visual Basic 程式設計余忠潔 全華 20107.Visual Basic 2005 程式設計許華菁 普林斯頓

2008 8.Visual Basic 2010 基礎必修課