1 / 13

題目 : 打磚塊遊戲

題目 : 打磚塊遊戲. 計算機程式及實習 期末報告 ppt 製作 學校 : 南台科技大學 系 所 : 機械工程系 班級 : 自控一甲 姓名 : 曾煒翔 學 號 : 4A212081 老師 : 謝慶存. 題目說明 : 打磚塊設計. 試 設計小遊戲，按下「 START 」鈕之後 ，即 會開始遊戲。又上小有「 Time( 暫停 ) 」及「 Play( 繼續 ) 」，可在遊戲中按下。鈕按「 End 」，關閉程式。. 程式開始 畫面. 按下「 Time 」，則暫停遊戲。. 按下「 Play 」，則繼續遊戲。. 漏接球的畫面.

tamara-rodriquez
Télécharger la présentation

題目 : 打磚塊遊戲

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 題目:打磚塊遊戲 • 計算機程式及實習 • 期末報告ppt製作 • 學校:南台科技大學 • 系所:機械工程系 • 班級:自控一甲 • 姓名:曾煒翔 • 學號:4A212081 • 老師:謝慶存

  2. 題目說明:打磚塊設計 試設計小遊戲，按下「START」鈕之後，即會開始遊戲。又上小有「Time(暫停)」及「 Play(繼續) 」，可在遊戲中按下。鈕按「End」，關閉程式。

  3. 程式開始畫面 按下「Time」，則暫停遊戲。 按下「Play」，則繼續遊戲。

  4. 漏接球的畫面 漏接球後將出現「 Game Over! 」 按下確認後即出現「START 」， 按下可重新遊戲。

  5. 版面配置及屬性設定 Time(暫停) Play(繼續) End(結束) START(開始)

  6. Msgbox 「Game Over!」 會有「漏接音效」 球 撞到磚塊時會有「破磚音效」 球拍 球彈起時會有「擊球音效」

  7. 程式碼設計 Public Class 打磚塊 Dim Vx As Single = 10, Vy As Single = 10'速度值  '球的運動控制  '製作指定位置磚塊的副程序 Sub Brick(ByVal X As Integer, ByVal Y As Integer) Dim Q As New Label'建置新的磚塊物件  Q.Image = Image.FromFile("磚塊.jpg") With Q .Width = 100'寬 .Height = 50'高 .BorderStyle = BorderStyle.FixedSingle .Left = X'座標X .Top = Y'座標Y End With Me.Controls.Add(Q)'磚塊加入表單  End Sub

  8. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick B.Left += Vx'X方向移動 B.Top += Vy'Y方向移動 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'球的中心點X座標 If B.Bottom > P.Top And C > P.Left And C < P.RightThen'撞到球拍  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)'X速度修正  End If If B.Top > Me.ClientSize.HeightThen'漏接了，球掉出畫面 Timer1.Stop() MsgBox(“Game over!”)'顯示Game Over! START.Visible = True End If '檢查磚塊碰撞情況 For Each q In Me.Controls'每一個控制項 If TypeOf (q) Is Label Then'如果是Label(磚塊)  If chkHit(q) Then'檢查是否擊中磚塊

  9. '檢查球與磚塊或牆壁碰撞的程式 Function chkHit(ByVal Q As Label) As Boolean If B.Right < Q.Left Then Return False '偏左未碰到 If B.Left > Q.Right Then Return False '偏右未碰到 If B.Top > Q.Bottom Then Return False '偏下未碰到 If B.Bottom < Q.Top Then Return False '偏上未碰到 '碰撞目標左側(剛剛越過左邊界)往左彈 If B.Right >= Q.Left And (B.Right - Q.Left) <= Math.Abs(Vx) Then Vx = -Math.Abs(Vx) '碰撞目標右側(剛剛越過右邊界)往右彈 If B.Left <= Q.Right And (Q.Right - B.Left) <= Math.Abs(Vx) Then Vx = Math.Abs(Vx) '碰撞目標底部(剛剛越過底邊界)往下彈 If B.Top <= Q.Bottom And (Q.Bottom - B.Top) <= Math.Abs(Vy) Then Vy = Math.Abs(Vy) '碰撞目標頂部(剛剛越過頂邊界)往上彈 If B.Bottom >= Q.Top And (B.Bottom - Q.Top) <= Math.Abs(Vy) Then Vy = -Math.Abs(Vy) Q.Dispose()'刪除磚塊物件 Return True'回傳有碰撞  End Function

  10. '拖曳球拍的程式 Dim mdx As Integer'拖曳起點 Private Sub P_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles P.MouseDown mdx = e.X'拖曳起點 End Sub '拖曳中 Private Sub P_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles P.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then Dim X As Integer = P.Left + (e.X - mdx)'試算拖曳位置 If X < 0 Then X = 0'左移極限控制  If X > Me.ClientSize.Width - P.Width Then X = Me.ClientSize.Width - P.Width'右移極限控制 End If P.Left = X'球拍位置(不超出邊界)  End If End Sub

  11. 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)'製作磚塊(100x50點大小) 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'調整球的高度，五排磚塊下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

  12. Private Sub Time_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Time.Click Timer1.Stop() '遊戲暫停 Play.Visible = True End Sub Private Sub Play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Play.Click Timer1.Start() '遊戲開始 Play.Visible = False End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Play.Visible = False End Sub Private Sub End1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles End1.Click End '遊戲結束 End Sub End Class

  13. 心得 • 從想遊戲到寫程式都感到困難，但在老師的教導及同學的協助下還是完成了這項任務，讓我很有成就感。若是多加的練習應能更加流暢地寫出程式。

More Related