作者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
1F：推 chinoyan:程式码写成这样............你看懂我也佩服的 04/18 02:42
2F：→ MOONRAKER:太深奥了，我连问题都看不懂，为什麽会这麽深奥阿！ X~( 04/18 02:47