作者vfionnkg (vfionnkg)
看板Visual_Basic
標題[VB6 ] 請各位幫幫忙
時間Fri Apr 17 23:19:59 2009
我寫了一個關於打磚塊的程式,我是判斷磚塊跟球的,如果球碰到磚塊,磚塊會隱藏,
然後得到1分,老師說磚塊只是隱藏起來,並不是不見了,其實它是存在的
請問要如果判斷磚塊真的不存在,然後球就會反彈到桿子的方向
下面是我的程式碼
For z = 0 To 55
If Shape3(z).Left <= Shape2.Left + Shape2.Width / 2 And Shape3(z).Left + Shape3(z).Width >= Shape2.Left + Shape2.Width / 2 And Shape3(z).Top + Shape3(z).Height >= Shape2.Top And Shape3(z).Top <= Shape2.Top + Shape2.Height And Shape3(z).Visible = True Then y = -y: Shape3(z).Visible = False: score = score + 1
If Shape3(z).Left <= Shape2.Left + Shape2.Width And Shape3(z).Left + Shape3(z).Width >= Shape2.Left And Shape3(z).Top + Shape3(z).Height >= Shape2.Top + Shape2.Height / 2 And Shape3(z).Top <= Shape2.Top + Shape2.Height / 2 And Shape3(z).Visible = True Then x = -x: Shape3(z).Visible = False: score = score + 1
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.44.21.129
推 chinoyan:程式碼寫成這樣............你看懂我也佩服的 04/18 02:42
→ MOONRAKER:太深奧了,我連問題都看不懂,為什麼會這麼深奧阿! X~( 04/18 02:47