VB2008打磚塊小遊戲問題

夢境未來

這是我自己上網學的打磚塊小遊戲程式!不過我希望它可以進行接關跟暫停!(例如下一關可以加快球速還有磚塊數量等等!)
希望有大大可以教我!

1. Public Class Form1
   
2. 
   
3.     '表單載入
   
4.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
   
5.         For i As Integer = 0 To 4 '五個橫列
   
6.             For j As Integer = 0 To 4 '五個直行
   
7.                 Brick(100 * i, 50 * j) '製作磚塊(100x50點大小)
   
8.             Next
   
9.         Next
   
10.         Me.Width = (Me.Width - Me.ClientSize.Width) + 100 * 5 '調整表單寬度
    
11.         Me.Height = (Me.Height - Me.ClientSize.Height) + 50 * 5 + 200 '調整表單高度
    
12.         B.Top = 50 * 5 + 30 '調整球的高度，五排磚塊下30點
    
13.         B.Left = (Me.ClientSize.Width - B.Width) / 2 '球水平置中
    
14.         P.Top = Me.ClientSize.Height - 30 '調整球拍的高度
    
15.         P.Left = (Me.ClientSize.Width - P.Width) / 2 '球拍水平置中
    
16.         Timer1.Start() '啟動球的運動
    
17.     End Sub
    
18.     '製作指定位置磚塊的副程序
    
19.     Sub Brick(ByVal X As Integer, ByVal Y As Integer)
    
20.         Dim Q As New Label '建置新的磚塊物件
    
21.         With Q
    
22.             .Width = 100 '寬
    
23.             .Height = 50 '高
    
24.             .BackColor = Color.DarkRed '磚紅色
    
25.             .BorderStyle = BorderStyle.FixedSingle '邊框
    
26.             .Left = X '座標X
    
27.             .Top = Y '座標Y
    
28.         End With
    
29.         Me.Controls.Add(Q) '磚塊加入表單
    
30.     End Sub
    
31.     Dim Vx As Single = 5, Vy As Single = 5 '速度值  '球的運動控制
    
32.     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    
33.         B.Left += Vx 'X方向移動
    
34.         B.Top += Vy 'Y方向移動
    
35.         If B.Left < 0 Then Vx = Math.Abs(Vx) '碰左牆
    
36.         If B.Right > Me.ClientSize.Width Then Vx = -Math.Abs(Vx) '碰右牆
    
37.         If B.Top < 0 Then Vy = Math.Abs(Vy) '碰屋頂
    
38.         Dim C As Single = (B.Left + B.Right) / 2 '球的中心點X座標
    
39.         If B.Bottom > P.Top And C > P.Left And C < P.Right Then '撞到球拍
    
40.             My.Computer.Audio.Play(My.Resources.Bang, AudioPlayMode.Background) '擊球音效
    
41.             Vy = -Math.Abs(Vy) '向上彈
    
42.             Dim F As Single = (C - P.Left) / P.Width '計算擊球點
    
43.             If Vx < 0 Then F = 1 - F '方向調整
    
44.             Vx = Vx * (F + 0.5) 'X速度修正
    
45.         End If
    
46.         If B.Top > Me.ClientSize.Height Then '漏接了，球掉出畫面
    
47.             Timer1.Stop()
    
48.             MsgBox("Game over!")
    
49.         End If
    
50.         '檢查磚塊碰撞情況
    
51.         For Each q In Me.Controls '每一個控制項
    
52.             If TypeOf (q) Is Label Then '如果是Label(磚塊)
    
53.                 If chkHit(q) Then '檢查是否擊中磚塊
    
54.                     My.Computer.Audio.Play(My.Resources.Bee, AudioPlayMode.Background) '破磚音效
    
55.                 End If
    
56.             End If
    
57.         Next
    
58.     End Sub
    
59.     '檢查球與磚塊或牆壁碰撞的程式
    
60.     Function chkHit(ByVal Q As Label) As Boolean
    
61.         If B.Right < Q.Left Then Return False '偏左未碰到
    
62.         If B.Left > Q.Right Then Return False '偏右未碰到
    
63.         If B.Top > Q.Bottom Then Return False '偏下未碰到
    
64.         If B.Bottom < Q.Top Then Return False '偏上未碰到
    
65.         '碰撞目標左側(剛剛越過左邊界)往左彈
    
66.         If B.Right >= Q.Left And (B.Right - Q.Left) <= Math.Abs(Vx) Then Vx = -Math.Abs(Vx)
    
67.         '碰撞目標右側(剛剛越過右邊界)往右彈
    
68.         If B.Left <= Q.Right And (Q.Right - B.Left) <= Math.Abs(Vx) Then Vx = Math.Abs(Vx)
    
69.         '碰撞目標底部(剛剛越過底邊界)往下彈
    
70.         If B.Top <= Q.Bottom And (Q.Bottom - B.Top) <= Math.Abs(Vy) Then Vy = Math.Abs(Vy)
    
71.         '碰撞目標頂部(剛剛越過頂邊界)往上彈
    
72.         If B.Bottom >= Q.Top And (B.Bottom - Q.Top) <= Math.Abs(Vy) Then Vy = -Math.Abs(Vy)
    
73.         Q.Dispose() '刪除磚塊物件
    
74.         Return True '回傳有碰撞
    
75.     End Function
    
76.     '拖曳球拍的程式
    
77.     Dim mdx As Integer '拖曳起點
    
78.     Private Sub P_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles P.MouseDown
    
79.         mdx = e.X '拖曳起點
    
80.     End Sub
    
81.     '拖曳中
    
82.     Private Sub P_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles P.MouseMove
    
83.         If e.Button = Windows.Forms.MouseButtons.Left Then
    
84.             Dim X As Integer = P.Left + (e.X - mdx) '試算拖曳位置
    
85.             If X < 0 Then X = 0 '左移極限控制
    
86.             If X > Me.ClientSize.Width - P.Width Then
    
87.                 X = Me.ClientSize.Width - P.Width '右移極限控制
    
88.             End If
    
89.             P.Left = X '球拍位置(不超出邊界)
    
90.         End If
    
91.     End Sub
    
92. End Class

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

yuehtim

暫停部分建議用timer比較好
阿增加關卡可以寫副程式加If或Select Case 作判斷
我會寫在模組吧，因為可以節省空間
記得要用Public Sub，若用Private Sub主程式會抓不到模組的副程式喔