關於打磚塊遊戲 反彈有點問題

目前當球打到磚塊反彈有點問題=>已經解決還有目前重玩的話，只有方塊能刷新，不知道有什麼辦法讓板子與球隨機回復位子(原位也可以)
還有一個問題，就是球打到板子剛開始都同樣方向(往左上方反彈)，有辦法像真正的打磚塊一樣(打到板子左邊往左反彈，右邊往右，中間往上)
希望各位能幫幫忙程式碼文字檔案：
...

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

darkjack

你的主執行檔 沒法執行，而你的程式碼又是取片段，實在無從幫起

darkjack 發表於 2012-4-19 10:40 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你的主執行檔 沒法執行，而你的程式碼又是取片段，實在無從幫起

大大抱歉，主程式已從用，程式碼也從用，目前最希望解決
...

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

darkjack

你的主程式還是一樣 不能執行，會有錯誤，我猜想你應該是用 vb 2010 的 Framework 4 作業？

而你的程式碼我整個複製之後
因為你是用自定名稱的 控件 我自己修改之後會變成這種畫面 ＝ ＝


而我滑鼠移動之後 整個介面都會移動
如果按下 button1 (應該是你設定的開始）
則那個框框 會在下方一直重複從左畫到右
...

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

這是我的執行圖
我本身是用MS Visual Studio 2010 express 不能執行主程式，是否需要整個專案檔案呢?
我設定的棒子(L)跟球(B)都是使用Label
移動滑鼠我自己是只會移動棒子，不知道為何會移動整個介面
開始(Button1)只是設定啟動Timer1而已
重新(Button2)目前只能夠清除磚塊與重畫磚塊
...

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

darkjack

我剛剛想嘗試 用 FrameWork 4.5Beta 安裝結果不能安裝
用 FrameWork 4 我要安裝，顯示我電腦已經有 FrameWork4 了

我用你丟上來的原始碼 直接copy 過去 VS 2008

是有出現了棒子 但是卻少了 磚塊

1.   Dim b = New Label
   
2.   'Dim l = New Label   '<===全域 就會出現棒子 ，取消 卻只出現磚塊
   
3.   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   
4.     Dim L = New Label '<===寫在 裡面卻又會有些錯誤

複製代碼

而你用的專案 2010 我 2008 也不能用

給你一些參考解答
邊界問題 你看看 外介面 跟內介面 是否差距太小

把內介面的 最大超出範圍值設定小一點看看


問題應該是在這段

1.    Private Function chkHit(ByVal Q As Label) As Boolean
   
2.         If Q.Visible = False Then Return False
   
3.         If B.Left < Q.Left - B.Width Then Return False
   
4.         If B.Left > Q.Left + Q.Width Then Return False
   
5.         If B.Top > Q.Top + Q.Height Then Return False
   
6.         If B.Top < Q.Top - B.Height Then Return False
   
7.         If bx < Q.Left - B.Width And B.Left >= Q.Left - B.Width Then
   
8.             dx = -1
   
9.         End If
   
10.         If bx > Q.Left + Q.Width And B.Left <= Q.Left + Q.Width Then
    
11.             dx = 1
    
12.         End If
    
13.         If by < Q.Top - B.Height And B.Top >= Q.Top - B.Height Then
    
14.             dy = -1
    
15.         End If
    
16.         If by > Q.Top + Q.Height And B.Top <= Q.Top + Q.Height Then
    
17.             dy = 1
    
18.         End If
    
19.         Q.Visible = False
    
20.         Return True
    
21.     End Function

複製代碼

...

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

ahway9988

這個...

1. L.Left = 347
   
2. B.Left = 347
   
3. B.Top = 355
   
4. dx = 1
   
5. dy = 1

複製代碼

加到Button2裡,可以讓球歸原位
問題1似乎不是問題,難道是我會錯您的意思,有請更正

問題2:
在Timer2裡的...

1. If B.Top + B.Height > L.Top Then
   
2.         If B.Left > L.Left And B.Left + B.Width < L.Left + L.Width Then
   
3.                 dy = -1
   
4.         End If
   
5. End If

複製代碼

的這裡裡面,加入您的球與橫桿的關係
假如您想將桿分成3塊,即左中右來判斷球要撞上去位置
將球的方向dx因素(正負號)與桿的位置點做判斷條件
球撞上桿左側,球向dx=-1
球撞上桿右側,球向dx=1
另外比較麻煩的是球撞上中間位置的判斷,因為會改變到vx值(移動量),如果您予許的話,那不管球從哪方向來,撞擊到桿中間位置,就讓它成為0吧(vx=0),這樣球就只會上下動了
此時球是不是處於上下動狀態?在這種狀態下如果再次撞擊到桿子的話仍可套用前項3項條件,只不過還得新增幾個式子
以下是最終整理後:
球撞上桿左側,球向dx=-1,vx=3(vx=3這是您的原設定值)
球撞上桿右側,球向dx=1,vx=3
球撞上桿中間,vx=0
至於桿的左中右就由您自己定義位置大小了
以上希望能幫到忙,有錯請糾正







補充內容 (2012-4-21 01:15 AM):
簡單說dx是控制方向,vx才是啟動您的球要動不動,球不動(左右動)那就是上下動了...

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

ahway9988 發表於 2012-4-21 01:02 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

這個...
加到Button2裡,可以讓球歸原位
問題1似乎不是問題,難道是我會錯您的意思,有請更正

感謝大大的回答，重玩球的問題已解決，球根棒子的關係我也懂，不過Timer1裡面球根棒子的反彈方向，我不太知道該如何去設定，目前棒子的寬為55，如果設為60，把棒子切割為3段，25(左),10(中),25(右邊)，這樣又該如何打出判斷式呢?...

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

ahway9988

1.                 If B.Left + B.Width \ 2 < L.Left + 25 Then
   
2.                     dx = -1
   
3.                     vx = 3
   
4.                 ElseIf B.Left + B.Width \ 2 > L.Left + 35 Then
   
5.                     dx = 1
   
6.                     vx = 3
   
7.                 Else
   
8.                     vx = 0
   
9.                 End If

複製代碼

加入我說的timer2的If B.Top + B.Height > L.Top Then ~ end if裡

應該就可以了

其中要算上球的厚度,加上球的厚度的一半才是判斷球中心點撞擊在桿子上的關係條件

...

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

ahway9988 發表於 2012-4-21 09:26 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

加入我說的timer2的If B.Top + B.Height > L.Top Then ~ end if裡應該就可以了
其中要算上球的厚度,加上球 ...

...

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

ahway9988

非也,您僅需在球碰到桿子時增加或改變vx,vy的數值即可,別忘了vx,vy它不只是球的恆動量,也是開關亦是加(減)速器
比方說您需要在球碰到桿子或球在移動時間裡過了n秒增加(改變)它的速度,建議您設置一個變數varAny(請自定變數)儲存球到碰到桿子次數或球在移動過程經過了幾秒,在碰到桿子的條件區塊裡或是在timer1區塊後設計您要在第幾次之後或是第幾秒之後改變它(vx and vy)的值
...

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

ahway9988 發表於 2012-4-21 10:47 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

非也,您僅需在球碰到桿子時增加或改變vx,vy的數值即可,別忘了vx,vy它不只是球的恆動量,也是開關亦是加(減) ...

恩，理解意思，只是不知道該如何寫出(新手一枚..)

1. vx = CInt(Int((5* Rnd()) + 1))

複製代碼

這種樣子不知道能不能實現，或者有更好的辦法?...

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

ahway9988

當然可以,這樣是隨機變換球速,看你自己需求
不過如此執行起來好像有點怪怪的XD

ahway9988 發表於 2012-4-22 09:05 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

當然可以,這樣是隨機變換球速,看你自己需求
不過如此執行起來好像有點怪怪的XD ...

是阿，我也覺得怪怪的，順便問一下，如何判斷磚塊被打光呢?...

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

ahway9988

A2515925 發表於 2012-4-23 07:30 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

是阿，我也覺得怪怪的，順便問一下，如何判斷磚塊被打光呢?

我只想到兩種方法
1是每次撞擊完即判斷每個磚塊是否已經打過了,不知道是不是您設的L.Visable
...

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